fghs.pas

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

unit fghs;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGridEh, dxfColorButton, cxTextEdit,
  cxCheckBox, cxControls, cxContainer, cxEdit, cxLabel, bsSkinCtrls,
  cxCurrencyEdit, cxDBEdit;

type
  Tfghsck = class(TForm)
    dxfColorButton1: TdxfColorButton;
    Table1: TADOTable;
    DataSource1: TDataSource;
    khzl: TADOQuery;
    DataSource6: TDataSource;
    ePanel2: TbsSkinExPanel;
    cxLabel2: TcxLabel;
    rBox1: TcxCheckBox;
    Edit1: TcxTextEdit;
    DBGridEh3: TDBGridEh;
    cxLabel1: TcxLabel;
    cEdit1: TcxDBCurrencyEdit;
    procedure dxfColorButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1PropertiesChange(Sender: TObject);
    procedure DBGridEh3DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fghsck: Tfghsck;

implementation

{$R *.dfm}

uses sjk;

procedure Tfghsck.dxfColorButton1Click(Sender: TObject);
begin
table1.UpdateBatch();
khzl.Edit;
khzl['ljqk']:=khzl['ljqk']-table1['je'];
khzl.UpdateBatch();
khzl.Close;
close;
end;

procedure Tfghsck.FormCreate(Sender: TObject);
begin
khzl.Open;
end;

procedure Tfghsck.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 Tfghsck.DBGridEh3DblClick(Sender: TObject);
begin
if khzl['ljqk']>0 then
begin
table1.Append;
table1['jzbh']:=formatdatetime('YYYYMMDDhhmmss',now);
table1['jzkm']:='付供货商欠款';
table1['jzrq']:=date;
table1['je']:=khzl['ljqk'];
table1['jzlx']:='支出';
table1['jzfs']:='现金';
table1['nh']:=formatdatetime('YYYY',date);
table1['yf']:=formatdatetime('MM',date);
table1['bz']:='付'+khzl['khmc']+'欠款';
epanel2.Enabled:=false;
end else showmessage('此供货商无欠款！');
end;

end.