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.