ustore.pas

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

unit ustore;

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
  Tfrmstore = class(TfrmMDIbaseinfo)
    Label5: TLabel;
    wwDBEdit4: TwwDBEdit;
    Label6: TLabel;
    wwDBEdit5: TwwDBEdit;
    Label9: TLabel;
    wwDBEdit8: TwwDBEdit;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label8: TLabel;
    Label7: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    CDSmasterfid: TAutoIncField;
    CDSmasterfresid: TIntegerField;
    CDSmasterfrefno: TWideStringField;
    CDSmasterfstoreno: TWideStringField;
    CDSmasterfprovider: TWideStringField;
    CDSmasterfpurer: TWideStringField;
    CDSmasterfpurstore: 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;
    CDSstore: TClientDataSet;
    CDSstoreField: TStringField;
    procedure CDSsubCalcFields(DataSet: TDataSet);
    procedure GridColumns2EditButtonDown(Sender: TObject;
      TopButton: Boolean; var AutoRepeat, Handled: Boolean);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure acsaveExecute(Sender: TObject);
  private
      procedure creastoredata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmstore: Tfrmstore;

implementation

uses ustore_f, Global;

{$R *.dfm}

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

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

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

procedure Tfrmstore.FormCreate(Sender: TObject);
begin
  inherited;
  titlecaption:='采购收货单';
  Maintable:='Tstore';
  MainView:='Vstore';
  SubTable:='Tstoresub';
  Subview:='Vstoresub';
  Searchfrm:=Tfrmstore_f;
  frname:=gs_appPath+'\Prints\frstore.frf';
  Keyfield:='fid';
  iBillTypeid:=2;
end;

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

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

end.