unit rkcx;

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
  Trkcxck = 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;
    zBox7: TcxCheckBox;
    zBox8: TcxCheckBox;
    cxButton3: TcxButton;
    zBox9: TcxCheckBox;
    dxfColorButton1: TdxfColorButton;
    dxfColorButton2: TdxfColorButton;
    PEh2: TPrintDBGridEh;
    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 zBox7PropertiesChange(Sender: TObject);
    procedure zBox8PropertiesChange(Sender: TObject);
    procedure zBox9PropertiesChange(Sender: TObject);
    procedure dxfColorButton1Click(Sender: TObject);
    procedure dxfColorButton2Click(Sender: TObject);
    procedure cxButton4Click(Sender: TObject);
    procedure cxButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rkcxck: Trkcxck;

implementation

{$R *.dfm}

uses main;

procedure Trkcxck.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 sprkzk where jhbh like :bh');
rkzk.Parameters[0].Value:=edit1.Text+'%';
rkzk.Open;
sprk.Close;
sprk.SQL.Clear;
sprk.SQL.Add('select * from sprkd where jhbh like :bh');
sprk.Parameters[0].Value:=formatdatetime('yyyymm',date)+'%';
sprk.Open;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Trkcxck.zBox7PropertiesChange(Sender: TObject);
begin
dbgrideh1.Columns[6].Visible:=zbox7.Checked;
end;

procedure Trkcxck.zBox8PropertiesChange(Sender: TObject);
begin
dbgrideh1.Columns[7].Visible:=zbox8.Checked;
end;

procedure Trkcxck.zBox9PropertiesChange(Sender: TObject);
begin
dbgrideh1.Columns[8].Visible:=zbox9.Checked;
end;

procedure Trkcxck.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 Trkcxck.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 Trkcxck.cxButton4Click(Sender: TObject);
begin
epanel4.RollState:=true;
end;

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

end.