sprk.~pas

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

unit sprk;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxExEdtr, DB, ADODB, dxCntner, dxTL, dxDBCtrl, dxDBTL, ComCtrls,
  dxtree, dxdbtree, dxdbtrel, cxLookAndFeelPainters, dxfColorButton,
  StdCtrls, cxButtons, cxMaskEdit, cxSpinEdit, cxDBEdit, cxCurrencyEdit,
  Grids, DBGridEh, cxLabel, cxControls, cxContainer, cxEdit, cxTextEdit,
  bsSkinCtrls, HzSpell, cxGraphics, cxCustomData, cxStyles, cxTL,
  cxInplaceContainer, cxDBTL, cxTLData, Mask, DBCtrlsEh, DBLookupEh, Menus,
  cxDBExtLookupComboBox, cxFilterControl, cxDBFilterControl,
  cxDBLookupComboBox, AAFont, AACtrls, cxCheckBox, cxDropDownEdit,
  cxCalendar, DBSumLst, PrnDbgeh;

type
  Tsprkck = class(TForm)
    Table2: TADOTable;
    Table3: TADOTable;
    DataSource0: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    py: THzSpell;
    spzl: TADOQuery;
    ADOQy1: TADOQuery;
    dxDBTreeList1: TdxDBTreeList;
    dxDBTreeList1Column1: TdxDBTreeListColumn;
    DBGridEh1: TDBGridEh;
    cxLabel1: TcxLabel;
    DataSource1: TDataSource;
    dblp1: TDBLookupComboboxEh;
    sprk: TADOQuery;
    Table8: TADOTable;
    DataSource8: TDataSource;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    ePanel1: TbsSkinExPanel;
    DBFc1: TcxDBFilterControl;
    cxButton1: TcxButton;
    Table5: TADOTable;
    DataSource5: TDataSource;
    DBGridEh2: TDBGridEh;
    AALabel1: TAALabel;
    ePanel2: TbsSkinExPanel;
    cxLabel2: TcxLabel;
    rBox1: TcxCheckBox;
    Edit1: TcxTextEdit;
    DBGridEh3: TDBGridEh;
    khzl: TADOQuery;
    rkzk: TADOQuery;
    DataSource4: TDataSource;
    DataSource6: TDataSource;
    DataSource7: TDataSource;
    ePanel3: TbsSkinExPanel;
    cxLabel3: TcxLabel;
    DBEdit1: TcxDBTextEdit;
    cxLabel4: TcxLabel;
    DateEdit1: TcxDBDateEdit;
    cxLabel5: TcxLabel;
    cEdit1: TcxDBCurrencyEdit;
    cxLabel8: TcxLabel;
    cEdit4: TcxDBCurrencyEdit;
    cxLabel9: TcxLabel;
    cxLabel10: TcxLabel;
    cBox1: TcxDBComboBox;
    sEdit1: TcxDBSpinEdit;
    ePanel4: TbsSkinExPanel;
    cxLabel11: TcxLabel;
    cxLabel12: TcxLabel;
    cxLabel13: TcxLabel;
    cxLabel14: TcxLabel;
    cxLabel15: TcxLabel;
    cEdit5: TcxDBCurrencyEdit;
    cEdit6: TcxDBCurrencyEdit;
    cEdit7: TcxDBCurrencyEdit;
    cEdit8: TcxDBCurrencyEdit;
    DBSEdit1: TcxDBSpinEdit;
    cxButton2: TcxButton;
    cxButton3: TcxButton;
    PopupMenu2: TPopupMenu;
    MenuItem1: TMenuItem;
    cxLabel6: TcxLabel;
    cEdit2: TcxDBCurrencyEdit;
    cxLabel7: TcxLabel;
    cEdit3: TcxDBCurrencyEdit;
    ePanel5: TbsSkinExPanel;
    sBox1: TcxCheckBox;
    sBox2: TcxCheckBox;
    sBox3: TcxCheckBox;
    sBox4: TcxCheckBox;
    sBox5: TcxCheckBox;
    sBox6: TcxCheckBox;
    sBox7: TcxCheckBox;
    sBox8: TcxCheckBox;
    cxButton4: TcxButton;
    PEh1: TPrintDBGridEh;
    dy: TcxCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure dblp1Change(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure cxButton1Click(Sender: TObject);
    procedure Edit1PropertiesChange(Sender: TObject);
    procedure DBGridEh3DblClick(Sender: TObject);
    procedure cxDBSpinEdit1PropertiesChange(Sender: TObject);
    procedure DBGridEh1DblClick(Sender: TObject);
    procedure cEdit3PropertiesChange(Sender: TObject);
    procedure cEdit2PropertiesChange(Sender: TObject);
    procedure MenuItem1Click(Sender: TObject);
    procedure cxButton2Click(Sender: TObject);
    procedure cxButton3Click(Sender: TObject);
    procedure cEdit5Exit(Sender: TObject);
    procedure DBSEdit1Exit(Sender: TObject);
    procedure rBox1Click(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 cxButton4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  sprkck: Tsprkck;

implementation

{$R *.dfm}

uses main;

procedure Tsprkck.FormCreate(Sender: TObject);
begin
table2.Open;
table5.Open;
table8.Open;
rkzk.Open;
rkzk.Append;
rkzk['jhbh']:=formatdatetime('yyyymmddhhmmss',now);
rkzk['jhrq']:=date;
rkzk['fkrq']:=date;
rkzk['fkqx']:=0;
rkzk['jzfs']:='现金';
dbgrideh2.Columns[7].Visible:=false;
spzl.Open;
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where ckh=:bh');
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Open;
table8.Edit;
table8['mc']:=table2['mc'];
epanel1.RollState:=true;
epanel5.RollState:=true;
end;

procedure Tsprkck.dblp1Change(Sender: TObject);
begin
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where ckh=:bh');
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Open;

end;

procedure Tsprkck.N1Click(Sender: TObject);
begin
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where (ckh=:bh) and (spbh like :bh)');
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Parameters[1].Value:=spzl['spbh']+'%';
adoqy1.Open;
end;

procedure Tsprkck.cxButton1Click(Sender: TObject);
begin
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc where (ckh=:bh) and (spbh like :bh) and ');
adoqy1.SQL.Add(dbfc1.FilterText);
adoqy1.Parameters[0].Value:=table2['bh'];
adoqy1.Parameters[1].Value:=spzl['spbh']+'%';
adoqy1.Open;
epanel1.RollState:=true;
end;

procedure Tsprkck.Edit1PropertiesChange(Sender: TObject);
begin
khzl.Close;
khzl.SQL.Clear;
if rbox1.Checked then
begin
khzl.SQL.Add('select * from ghszl where zjm like :mc');
khzl.Parameters[0].Value:='%'+edit1.Text+'%';
end else
begin
khzl.SQL.Add('select * from ghszl where khmc like :mc');
khzl.Parameters[0].Value:='%'+edit1.Text+'%';
end;
khzl.Open;
end;

procedure Tsprkck.DBGridEh3DblClick(Sender: TObject);
begin
if khzl.RecordCount>0 then
begin
epanel2.RollState:=true;
rkzk.Edit;
rkzk['khbh']:=khzl['khbh'];
rkzk['khmc']:=khzl['khmc'];
dbgrideh1.Enabled:=true;
dbgrideh2.Enabled:=true;
dbgrideh3.Enabled:=false;
sprk.Close;
sprk.SQL.Clear;
sprk.SQL.Add('select * from sprkd where jhbh=:bh');
sprk.Parameters[0].Value:=rkzk['jhbh'];
sprk.Open;
end;
end;

procedure Tsprkck.cxDBSpinEdit1PropertiesChange(Sender: TObject);
begin
rkzk.Edit;
rkzk['fkrq']:=rkzk['jhrq']+sedit1.Value;
end;

procedure Tsprkck.DBGridEh1DblClick(Sender: TObject);
begin
epanel4.Enabled:=true;
sprk.Append;
sprk['spmc']:=adoqy1['spmc'];
sprk['spbh']:=adoqy1['spbh'];
sprk['sjmc']:=adoqy1['sjmc'];
sprk['sjbh']:=adoqy1['sjbh'];
sprk['dw']:=adoqy1['dw'];
sprk['jj']:=adoqy1['jj'];
sprk['pfj']:=adoqy1['pfj'];
sprk['sj']:=adoqy1['sj'];
sprk['sl']:=1;
sprk['je']:=adoqy1['jj'];
//sprk.edit;
sprk['ckh']:=adoqy1['ckh'];
sprk['zjm']:=adoqy1['zjm'];
sprk['zjm1']:=adoqy1['zjm1'];
sprk['jhbh']:=rkzk['jhbh'];
sprk.Prior;
sprk.Next;
rkzk.Edit;
rkzk['je']:=dbgrideh2.Columns[6].Footers[0].SumValue;
rkzk['ssje']:=rkzk['je'];
rkzk['yfje']:=rkzk['je'];
dbsedit1.SetFocus;
end;

procedure Tsprkck.cEdit3PropertiesChange(Sender: TObject);
begin
rkzk.Edit;
rkzk['qkje']:=rkzk['ssje']-cedit3.Value;
if cedit3.Value<rkzk['ssje'] then
begin
rkzk['jzfs']:='欠帐';

end;
end;

procedure Tsprkck.cEdit2PropertiesChange(Sender: TObject);
begin
rkzk.Edit;
rkzk['yfje']:=cedit2.Value;
rkzk['qkje']:=cedit2.Value-rkzk['yfje'];
end;

procedure Tsprkck.MenuItem1Click(Sender: TObject);
begin
sprk.Delete;
rkzk.Edit;
rkzk['je']:=dbgrideh2.Columns[6].Footers[0].SumValue;
rkzk['ssje']:=rkzk['je'];
rkzk['yfje']:=rkzk['je'];
end;

procedure Tsprkck.cxButton2Click(Sender: TObject);
begin
if sprk.RecordCount>0 then
begin
rkzk.Edit;
if sprk.RecNo<>sprk.RecordCount then
begin
sprk.Next;
sprk.Prior;
end else sprk.Next;
rkzk['je']:=dbgrideh2.Columns[6].Footers[0].SumValue;
rkzk['ssje']:=rkzk['je'];
rkzk['yfje']:=rkzk['je'];
cxbutton3.Enabled:=true;
dbgrideh1.Enabled:=false;
dbgrideh2.Enabled:=false;
epanel3.Enabled:=true;
cedit2.SetFocus;
end;
end;

procedure Tsprkck.cxButton3Click(Sender: TObject);
var i:integer;
begin
rkzk.UpdateBatch();
sprk.UpdateBatch();
//记入客户资料
if khzl.Locate('khmc',rkzk['khmc'],[]) then
begin
khzl.Edit;
khzl['ljxf']:=khzl['ljxf']+rkzk['je'];
khzl['ljqk']:=khzl['ljqk']+rkzk['qkje'];
khzl['ljyh']:=khzl['ljyh']+rkzk['je']-rkzk['ssje'];

end;
khzl.UpdateBatch();
adoqy1.DisableControls;
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from spkc');
adoqy1.Open;
i:=1;
sprk.DisableControls;
//加入商品总库
sprk.First;
while i<=sprk.RecordCount do
begin
if adoqy1.Locate('spbh;ckh',vararrayof([sprk['spbh'],sprk['ckh']]),[]) then
begin
adoqy1.Edit;
adoqy1['jj']:=(adoqy1['jj']+sprk['jj'])/2;
adoqy1['sl']:=adoqy1['sl']+sprk['sl'];
adoqy1['je']:=adoqy1['je']+sprk['je'];

end;
i:=i+1;
sprk.Next;
end;
adoqy1.UpdateBatch();
//记入帐目总库
adoqy1.Close;
adoqy1.SQL.Clear;
adoqy1.SQL.Add('select * from zmzk');
adoqy1.Open;
adoqy1.Append;
adoqy1['jhbh']:=rkzk['jhbh'];
adoqy1['jzbh']:=rkzk['jhbh'];
adoqy1['jzrq']:=date;
adoqy1['jzkm']:='进货付款';
adoqy1['jzlx']:='支出';
adoqy1['je']:=rkzk['ssje'];
adoqy1['qkje']:=rkzk['qkje'];
adoqy1['jzfs']:=rkzk['jzfs'];
adoqy1['nh']:=formatdatetime('YYYY',date);
adoqy1['YF']:=formatdatetime('MM',date);
adoqy1.UpdateBatch();
adoqy1.Close;
//打印
if dy.Checked then
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('入库编号：'+rkzk['jhbh']);
peh1.PageHeader.RightText.Append('打印日期：'+datetostr(date));
peh1.AfterGridText.Append('操作员:'+main.czy+'  供货商:'+rkzk['khmc']);
//peh1.AfterGridText.Append('地址:'+bsskinlabel7.Caption+'  电话:'+bsskinlabel8.Caption);
peh1.Preview;
end;
khzl.Close;
sprk.Close;
//rkzk.Close;
adoqy1.Close;
close;
end;

procedure Tsprkck.cEdit5Exit(Sender: TObject);
begin
sprk.Edit;
sprk['je']:=cedit5.Value*sprk['sl'];
rkzk.Edit;
if sprk.RecNo<>sprk.RecordCount then
begin
sprk.Next;
sprk.Prior;
end else sprk.Next;
rkzk['je']:=dbgrideh2.Columns[6].Footers[0].SumValue;
rkzk['ssje']:=rkzk['je'];
rkzk['yfje']:=rkzk['je'];
end;

procedure Tsprkck.DBSEdit1Exit(Sender: TObject);
begin
sprk.Edit;
sprk['je']:=dbsedit1.Value*sprk['jj'];
rkzk.Edit;
if sprk.RecNo<>sprk.RecordCount then
begin
sprk.Next;
sprk.Prior;
end else sprk.Next;
rkzk['je']:=dbgrideh2.Columns[6].Footers[0].SumValue;
rkzk['ssje']:=rkzk['je'];
rkzk['yfje']:=rkzk['je'];
end;

procedure Tsprkck.rBox1Click(Sender: TObject);
begin
edit1.SetFocus;
end;

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

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

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

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

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

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

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

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

procedure Tsprkck.cxButton4Click(Sender: TObject);
begin
epanel5.RollState:=true;
end;

end.