ybbcx.~pas

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

end;

procedure Tybbcxck.aBox3PropertiesChange(Sender: TObject);
begin
dbgrideh3.Columns[2].Visible:=abox3.Checked;
end;

procedure Tybbcxck.aBox4PropertiesChange(Sender: TObject);
begin
dbgrideh3.Columns[3].Visible:=abox4.Checked;
end;

procedure Tybbcxck.aBox5PropertiesChange(Sender: TObject);
begin
dbgrideh3.Columns[4].Visible:=abox5.Checked;
end;

procedure Tybbcxck.aBox6PropertiesChange(Sender: TObject);
begin
dbgrideh3.Columns[5].Visible:=abox6.Checked;
end;

procedure Tybbcxck.aBox7PropertiesChange(Sender: TObject);
begin
dbgrideh3.Columns[6].Visible:=abox7.Checked;
end;

procedure Tybbcxck.aBox8PropertiesChange(Sender: TObject);
begin
dbgrideh3.Columns[7].Visible:=abox8.Checked;
end;

procedure Tybbcxck.aBox9PropertiesChange(Sender: TObject);
begin
dbgrideh3.Columns[8].Visible:=abox9.Checked;
end;

procedure Tybbcxck.bbox1PropertiesChange(Sender: TObject);
begin
dbgrideh4.Columns[0].Visible:=bbox1.Checked;
end;

procedure Tybbcxck.bBox2PropertiesChange(Sender: TObject);
begin
dbgrideh4.Columns[1].Visible:=bbox2.Checked;
end;

procedure Tybbcxck.bBox3PropertiesChange(Sender: TObject);
begin
dbgrideh4.Columns[2].Visible:=bbox3.Checked;
end;

procedure Tybbcxck.bBox4PropertiesChange(Sender: TObject);
begin
dbgrideh4.Columns[3].Visible:=bbox4.Checked;
end;

procedure Tybbcxck.bBox5PropertiesChange(Sender: TObject);
begin
dbgrideh4.Columns[4].Visible:=bbox5.Checked;
end;

procedure Tybbcxck.bBox6PropertiesChange(Sender: TObject);
begin
dbgrideh4.Columns[5].Visible:=bbox6.Checked;
end;

procedure Tybbcxck.bBox7PropertiesChange(Sender: TObject);
begin
dbgrideh4.Columns[6].Visible:=bbox7.Checked;
end;

procedure Tybbcxck.bBox8PropertiesChange(Sender: TObject);
begin
dbgrideh4.Columns[7].Visible:=bbox8.Checked;
end;

procedure Tybbcxck.bBox9PropertiesChange(Sender: TObject);
begin
dbgrideh4.Columns[8].Visible:=bbox9.Checked;
end;

procedure Tybbcxck.dBox1PropertiesChange(Sender: TObject);
begin
dbgrideh5.Columns[0].Visible:=dbox1.Checked;
end;

procedure Tybbcxck.dBox2PropertiesChange(Sender: TObject);
begin
dbgrideh5.Columns[1].Visible:=dbox2.Checked;
end;

procedure Tybbcxck.dBox3PropertiesChange(Sender: TObject);
begin
dbgrideh5.Columns[2].Visible:=dbox3.Checked;
end;

procedure Tybbcxck.dBox4PropertiesChange(Sender: TObject);
begin
dbgrideh5.Columns[3].Visible:=dbox4.Checked;
end;

procedure Tybbcxck.dBox5PropertiesChange(Sender: TObject);
begin
dbgrideh5.Columns[4].Visible:=dbox5.Checked;
end;

procedure Tybbcxck.dBox6PropertiesChange(Sender: TObject);
begin
dbgrideh5.Columns[5].Visible:=dbox6.Checked;
end;

procedure Tybbcxck.eBox1PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[0].Visible:=ebox1.Checked;
end;

procedure Tybbcxck.eBox2PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[1].Visible:=ebox2.Checked;
end;

procedure Tybbcxck.eBox3PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[2].Visible:=ebox3.Checked;
end;

procedure Tybbcxck.eBox4PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[3].Visible:=ebox4.Checked;
end;

procedure Tybbcxck.eBox5PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[4].Visible:=ebox5.Checked;
end;

procedure Tybbcxck.eBox6PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[5].Visible:=ebox6.Checked;
end;

procedure Tybbcxck.eBox7PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[6].Visible:=ebox7.Checked;
end;

procedure Tybbcxck.eBox8PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[7].Visible:=ebox8.Checked;
end;

procedure Tybbcxck.eBox9PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[8].Visible:=ebox9.Checked;
end;

procedure Tybbcxck.eBox10PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[9].Visible:=ebox10.Checked;
end;

procedure Tybbcxck.eBox11PropertiesChange(Sender: TObject);
begin
dbgrideh6.Columns[10].Visible:=ebox11.Checked;
end;

procedure Tybbcxck.fBox1PropertiesChange(Sender: TObject);
begin
dbgrideh7.Columns[0].Visible:=fbox1.Checked;
end;

procedure Tybbcxck.fBox2PropertiesChange(Sender: TObject);
begin
dbgrideh7.Columns[1].Visible:=fbox2.Checked;
end;

procedure Tybbcxck.fBox3PropertiesChange(Sender: TObject);
begin
dbgrideh7.Columns[2].Visible:=fbox3.Checked;
end;

procedure Tybbcxck.fBox4PropertiesChange(Sender: TObject);
begin
dbgrideh7.Columns[3].Visible:=fbox4.Checked;
end;

procedure Tybbcxck.fBox5PropertiesChange(Sender: TObject);
begin
dbgrideh7.Columns[4].Visible:=fbox5.Checked;
end;

procedure Tybbcxck.fBox6PropertiesChange(Sender: TObject);
begin
dbgrideh7.Columns[5].Visible:=fbox6.Checked;
end;

procedure Tybbcxck.gBox1PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[0].Visible:=gbox1.Checked;
end;

procedure Tybbcxck.gBox2PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[1].Visible:=gbox2.Checked;
end;

procedure Tybbcxck.gBox3PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[2].Visible:=gbox3.Checked;
end;

procedure Tybbcxck.gBox4PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[3].Visible:=gbox4.Checked;
end;

procedure Tybbcxck.gBox5PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[4].Visible:=gbox5.Checked;
end;

procedure Tybbcxck.gBox6PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[5].Visible:=gbox6.Checked;
end;

procedure Tybbcxck.gBox7PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[6].Visible:=gbox7.Checked;
end;

procedure Tybbcxck.gBox8PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[7].Visible:=gbox8.Checked;
end;

procedure Tybbcxck.gBox9PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[8].Visible:=gbox9.Checked;
end;

procedure Tybbcxck.gBox10PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[9].Visible:=gbox10.Checked;
end;

procedure Tybbcxck.gBox11PropertiesChange(Sender: TObject);
begin
dbgrideh8.Columns[10].Visible:=gbox11.Checked;
end;

procedure Tybbcxck.hBox1PropertiesChange(Sender: TObject);
begin
dbgrideh9.Columns[0].Visible:=hbox1.Checked;
dbgrideh10.Columns[0].Visible:=hbox1.Checked;
end;

procedure Tybbcxck.hBox2PropertiesChange(Sender: TObject);
begin
dbgrideh9.Columns[1].Visible:=hbox2.Checked;
dbgrideh10.Columns[1].Visible:=hbox2.Checked;
end;

procedure Tybbcxck.hBox3PropertiesChange(Sender: TObject);
begin
dbgrideh9.Columns[2].Visible:=hbox3.Checked;
dbgrideh10.Columns[2].Visible:=hbox3.Checked;
end;

procedure Tybbcxck.hBox4PropertiesChange(Sender: TObject);
begin
dbgrideh9.Columns[3].Visible:=hbox4.Checked;
dbgrideh10.Columns[3].Visible:=hbox4.Checked;
end;

procedure Tybbcxck.hBox5PropertiesChange(Sender: TObject);
begin
dbgrideh9.Columns[4].Visible:=hbox5.Checked;
dbgrideh10.Columns[4].Visible:=hbox5.Checked;
end;

procedure Tybbcxck.hBox6PropertiesChange(Sender: TObject);
begin
dbgrideh9.Columns[5].Visible:=hbox6.Checked;
dbgrideh10.Columns[5].Visible:=hbox6.Checked;
end;

procedure Tybbcxck.hBox7PropertiesChange(Sender: TObject);
begin
dbgrideh9.Columns[6].Visible:=hbox7.Checked;
dbgrideh10.Columns[6].Visible:=hbox7.Checked;
end;

procedure Tybbcxck.hBox8PropertiesChange(Sender: TObject);
begin
dbgrideh9.Columns[7].Visible:=hbox8.Checked;
dbgrideh10.Columns[7].Visible:=hbox8.Checked;
end;

procedure Tybbcxck.cxButton3Click(Sender: TObject);
begin
epanel1.RollState:=true;
end;

procedure Tybbcxck.cxButton4Click(Sender: TObject);
begin
epanel2.RollState:=true;
end;

procedure Tybbcxck.cxButton2Click(Sender: TObject);
begin
epanel3.RollState:=true;
end;

procedure Tybbcxck.cxButton5Click(Sender: TObject);
begin
epanel4.RollState:=true;
end;

procedure Tybbcxck.cxButton6Click(Sender: TObject);
begin
epanel5.RollState:=true;
end;

procedure Tybbcxck.cxButton7Click(Sender: TObject);
begin
epanel6.RollState:=true;
end;

procedure Tybbcxck.cxButton8Click(Sender: TObject);
begin
epanel7.RollState:=true;
end;

procedure Tybbcxck.cxButton9Click(Sender: TObject);
begin
epanel8.RollState:=true;
end;

procedure Tybbcxck.cxButton10Click(Sender: TObject);
begin
epanel9.RollState:=true;
end;

procedure Tybbcxck.Button1Click(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('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
//peh1.AfterGridText.Append('地址:'+bsskinlabel7.Caption+'  电话:'+bsskinlabel8.Caption);
peh1.Preview;
end;

procedure Tybbcxck.Button2Click(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('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
peh2.Preview;
end;

procedure Tybbcxck.Button3Click(Sender: TObject);
begin
//打印
peh3.PrinterSetupDialog;
peh3.PageHeader.CenterText.Clear;
peh3.PageHeader.LeftText.Clear;
peh3.PageHeader.CenterText.Append(main.sydwqc+'出库清单');
peh3.PageHeader.LeftText.Append(' ');
peh3.PageHeader.RightText.Append(' ');
peh3.PageHeader.LeftText.Append('操作员:'+main.czy);
peh3.PageHeader.RightText.Append('打印日期：'+datetostr(date));
peh3.AfterGridText.Append('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
peh3.Preview;
end;

procedure Tybbcxck.Button4Click(Sender: TObject);
begin
//打印
peh4.PrinterSetupDialog;
peh4.PageHeader.CenterText.Clear;
peh4.PageHeader.LeftText.Clear;
peh4.PageHeader.CenterText.Append(main.sydwqc+'出库明细');
peh4.PageHeader.LeftText.Append(' ');
peh4.PageHeader.RightText.Append(' ');
peh4.PageHeader.LeftText.Append('操作员:'+main.czy);
peh4.PageHeader.RightText.Append('打印日期：'+datetostr(date));
peh4.AfterGridText.Append('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
peh4.Preview;
end;

procedure Tybbcxck.Button5Click(Sender: TObject);
begin
//打印
peh5.PrinterSetupDialog;
peh5.PageHeader.CenterText.Clear;
peh5.PageHeader.LeftText.Clear;
peh5.PageHeader.CenterText.Append(main.sydwqc+'退货清单');
peh5.PageHeader.LeftText.Append(' ');
peh5.PageHeader.RightText.Append(' ');
peh5.PageHeader.LeftText.Append('操作员:'+main.czy);
peh5.PageHeader.RightText.Append('打印日期：'+datetostr(date));
peh5.AfterGridText.Append('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
peh5.Preview;
end;

procedure Tybbcxck.Button6Click(Sender: TObject);
begin
//打印
peh6.PrinterSetupDialog;
peh6.PageHeader.CenterText.Clear;
peh6.PageHeader.LeftText.Clear;
peh6.PageHeader.CenterText.Append(main.sydwqc+'退货明细');
peh6.PageHeader.LeftText.Append(' ');
peh6.PageHeader.RightText.Append(' ');
peh6.PageHeader.LeftText.Append('操作员:'+main.czy);
peh6.PageHeader.RightText.Append('打印日期：'+datetostr(date));
peh6.AfterGridText.Append('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
peh6.Preview;
end;

procedure Tybbcxck.Button7Click(Sender: TObject);
begin
//打印
peh7.PrinterSetupDialog;
peh7.PageHeader.CenterText.Clear;
peh7.PageHeader.LeftText.Clear;
peh7.PageHeader.CenterText.Append(main.sydwqc+'退库清单');
peh7.PageHeader.LeftText.Append(' ');
peh7.PageHeader.RightText.Append(' ');
peh7.PageHeader.LeftText.Append('操作员:'+main.czy);
peh7.PageHeader.RightText.Append('打印日期：'+datetostr(date));
peh7.AfterGridText.Append('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
peh7.Preview;
end;

procedure Tybbcxck.Button8Click(Sender: TObject);
begin
//打印
peh8.PrinterSetupDialog;
peh8.PageHeader.CenterText.Clear;
peh8.PageHeader.LeftText.Clear;
peh8.PageHeader.CenterText.Append(main.sydwqc+'退库明细');
peh8.PageHeader.LeftText.Append(' ');
peh8.PageHeader.RightText.Append(' ');
peh8.PageHeader.LeftText.Append('操作员:'+main.czy);
peh8.PageHeader.RightText.Append('打印日期：'+datetostr(date));
peh8.AfterGridText.Append('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
peh8.Preview;
end;

procedure Tybbcxck.cxButton11Click(Sender: TObject);
begin
//打印
peh9.PrinterSetupDialog;
peh9.PageHeader.CenterText.Clear;
peh9.PageHeader.LeftText.Clear;
peh9.PageHeader.CenterText.Append(main.sydwqc+'收入明细');
peh9.PageHeader.LeftText.Append(' ');
peh9.PageHeader.RightText.Append(' ');
peh9.PageHeader.LeftText.Append('操作员:'+main.czy);
peh9.PageHeader.RightText.Append('打印日期：'+datetostr(date));
peh9.AfterGridText.Append('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
peh9.Preview;
end;

procedure Tybbcxck.cxButton12Click(Sender: TObject);
begin
//打印
peh10.PrinterSetupDialog;
peh10.PageHeader.CenterText.Clear;
peh10.PageHeader.LeftText.Clear;
peh10.PageHeader.CenterText.Append(main.sydwqc+'支出明细');
peh10.PageHeader.LeftText.Append(' ');
peh10.PageHeader.RightText.Append(' ');
peh10.PageHeader.LeftText.Append('操作员:'+main.czy);
peh10.PageHeader.RightText.Append('打印日期：'+datetostr(date));
peh10.AfterGridText.Append('查询年度:'+cbox1.text+'  查询月份:'+cbox2.text);
peh10.Preview;

end;

end.