tkcx.~pas

汽车配件管理系统 采用ACCESS数据库 配件销售类公司适用 。 主要是目录树的学习

unit tkcx;

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
  Ttkcxck = 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
  tkcxck: Ttkcxck;

implementation

{$R *.dfm}

uses main;

procedure Ttkcxck.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 sptkzk where tkbh like :bh');
rkzk.Parameters[0].Value:=edit1.Text+'%';
rkzk.Open;
sprk.Close;
sprk.SQL.Clear;
sprk.SQL.Add('select * from sptkd 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 Ttkcxck.cxButton1Click(Sender: TObject);
begin
rkzk.Close;
rkzk.SQL.Clear;
rkzk.SQL.Add('select * from sptkzk where tkbh like :bh and');
rkzk.SQL.Add(dbfc1.FilterText);
rkzk.Parameters[0].Value:=edit1.Text+'%';
rkzk.Open;
epanel1.RollState:=true;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Ttkcxck.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 Ttkcxck.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 Ttkcxck.cxButton3Click(Sender: TObject);
begin
epanel3.RollState:=true;
end;

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

end.