rszjz.pas

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

unit rszjz;

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;

type
  Trszjzck = class(TForm)
    dxfColorButton1: TdxfColorButton;
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    table1: TADOQuery;
    DBGridEh2: TDBGridEh;
    DataSource2: TDataSource;
    Table2: TADOTable;
    AALabel1: TAALabel;
    cxLabel1: TcxLabel;
    cEdit1: TcxDBCurrencyEdit;
    cxLabel2: TcxLabel;
    cxDBTextEdit1: TcxDBTextEdit;
    procedure dxfColorButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGridEh2DblClick(Sender: TObject);
    procedure cEdit1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rszjzck: Trszjzck;

implementation

{$R *.dfm}

uses sjk;

procedure Trszjzck.dxfColorButton1Click(Sender: TObject);
begin
table1.UpdateBatch();
end;

procedure Trszjzck.FormCreate(Sender: TObject);
begin
table1.Close;
table1.SQL.Clear;
table1.SQL.Add('select * from zmzk where jzrq>:rq');
table1.Parameters[0].Value:=date;
table1.Open;
table2.Open;
end;

procedure Trszjzck.DBGridEh2DblClick(Sender: TObject);
begin
table1.Append;
table1['jzbh']:=formatdatetime('YYYYMMDDhhmmss',now);
table1['jzkm']:=table2['mc'];
table1['jzlx']:=table2['lx'];
table1['je']:=0;
table1['jzrq']:=date;
table1['nh']:=formatdatetime('YYYY',date);
table1['yf']:=formatdatetime('MM',date);
table1['jzfs']:='现金';
cedit1.SetFocus;
end;

procedure Trszjzck.cEdit1Exit(Sender: TObject);
begin
if table1.RecNo<>table1.RecordCount then
begin
table1.Next;
table1.Prior;
end else table1.Next;

end;

end.