usale.pas

三層進銷存 使用接口和連接池 是他人的面试作品 delphi语言编写

unit usale;

interface

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

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

var
  frmsale: Tfrmsale;

implementation

uses usale_f, Global;

{$R *.dfm}

procedure Tfrmsale.CDSsubCalcFields(DataSet: TDataSet);
begin
  inherited;
  With CDSSub do
    begin
      fieldbyname('famount').AsFloat:=fieldbyname('fqty').AsFloat*
                              fieldbyname('fprice').AsFloat;
    end;
end;

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

procedure Tfrmsale.FormCreate(Sender: TObject);
begin
  inherited;
  titlecaption:='商品领用';
  Maintable:='Tsale';
  MainView:='Vsale';
  SubTable:='Tsalesub';
  Subview:='Vsalesub';
  Searchfrm:=Tfrmsale_f;
  frname:=gs_appPath+'\Prints\frsale.frf';
  Keyfield:='fid';
  iBillTypeid:=5;
end;

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

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

procedure Tfrmsale.acsaveExecute(Sender: TObject);
var
  cmdStr:string;
begin
  inherited;
  cmdStr:='Insert into tptotal(fsid) values('+vartosql(inNumber)+')';
  Execsql(cmdStr);
end;

end.