D6HECHUAN/业务统计/u_sys_sale_dayprofitset3.pas

unit u_sys_sale_dayprofitset3;

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_dayprofitset3 = 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;
    bsSkinGroupBox1: TbsSkinGroupBox;
    dbgrdh1: TDBGridEh;
    t_sys_emply: TADOQuery;
    ds_sys_emply1: TDataSource;
    bsSkinPanel5: TbsSkinPanel;
    dxDBGrid1Column2: TdxDBGridColumn;
    t_crm_salesdayproftSet_plan1: TDataSource;
    t_crm_salesdayproftSet_plan: TADOQuery;
    dxDBGrid2: TdxDBGrid;
    t_crm_salesdayproftSet_planITEMID: TAutoIncField;
    t_crm_salesdayproftSet_planDSDesigner: TStringField;
    t_crm_salesdayproftSet_planDSDesigner2: TStringField;
    t_crm_salesdayproftSet_planDSDesigner3: TBCDField;
    t_crm_salesdayproftSet_planDSDesigner4: TBCDField;
    t_crm_salesdayproftSet_planlk: TStringField;
    dxDBGrid2Column2: TdxDBGridColumn;
    dxDBGrid2Column3: TdxDBGridColumn;
    bsSkinButton6: TbsSkinButton;
    bsSkinButton7: TbsSkinButton;
    bsSkinButton13: TbsSkinButton;
    dxDBGrid2Column1: TdxDBGridLookupColumn;
    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 bsSkinButton6Click(Sender: TObject);
    procedure t_crm_salesdayproftSet_planAfterInsert(DataSet: TDataSet);
    procedure bsSkinButton7Click(Sender: TObject);
    procedure bsSkinButton13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_sys_sale_dayprofitset3: Tfrm_sys_sale_dayprofitset3;
  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_dayprofitset3.t_sys_saleproftBeforePost(
  DataSet: TDataSet);
begin
  table_before_post(t_sys_saleproft,'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;

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

procedure Tfrm_sys_sale_dayprofitset3.FormShow(Sender: TObject);
begin
  t_sys_saleproft.open;
  t_sys_saleproftset.open;
  t_crm_salesdayproftSet_plan.open;
end;

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

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

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

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

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

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

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

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

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

procedure Tfrm_sys_sale_dayprofitset3.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;
end;

procedure Tfrm_sys_sale_dayprofitset3.bsSkinButton6Click(Sender: TObject);
begin
  t_crm_salesdayproftSet_plan.insert;

end;

procedure Tfrm_sys_sale_dayprofitset3.t_crm_salesdayproftSet_planAfterInsert(
  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;

end;

procedure Tfrm_sys_sale_dayprofitset3.bsSkinButton7Click(Sender: TObject);
begin
  table_post(t_crm_salesdayproftSet_plan);

end;

procedure Tfrm_sys_sale_dayprofitset3.bsSkinButton13Click(Sender: TObject);
begin
  table_cancel(t_crm_salesdayproftSet_plan);

end;

end.