jzcx.pas

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

unit jzcx;

interface

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

type
  Tjzcxck = class(TForm)
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    table1: TADOQuery;
    DataSource2: TDataSource;
    Table2: TADOTable;
    AALabel1: TAALabel;
    ePanel1: TbsSkinExPanel;
    DBFc1: TcxDBFilterControl;
    cxButton1: TcxButton;
    ePanel3: TbsSkinExPanel;
    zBox1: TcxCheckBox;
    zBox2: TcxCheckBox;
    zBox3: TcxCheckBox;
    zBox4: TcxCheckBox;
    zBox5: TcxCheckBox;
    zBox6: TcxCheckBox;
    zBox7: TcxCheckBox;
    zBox8: TcxCheckBox;
    cxButton3: TcxButton;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    cxButton2: TcxButton;
    PEh1: TPrintDBGridEh;
    DBGridEh2: TDBGridEh;
    table3: TADOQuery;
    DataSource3: TDataSource;
    AALabel2: TAALabel;
    PEh2: TPrintDBGridEh;
    cxButton4: TcxButton;
    procedure FormCreate(Sender: TObject);
    procedure cxButton1Click(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 cxButton3Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure cxButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jzcxck: Tjzcxck;

implementation

{$R *.dfm}

uses main;

procedure Tjzcxck.FormCreate(Sender: TObject);
begin
epanel1.RollState:=true;
epanel3.RollState:=true;
table1.Close;
table1.SQL.Clear;
table1.SQL.Add('select * from zmzk where jzlx=:lx and jzbh like :bh');
table1.Parameters[0].Value:='收入';
table1.Parameters[1].Value:=formatdatetime('YYYYMM',date)+'%';
table1.Open;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('select * from zmzk where jzlx=:lx and jzbh like :bh');
table3.Parameters[0].Value:='支出';
table3.Parameters[1].Value:=formatdatetime('YYYYMM',date)+'%';
table3.Open;
table2.Open;
end;

procedure Tjzcxck.cxButton1Click(Sender: TObject);
begin
epanel1.RollState:=true;
table1.Close;
table1.SQL.Clear;
table1.SQL.Add('select * from zmzk where jzlx=:lx and ');
table1.Parameters[0].Value:='收入';
table1.SQL.Add(dbfc1.FilterText);
table1.Open;
table3.Close;
table3.SQL.Clear;
table3.SQL.Add('select * from zmzk where jzlx=:lx and ');
table3.Parameters[0].Value:='收入';
table3.SQL.Add(dbfc1.FilterText);
table3.Open;
end;

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

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

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

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

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

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

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

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

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

procedure Tjzcxck.cxButton2Click(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 Tjzcxck.cxButton4Click(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));
//peh1.AfterGridText.Append('操作员:'+main.czy+'  供货商:'+rkzk['khmc']);
//peh1.AfterGridText.Append('地址:'+bsskinlabel7.Caption+'  电话:'+bsskinlabel8.Caption);
peh2.Preview;
end;

end.