unit ybbcx;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGridEh, dxfColorButton, cxTextEdit,
  cxMaskEdit, cxDropDownEdit, cxContainer, cxEdit, cxLabel, cxPC,
  cxControls, cxLookAndFeelPainters, StdCtrls, cxButtons, PrnDbgeh,
  cxCheckBox, bsSkinCtrls, AAFont, AACtrls, RichButton, cxCurrencyEdit;

type
  Tybbcxck = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxTabSheet2: TcxTabSheet;
    cxTabSheet3: TcxTabSheet;
    cxTabSheet4: TcxTabSheet;
    cxTabSheet5: TcxTabSheet;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cBox1: TcxComboBox;
    cBox2: TcxComboBox;
    DBGridEh2: TDBGridEh;
    ePanel2: TbsSkinExPanel;
    sBox1: TcxCheckBox;
    sBox2: TcxCheckBox;
    sBox3: TcxCheckBox;
    sBox4: TcxCheckBox;
    sBox5: TcxCheckBox;
    sBox6: TcxCheckBox;
    sBox7: TcxCheckBox;
    sBox8: TcxCheckBox;
    cxButton4: TcxButton;
    sBox9: TcxCheckBox;
    sprk: TADOQuery;
    DataSource2: TDataSource;
    PEh2: TPrintDBGridEh;
    DataSource1: TDataSource;
    rkzk: TADOQuery;
    PEh1: TPrintDBGridEh;
    DBGridEh1: TDBGridEh;
    ePanel1: TbsSkinExPanel;
    zBox1: TcxCheckBox;
    zBox2: TcxCheckBox;
    zBox3: TcxCheckBox;
    zBox4: TcxCheckBox;
    zBox5: TcxCheckBox;
    zBox6: TcxCheckBox;
    zBox7: TcxCheckBox;
    zBox8: TcxCheckBox;
    cxButton3: TcxButton;
    zBox9: TcxCheckBox;
    AALabel2: TAALabel;
    AALabel1: TAALabel;
    DataSource3: TDataSource;
    ckzk: TADOQuery;
    PEh3: TPrintDBGridEh;
    DBGridEh3: TDBGridEh;
    ePanel3: TbsSkinExPanel;
    aBox1: TcxCheckBox;
    aBox2: TcxCheckBox;
    aBox3: TcxCheckBox;
    aBox4: TcxCheckBox;
    aBox5: TcxCheckBox;
    aBox6: TcxCheckBox;
    aBox7: TcxCheckBox;
    aBox8: TcxCheckBox;
    cxButton2: TcxButton;
    aBox9: TcxCheckBox;
    AALabel3: TAALabel;
    DataSource4: TDataSource;
    spck: TADOQuery;
    PEh4: TPrintDBGridEh;
    DBGridEh4: TDBGridEh;
    AALabel4: TAALabel;
    ePanel4: TbsSkinExPanel;
    bbox1: TcxCheckBox;
    bBox2: TcxCheckBox;
    bBox3: TcxCheckBox;
    bBox4: TcxCheckBox;
    bBox5: TcxCheckBox;
    bBox6: TcxCheckBox;
    bBox7: TcxCheckBox;
    bBox8: TcxCheckBox;
    cxButton5: TcxButton;
    bBox9: TcxCheckBox;
    DataSource5: TDataSource;
    thzk: TADOQuery;
    PEh5: TPrintDBGridEh;
    DBGridEh5: TDBGridEh;
    AALabel5: TAALabel;
    ePanel5: TbsSkinExPanel;
    dBox1: TcxCheckBox;
    dBox2: TcxCheckBox;
    dBox3: TcxCheckBox;
    dBox4: TcxCheckBox;
    dBox5: TcxCheckBox;
    dBox6: TcxCheckBox;
    cxButton6: TcxButton;
    AALabel6: TAALabel;
    DBGridEh6: TDBGridEh;
    ePanel6: TbsSkinExPanel;
    eBox1: TcxCheckBox;
    eBox2: TcxCheckBox;
    eBox3: TcxCheckBox;
    eBox4: TcxCheckBox;
    eBox5: TcxCheckBox;
    eBox6: TcxCheckBox;
    eBox7: TcxCheckBox;
    eBox8: TcxCheckBox;
    cxButton7: TcxButton;
    eBox9: TcxCheckBox;
    eBox10: TcxCheckBox;
    eBox11: TcxCheckBox;
    PEh6: TPrintDBGridEh;
    spth: TADOQuery;
    DataSource6: TDataSource;
    DBGridEh7: TDBGridEh;
    DataSource7: TDataSource;
    tkzk: TADOQuery;
    PEh7: TPrintDBGridEh;
    AALabel7: TAALabel;
    ePanel7: TbsSkinExPanel;
    fBox1: TcxCheckBox;
    fBox2: TcxCheckBox;
    fBox3: TcxCheckBox;
    fBox4: TcxCheckBox;
    fBox5: TcxCheckBox;
    fBox6: TcxCheckBox;
    cxButton8: TcxButton;
    PEh8: TPrintDBGridEh;
    sptk: TADOQuery;
    DataSource8: TDataSource;
    DBGridEh8: TDBGridEh;
    AALabel8: TAALabel;
    ePanel8: TbsSkinExPanel;
    gBox1: TcxCheckBox;
    gBox2: TcxCheckBox;
    gBox3: TcxCheckBox;
    gBox4: TcxCheckBox;
    gBox5: TcxCheckBox;
    gBox6: TcxCheckBox;
    gBox7: TcxCheckBox;
    gBox8: TcxCheckBox;
    cxButton9: TcxButton;
    gBox9: TcxCheckBox;
    gBox10: TcxCheckBox;
    gBox11: TcxCheckBox;
    DBGridEh9: TDBGridEh;
    ePanel9: TbsSkinExPanel;
    hBox1: TcxCheckBox;
    hBox2: TcxCheckBox;
    hBox3: TcxCheckBox;
    hBox4: TcxCheckBox;
    hBox5: TcxCheckBox;
    hBox6: TcxCheckBox;
    hBox7: TcxCheckBox;
    hBox8: TcxCheckBox;
    cxButton10: TcxButton;
    AALabel9: TAALabel;
    DataSource9: TDataSource;
    srjz: TADOQuery;
    PEh9: TPrintDBGridEh;
    AALabel10: TAALabel;
    PEh10: TPrintDBGridEh;
    zcjz: TADOQuery;
    DataSource10: TDataSource;
    DBGridEh10: TDBGridEh;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    cxLabel3: TcxLabel;
    cEdit1: TcxCurrencyEdit;
    cxLabel4: TcxLabel;
    cEdit2: TcxCurrencyEdit;
    cxLabel5: TcxLabel;
    cEdit3: TcxCurrencyEdit;
    cxLabel6: TcxLabel;
    cEdit4: TcxCurrencyEdit;
    cxLabel7: TcxLabel;
    cEdit5: TcxCurrencyEdit;
    cxLabel8: TcxLabel;
    cEdit6: TcxCurrencyEdit;
    cxButton1: TcxButton;
    cxButton12: TcxButton;
    cxButton11: TcxButton;
    procedure FormCreate(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 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 cxButton1Click(Sender: TObject);
    procedure aBox1PropertiesChange(Sender: TObject);
    procedure aBox2PropertiesChange(Sender: TObject);
    procedure aBox3PropertiesChange(Sender: TObject);
    procedure aBox4PropertiesChange(Sender: TObject);
    procedure aBox5PropertiesChange(Sender: TObject);
    procedure aBox6PropertiesChange(Sender: TObject);
    procedure aBox7PropertiesChange(Sender: TObject);
    procedure aBox8PropertiesChange(Sender: TObject);
    procedure aBox9PropertiesChange(Sender: TObject);
    procedure bbox1PropertiesChange(Sender: TObject);
    procedure bBox2PropertiesChange(Sender: TObject);
    procedure bBox3PropertiesChange(Sender: TObject);
    procedure bBox4PropertiesChange(Sender: TObject);
    procedure bBox5PropertiesChange(Sender: TObject);
    procedure bBox6PropertiesChange(Sender: TObject);
    procedure bBox7PropertiesChange(Sender: TObject);
    procedure bBox8PropertiesChange(Sender: TObject);
    procedure bBox9PropertiesChange(Sender: TObject);
    procedure dBox1PropertiesChange(Sender: TObject);
    procedure dBox2PropertiesChange(Sender: TObject);
    procedure dBox3PropertiesChange(Sender: TObject);
    procedure dBox4PropertiesChange(Sender: TObject);
    procedure dBox5PropertiesChange(Sender: TObject);
    procedure dBox6PropertiesChange(Sender: TObject);
    procedure eBox1PropertiesChange(Sender: TObject);
    procedure eBox2PropertiesChange(Sender: TObject);
    procedure eBox3PropertiesChange(Sender: TObject);
    procedure eBox4PropertiesChange(Sender: TObject);
    procedure eBox5PropertiesChange(Sender: TObject);
    procedure eBox6PropertiesChange(Sender: TObject);
    procedure eBox7PropertiesChange(Sender: TObject);
    procedure eBox8PropertiesChange(Sender: TObject);
    procedure eBox9PropertiesChange(Sender: TObject);
    procedure eBox10PropertiesChange(Sender: TObject);
    procedure eBox11PropertiesChange(Sender: TObject);
    procedure fBox1PropertiesChange(Sender: TObject);
    procedure fBox2PropertiesChange(Sender: TObject);
    procedure fBox3PropertiesChange(Sender: TObject);
    procedure fBox4PropertiesChange(Sender: TObject);
    procedure fBox5PropertiesChange(Sender: TObject);
    procedure fBox6PropertiesChange(Sender: TObject);
    procedure gBox1PropertiesChange(Sender: TObject);
    procedure gBox2PropertiesChange(Sender: TObject);
    procedure gBox3PropertiesChange(Sender: TObject);
    procedure gBox4PropertiesChange(Sender: TObject);
    procedure gBox5PropertiesChange(Sender: TObject);
    procedure gBox6PropertiesChange(Sender: TObject);
    procedure gBox7PropertiesChange(Sender: TObject);
    procedure gBox8PropertiesChange(Sender: TObject);
    procedure gBox9PropertiesChange(Sender: TObject);
    procedure gBox10PropertiesChange(Sender: TObject);
    procedure gBox11PropertiesChange(Sender: TObject);
    procedure hBox1PropertiesChange(Sender: TObject);
    procedure hBox2PropertiesChange(Sender: TObject);
    procedure hBox3PropertiesChange(Sender: TObject);
    procedure hBox4PropertiesChange(Sender: TObject);
    procedure hBox5PropertiesChange(Sender: TObject);
    procedure hBox6PropertiesChange(Sender: TObject);
    procedure hBox7PropertiesChange(Sender: TObject);
    procedure hBox8PropertiesChange(Sender: TObject);
    procedure cxButton3Click(Sender: TObject);
    procedure cxButton4Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure cxButton5Click(Sender: TObject);
    procedure cxButton6Click(Sender: TObject);
    procedure cxButton7Click(Sender: TObject);
    procedure cxButton8Click(Sender: TObject);
    procedure cxButton9Click(Sender: TObject);
    procedure cxButton10Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure cxButton12Click(Sender: TObject);
    procedure cxButton11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ybbcxck: Tybbcxck;

implementation

{$R *.dfm}

uses main;

procedure Tybbcxck.FormCreate(Sender: TObject);
var nh,i:integer;
begin
epanel1.RollState:=true;
epanel2.RollState:=true;
epanel3.RollState:=true;
epanel4.RollState:=true;
epanel5.RollState:=true;
epanel6.RollState:=true;
epanel7.RollState:=true;
epanel8.RollState:=true;
epanel9.RollState:=true;

nh:=strtoint(formatdatetime('yyyy',date));
for i:=0 to 3 do
cbox1.Properties.Items.Append(inttostr(nh-i));
cbox1.ItemIndex:=0;
cbox2.ItemIndex:=strtoint(formatdatetime('MM',date))-1;
cxbutton11.Caption:='打印'+chr(13)+'收入'+chr(13)+'明細';
cxbutton12.Caption:='打印'+chr(13)+'支出'+chr(13)+'明細';
cxbutton1.Click;
end;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

procedure Tybbcxck.cxButton1Click(Sender: TObject);
begin
rkzk.Close;
rkzk.SQL.Clear;
rkzk.SQL.Add('select * from sprkzk where jhbh like :bh');
rkzk.Parameters[0].Value:=cbox1.Text+cbox2.Text+'%';
rkzk.Open;

sprk.Close;
sprk.SQL.Clear;
sprk.SQL.Add('select * from sprkd where jhbh like :bh');
sprk.Parameters[0].Value:=cbox1.Text+cbox2.Text+'%';
sprk.Open;

ckzk.Close;
ckzk.SQL.Clear;
ckzk.SQL.Add('select * from spckzk where jhbh like :bh');
ckzk.Parameters[0].Value:=cbox1.Text+cbox2.Text+'%';
ckzk.Open;

spck.Close;
spck.SQL.Clear;
spck.SQL.Add('select * from spckd where jhbh like :bh');
spck.Parameters[0].Value:=cbox1.Text+cbox2.Text+'%';
spck.Open;

thzk.Close;
thzk.SQL.Clear;
thzk.SQL.Add('select * from spthzk where tkbh like :bh');
thzk.Parameters[0].Value:=cbox1.Text+cbox2.Text+'%';
thzk.Open;

spth.Close;
spth.SQL.Clear;
spth.SQL.Add('select * from spthd where tkbh like :bh');
spth.Parameters[0].Value:=cbox1.Text+cbox2.Text+'%';
spth.Open;

tkzk.Close;
tkzk.SQL.Clear;
tkzk.SQL.Add('select * from sptkzk where tkbh like :bh');
tkzk.Parameters[0].Value:=cbox1.Text+cbox2.Text+'%';
tkzk.Open;

sptk.Close;
sptk.SQL.Clear;
sptk.SQL.Add('select * from sptkd where tkbh like :bh');
sptk.Parameters[0].Value:=cbox1.Text+cbox2.Text+'%';
sptk.Open;

srjz.Close;
srjz.SQL.Clear;
srjz.SQL.Add('select * from zmzk where jzlx=:lx and jzbh like :bh');
srjz.Parameters[0].Value:='收入';
srjz.Parameters[1].Value:=cbox1.Text+cbox2.Text+'%';
srjz.Open;

zcjz.Close;
zcjz.SQL.Clear;
zcjz.SQL.Add('select * from zmzk where jzlx=:lx and jzbh like :bh');
zcjz.Parameters[0].Value:='支出';
zcjz.Parameters[1].Value:=cbox1.Text+cbox2.Text+'%';
zcjz.Open;

cedit1.Value:=dbgrideh1.Columns[3].Footers[0].SumValue;
cedit2.Value:=dbgrideh3.Columns[3].Footers[0].SumValue;
cedit3.Value:=dbgrideh5.Columns[3].Footers[0].SumValue;
cedit4.Value:=dbgrideh7.Columns[3].Footers[0].SumValue;
cedit5.Value:=dbgrideh9.Columns[3].Footers[0].SumValue;
cedit6.Value:=dbgrideh10.Columns[3].Footers[0].SumValue;

end;

procedure Tybbcxck.aBox1PropertiesChange(Sender: TObject);
begin
dbgrideh3.Columns[0].Visible:=abox1.Checked;
end;

procedure Tybbcxck.aBox2PropertiesChange(Sender: TObject);
begin
dbgrideh3.Columns[1].Visible:=abox2.Checked;