upurreturn.pas

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

unit upurreturn;

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, ADODB;

type
  Tfrmpurreturn = class(TfrmMDIbaseinfo)
    Label7: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label8: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label6: TLabel;
    wwDBEdit5: TwwDBEdit;
    Label9: TLabel;
    wwDBEdit8: TwwDBEdit;
    Label5: TLabel;
    wwDBEdit4: TwwDBEdit;
    ADOTable1: TADOTable;
    CDSmasterfid: TAutoIncField;
    CDSmasterfresid: TIntegerField;
    CDSmasterfrefno: TWideStringField;
    CDSmasterfreturnno: TWideStringField;
    CDSmasterfprovider: TWideStringField;
    CDSmasterfpurer: TWideStringField;
    CDSmasterfreturnstore: TWideStringField;
    CDSmasterfdelivdate: TDateTimeField;
    CDSmasterfnote: TWideStringField;
    CDSmasterfcreadate: TDateTimeField;
    CDSmasterfcreauser: TWideStringField;
    ADOTable1fid: TAutoIncField;
    ADOTable1fresid: TIntegerField;
    ADOTable1fitemid: TIntegerField;
    ADOTable1fqty: TBCDField;
    ADOTable1fprice: TBCDField;
    ADOTable1fcode: TWideStringField;
    ADOTable1fname: TWideStringField;
    ADOTable1funit: TWideStringField;
    ADOTable1ftype: 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 GridColumns3EditButtonDown(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
  frmpurreturn: Tfrmpurreturn;

implementation

uses Global, upurreturn_f;

{$R *.dfm}

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

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

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

procedure Tfrmpurreturn.FormCreate(Sender: TObject);
begin
  inherited;
  titlecaption:='采购退货';
  Maintable:='Tpurreturn';
  MainView:='Vpurreturn';
  SubTable:='Tpurreturnsub';
  Subview:='Vpurreturnsub';
  Searchfrm:=Tfrmpurreturn_f;
  frname:=gs_appPath+'\Prints\frpurreturn.frf';
  Keyfield:='fid';
  iBillTypeid:=3;
end;

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

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

end.