unit thcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGridEh, dxfColorButton,
  cxLookAndFeelPainters, cxDBLookupComboBox, cxCalendar, cxCurrencyEdit,
  cxDropDownEdit, cxSpinEdit, cxTextEdit, cxFilterControl,
  cxDBFilterControl, cxLabel, StdCtrls, cxButtons, cxControls, cxContainer,
  cxEdit, cxCheckBox, bsSkinCtrls, PrnDbgeh, Menus, AAFont, AACtrls;

type
  Tthcxck = class(TForm)
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    AALabel1: TAALabel;
    DBGridEh2: TDBGridEh;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    PEh1: TPrintDBGridEh;
    ePanel4: TbsSkinExPanel;
    sBox1: TcxCheckBox;
    sBox2: TcxCheckBox;
    sBox3: TcxCheckBox;
    sBox4: TcxCheckBox;
    sBox5: TcxCheckBox;
    sBox6: TcxCheckBox;
    sBox7: TcxCheckBox;
    sBox8: TcxCheckBox;
    cxButton4: TcxButton;
    AALabel2: TAALabel;
    rkzk: TADOQuery;
    DataSource7: TDataSource;
    sprk: TADOQuery;
    DataSource4: TDataSource;
    Edit1: TcxTextEdit;
    cxLabel1: TcxLabel;
    sBox9: TcxCheckBox;
    ePanel1: TbsSkinExPanel;
    DBFc1: TcxDBFilterControl;
    cxButton1: TcxButton;
    DataSource6: TDataSource;
    khzl: TADOQuery;
    Table5: TADOTable;
    DataSource5: TDataSource;
    ePanel2: TbsSkinExPanel;
    DBFC2: TcxDBFilterControl;
    cxButton2: TcxButton;
    ePanel3: TbsSkinExPanel;
    zBox1: TcxCheckBox;
    zBox2: TcxCheckBox;
    zBox3: TcxCheckBox;
    zBox4: TcxCheckBox;
    zBox5: TcxCheckBox;
    zBox6: TcxCheckBox;
    cxButton3: TcxButton;
    dxfColorButton1: TdxfColorButton;
    dxfColorButton2: TdxfColorButton;
    PEh2: TPrintDBGridEh;
    sBox10: TcxCheckBox;
    sBox11: TcxCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure sBox1PropertiesChange(Sender: TObject);
    procedure sBox2PropertiesChange(Sender: TObject);
    procedure sBox3PropertiesChange(Sender: TObject);
    procedure sBox4PropertiesChange(Sender: TObject);
    procedure sBox5PropertiesChange(Sender: TObject);
    procedure sBox6PropertiesChange(Sender: TObject);
    procedure sBox7PropertiesChange(Sender: TObject);
    procedure sBox8PropertiesChange(Sender: TObject);
    procedure sBox9PropertiesChange(Sender: TObject);
    procedure zBox1PropertiesChange(Sender: TObject);
    procedure zBox2PropertiesChange(Sender: TObject);
    procedure zBox3PropertiesChange(Sender: TObject);
    procedure zBox4PropertiesChange(Sender: TObject);
    procedure zBox5PropertiesChange(Sender: TObject);
    procedure zBox6PropertiesChange(Sender: TObject);
    procedure dxfColorButton1Click(Sender: TObject);
    procedure dxfColorButton2Click(Sender: TObject);
    procedure cxButton3Click(Sender: TObject);
    procedure cxButton4Click(Sender: TObject);
    procedure sBox10PropertiesChange(Sender: TObject);
    procedure sBox11PropertiesChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  thcxck: Tthcxck;

implementation

{$R *.dfm}

uses main;

procedure Tthcxck.FormCreate(Sender: TObject);
begin
khzl.Open;
table5.Open;
epanel1.RollState:=true;
epanel2.RollState:=true;
epanel3.RollState:=true;
epanel4.RollState:=true;
edit1.Text:=formatdatetime('yyyy',date);
rkzk.Close;
rkzk.SQL.Clear;
rkzk.SQL.Add('select * from spthzk where tkbh like :bh');
rkzk.Parameters[0].Value:=edit1.Text+'%';
rkzk.Open;
sprk.Close;
sprk.SQL.Clear;
sprk.SQL.Add('select * from spthd where tkbh like :bh');
sprk.Parameters[0].Value:=formatdatetime('yyyymm',date)+'%';
sprk.Open;
//dbgrideh2.Columns[3].Visible:=false;
if not main.lb then
begin
dbgrideh2.Columns[3].Visible:=false;
sbox4.Visible:=false;
//dbgrideh2.Columns[7].Visible:=false;
//sbox8.Visible:=false;
end;
end;

procedure Tthcxck.cxButton1Click(Sender: TObject);
begin
rkzk.Close;
rkzk.SQL.Clear;
rkzk.SQL.Add('select * from spthzk where tkbh like :bh and');
rkzk.SQL.Add(dbfc1.FilterText);
rkzk.Parameters[0].Value:=edit1.Text+'%';
rkzk.Open;
epanel1.RollState:=true;
end;

procedure Tthcxck.cxButton2Click(Sender: TObject);
begin
sprk.Close;
sprk.SQL.Clear;
sprk.SQL.Add('select * from spthd where tkbh like :bh and');
sprk.SQL.Add(dbfc2.FilterText);
sprk.Parameters[0].Value:=edit1.Text+'%';
sprk.Open;
epanel2.RollState:=true;
end;

procedure Tthcxck.DBGridEh1DblClick(Sender: TObject);
begin
sprk.Close;
sprk.SQL.Clear;
sprk.SQL.Add('select * from spthd where tkbh=:bh');
sprk.Parameters[0].Value:=rkzk['tkbh'];
sprk.Open;
end;

procedure Tthcxck.sBox1PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[0].Visible:=sbox1.Checked;
end;

procedure Tthcxck.sBox2PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[1].Visible:=sbox2.Checked;
end;

procedure Tthcxck.sBox3PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[2].Visible:=sbox3.Checked;
end;

procedure Tthcxck.sBox4PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[3].Visible:=sbox4.Checked;
end;

procedure Tthcxck.sBox5PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[4].Visible:=sbox5.Checked;
end;

procedure Tthcxck.sBox6PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[5].Visible:=sbox6.Checked;
end;

procedure Tthcxck.sBox7PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[6].Visible:=sbox7.Checked;
end;

procedure Tthcxck.sBox8PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[7].Visible:=sbox8.Checked;
end;

procedure Tthcxck.sBox9PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[8].Visible:=sbox9.Checked;
end;

procedure Tthcxck.sBox10PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[9].Visible:=sbox10.Checked;
end;

procedure Tthcxck.sBox11PropertiesChange(Sender: TObject);
begin
dbgrideh2.Columns[10].Visible:=sbox11.Checked;
end;

procedure Tthcxck.zBox1PropertiesChange(Sender: TObject);
begin
dbgrideh1.Columns[0].Visible:=zbox1.Checked;
end;

procedure Tthcxck.zBox2PropertiesChange(Sender: TObject);
begin
dbgrideh1.Columns[1].Visible:=zbox2.Checked;
end;

procedure Tthcxck.zBox3PropertiesChange(Sender: TObject);
begin
dbgrideh1.Columns[2].Visible:=zbox3.Checked;
end;

procedure Tthcxck.zBox4PropertiesChange(Sender: TObject);
begin
dbgrideh1.Columns[3].Visible:=zbox4.Checked;
end;

procedure Tthcxck.zBox5PropertiesChange(Sender: TObject);
begin
dbgrideh1.Columns[4].Visible:=zbox5.Checked;
end;

procedure Tthcxck.zBox6PropertiesChange(Sender: TObject);
begin
dbgrideh1.Columns[5].Visible:=zbox6.Checked;
end;

procedure Tthcxck.dxfColorButton1Click(Sender: TObject);
begin
//打印
peh1.PrinterSetupDialog;
peh1.PageHeader.CenterText.Clear;
peh1.PageHeader.LeftText.Clear;
peh1.PageHeader.CenterText.Append(main.sydwqc+'退貨單');
peh1.PageHeader.LeftText.Append(' ');
peh1.PageHeader.RightText.Append(' ');
peh1.PageHeader.LeftText.Append('操作員:'+main.czy);
peh1.PageHeader.RightText.Append('打印日期：'+datetostr(date));
//peh1.AfterGridText.Append('操作員:'+main.czy+'  供貨商:'+rkzk['khmc']);
//peh1.AfterGridText.Append('地址:'+bsskinlabel7.Caption+'  電話:'+bsskinlabel8.Caption);
peh1.Preview;

end;

procedure Tthcxck.dxfColorButton2Click(Sender: TObject);
begin
//打印
peh2.PrinterSetupDialog;
peh2.PageHeader.CenterText.Clear;
peh2.PageHeader.LeftText.Clear;
peh2.PageHeader.CenterText.Append(main.sydwqc+'退貨明細單');
peh2.PageHeader.LeftText.Append(' ');
peh2.PageHeader.RightText.Append(' ');
peh2.PageHeader.LeftText.Append('操作員:'+main.czy);
peh2.PageHeader.RightText.Append('打印日期：'+datetostr(date));
//peh2.AfterGridText.Append('操作員:'+main.czy+'  供貨商:'+rkzk['khmc']);
//peh1.AfterGridText.Append('地址:'+bsskinlabel7.Caption+'  電話:'+bsskinlabel8.Caption);
peh2.Preview;

end;

procedure Tthcxck.cxButton3Click(Sender: TObject);
begin
epanel3.RollState:=true;
end;

procedure Tthcxck.cxButton4Click(Sender: TObject);
begin
epanel4.RollState:=true;
end;

end.