upurchase.pas

这是一个三层的进销存系统

unit upurchase;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MDIbaseinfo, ImgList, ActnList, Grids, DBGridEh, Buttons,
  StdCtrls, ExtCtrls, Mask, wwdbedit, wwdbdatetimepicker, DB, DBClient,
  wwdblook, ComCtrls, Menus, FR_Class, FR_Desgn, FR_DSet, FR_DBSet;

type
  Tfrmpurchase = class(TfrmMDIbaseinfo)
    Label5: TLabel;
    wwDBEdit4: TwwDBEdit;
    Label6: TLabel;
    wwDBEdit5: TwwDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    wwDBEdit8: TwwDBEdit;
    Label9: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    CDSstore: TClientDataSet;
    CDSstoreField: TStringField;
    CDSsubfid: TAutoIncField;
    CDSsubfresid: TIntegerField;
    CDSsubfitemid: TIntegerField;
    CDSsubfqty: TBCDField;
    CDSsubfprice: TBCDField;
    CDSsubfcode: TWideStringField;
    CDSsubfname: TWideStringField;
    CDSsubfunit: TWideStringField;
    CDSsubftype: TWideStringField;
    CDSsubfamount: TFloatField;
    CDSmasterfid: TAutoIncField;
    CDSmasterfresid: TIntegerField;
    CDSmasterfrefno: TWideStringField;
    CDSmasterfpurno: TWideStringField;
    CDSmasterfprovider: TWideStringField;
    CDSmasterfpurer: TWideStringField;
    CDSmasterfpurstore: TWideStringField;
    CDSmasterfdelivdate: TDateTimeField;
    CDSmasterfnote: TWideStringField;
    CDSmasterfcreadate: TDateTimeField;
    CDSmasterfcreauser: TWideStringField;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CDSsubCalcFields(DataSet: TDataSet);
    procedure GridColumns3EditButtonDown(Sender: TObject;
      TopButton: Boolean; var AutoRepeat, Handled: Boolean);
  private
    procedure creastoredata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmpurchase: Tfrmpurchase;

implementation

uses Global, upurchase_f;

{$R *.dfm}

procedure Tfrmpurchase.creastoredata;
begin
  with CDSstore do
    begin
      close;
      FieldDefs.Add('选项',ftString,20);
      CreateDataSet;
      AppendRecord(['公司内部仓库']);
      open;
    end;
end;

procedure Tfrmpurchase.FormCreate(Sender: TObject);
begin
  inherited;
  titlecaption:='采购管理';
  Maintable:='Tpurchase';
  MainView:='Vpurchase';
  SubTable:='Tpurchasesub';
  Subview:='Vpurchasesub';
  Searchfrm:=Tfrmpurchase_f;
  frname:=gs_appPath+'\Prints\frpurchase.frf';
  Keyfield:='fid';
  iBillTypeid:=1;
end;

procedure Tfrmpurchase.FormShow(Sender: TObject);
begin
  inherited;
  creastoredata;
end;

procedure Tfrmpurchase.CDSsubCalcFields(DataSet: TDataSet);
begin
  inherited;
  with CDSsub do
    begin
      Fieldbyname('famount').AsFloat:=RoundFloat(fieldbyname('fqty').AsFloat*
                        fieldbyname('fprice').AsFloat,2);
    end;
end;

procedure Tfrmpurchase.GridColumns3EditButtonDown(Sender: TObject;
  TopButton: Boolean; var AutoRepeat, Handled: Boolean);
begin
  inherited;
  Selectsub;
end;

end.