unit u_saler_limit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, dxDBTLCl, dxGrClms, dxTL, dxDBCtrl, dxDBGrid,
  dxCntner, BusinessSkinForm, bsSkinCtrls, Grids, Wwdbigrd, Wwdbgrid,
  StdCtrls, wwdblook, ExtCtrls, Mask, wwdbedit, Wwdotdot, Wwdbcomb, DB,
  ADODB;

type
  Tfrm_saler_limit = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    wwDBGrid1: TwwDBGrid;
    Panel1: TPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    qry_saler_limit: TADOQuery;
    ds_saler_limit1: TDataSource;
    qry_employee: TADOQuery;
    ds_employee: TDataSource;
    wwDBLookupCombo1: TwwDBLookupCombo;
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_saler_limit: Tfrm_saler_limit;

implementation

uses u_data_share, my_sys_function, my_sys_chat, u_main;

{$R *.dfm}

procedure Tfrm_saler_limit.FormShow(Sender: TObject);
begin
  qry_saler_limit.Filtered:=false;
  qry_employee.Open;
  //qry_employee.requery;
  qry_saler_limit.Open;
  qry_saler_limit.requery;
end;

procedure Tfrm_saler_limit.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
 //CanClose:=frm_close_query(frm_data_share.t_code_fee);
end;

procedure Tfrm_saler_limit.bsSkinButton5Click(Sender: TObject);
begin
  close;
end;

procedure Tfrm_saler_limit.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(qry_saler_limit);
end;

procedure Tfrm_saler_limit.bsSkinButton2Click(Sender: TObject);
begin
  table_post(qry_saler_limit);
end;

procedure Tfrm_saler_limit.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(qry_saler_limit);
end;

procedure Tfrm_saler_limit.bsSkinButton1Click(Sender: TObject);
begin
  qry_saler_limit.Insert;
end;

procedure Tfrm_saler_limit.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
 // SendMsg_gonggao('56','');
end;

end.