D6HECHUAN/公用模块/系统模块/u_sys_sale_profitset.pas

unit u_sys_sale_profitset;

interface

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

type
  Tfrm_sys_sale_profitset = class(TForm)
    t_sys_saleproft: TADOQuery;
    ds_sys_saleproft1: TDataSource;
    ds_sys_saleproftset1: TDataSource;
    t_sys_saleproftset: TADOQuery;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinPanel2: TbsSkinPanel;
    bsSkinPanel4: TbsSkinPanel;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1Column1: TdxDBGridMaskColumn;
    bsSkinPanel1: TbsSkinPanel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsSkinButton4: TbsSkinButton;
    bsSkinButton3: TbsSkinButton;
    bsSkinPanel3: TbsSkinPanel;
    bsSkinButton9: TbsSkinButton;
    bsSkinButton10: TbsSkinButton;
    bsSkinButton11: TbsSkinButton;
    bsSkinButton12: TbsSkinButton;
    bsSkinButton5: TbsSkinButton;
    bskngrpbx1: TbsSkinGroupBox;
    bskngrpbx2: TbsSkinGroupBox;
    bsSkinGroupBox1: TbsSkinGroupBox;
    bsSkinGroupBox2: TbsSkinGroupBox;
    dbgrdh1: TDBGridEh;
    lbl1: TLabel;
    dbedt1: TDBEdit;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit3: TDBEdit;
    Label5: TLabel;
    bsSkinPanel5: TbsSkinPanel;
    Label6: TLabel;
    DBEdit4: TDBEdit;
    Label7: TLabel;
    dbmmo1: TDBMemo;
    bsSkinPanel6: TbsSkinPanel;
    bsSkinGroupBox3: TbsSkinGroupBox;
    t_sys_emply: TADOQuery;
    ds_sys_emply1: TDataSource;
    wwDBGrid1: TwwDBGrid;
    wwDBLookupCombo1: TwwDBLookupCombo;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    dxDBGrid1Column2: TdxDBGridColumn;
    bsSkinDBCheckRadioBox1: TbsSkinDBCheckRadioBox;
    bsSkinDBCheckRadioBox2: TbsSkinDBCheckRadioBox;
    procedure t_sys_saleproftBeforePost(DataSet: TDataSet);
    procedure t_sys_saleproftsetBeforePost(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure bsSkinButton1Click(Sender: TObject);
    procedure bsSkinButton2Click(Sender: TObject);
    procedure bsSkinButton4Click(Sender: TObject);
    procedure bsSkinButton3Click(Sender: TObject);
    procedure bsSkinButton9Click(Sender: TObject);
    procedure bsSkinButton10Click(Sender: TObject);
    procedure bsSkinButton12Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure bsSkinButton5Click(Sender: TObject);
    procedure t_sys_saleproftsetAfterInsert(DataSet: TDataSet);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton6Click(Sender: TObject);
    procedure t_sys_saleproftBeforeEdit(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_sale_profitset: Tfrm_sys_sale_profitset;
  dep_emp_insert:boolean;
  dep_emp_name:string;

implementation

uses u_main, my_sys_function, u_data_share, u_sys_dep_emp_delete,
  u_sys_progress, u_sys_dep_emp_department;

{$R *.dfm}

procedure Tfrm_sys_sale_profitset.t_sys_saleproftBeforePost(
  DataSet: TDataSet);
begin
  table_before_post(t_sys_saleproft,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

procedure Tfrm_sys_sale_profitset.t_sys_saleproftsetBeforePost(DataSet: TDataSet);
begin
 // table_before_post(t_sys_saleproftset,'<27><><EFBFBD><EFBFBD>');
end;

procedure Tfrm_sys_sale_profitset.FormShow(Sender: TObject);
begin
  t_sys_saleproft.open;
  t_sys_saleproftset.open;
  t_sys_emply.Open;
end;

procedure Tfrm_sys_sale_profitset.bsSkinButton1Click(Sender: TObject);
begin
  t_sys_saleproft.insert;
end;

procedure Tfrm_sys_sale_profitset.bsSkinButton2Click(Sender: TObject);
begin
  table_post(t_sys_saleproft);
end;

procedure Tfrm_sys_sale_profitset.bsSkinButton4Click(Sender: TObject);
begin
  table_delete(t_sys_saleproft);
end;

procedure Tfrm_sys_sale_profitset.bsSkinButton3Click(Sender: TObject);
begin
  table_cancel(t_sys_saleproft);
end;

procedure Tfrm_sys_sale_profitset.bsSkinButton9Click(Sender: TObject);
begin
  t_sys_saleproftset.insert;
end;

procedure Tfrm_sys_sale_profitset.bsSkinButton10Click(Sender: TObject);
begin
  table_post(t_sys_saleproftset);
end;

procedure Tfrm_sys_sale_profitset.bsSkinButton12Click(Sender: TObject);
begin
  table_cancel(t_sys_saleproftset);
end;

procedure Tfrm_sys_sale_profitset.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=frm_close_query(t_sys_emply);
  CanClose:=frm_close_query(t_sys_saleproft);
  CanClose:=frm_close_query(t_sys_saleproftset);
end;

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

procedure Tfrm_sys_sale_profitset.t_sys_saleproftsetAfterInsert(
  DataSet: TDataSet);
begin
  dataset.FieldByName('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString:=t_sys_saleproft.fieldbyname('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>').AsString;
  dataset.FieldByName('<27><><EFBFBD><EFBFBD>').AsString:=t_sys_saleproft.fieldbyname('<27><><EFBFBD><EFBFBD>').AsString;
end;

procedure Tfrm_sys_sale_profitset.bsSkinButton7Click(Sender: TObject);
begin
  t_sys_saleproft.Edit;
  t_sys_saleproft['<27><><EFBFBD><EFBFBD>']:=1;
  t_sys_saleproft.post;
end;

procedure Tfrm_sys_sale_profitset.bsSkinButton6Click(Sender: TObject);
begin
  t_sys_saleproft.Edit;
  t_sys_saleproft['<27><><EFBFBD><EFBFBD>']:=0;
  t_sys_saleproft.post;

end;

procedure Tfrm_sys_sale_profitset.t_sys_saleproftBeforeEdit(
  DataSet: TDataSet);
begin
{
  if t_sys_saleproft['<27><><EFBFBD><EFBFBD>'] then begin
    MessageDlg('<27>Ѽ<EFBFBD><D1BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>޸ģ<DEB8>',mtWarning,[mbok],0);
    abort;
  end;
}
end;

end.