ufz.pas

在打沙场用的最简单

unit ufz;

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,common, ExtCtrls, wwdblook;

type
  Tffz = class(TfrmMDIbaseinfo)
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    wwDBEdit2: TwwDBEdit;
    wwDBEdit3: TwwDBEdit;
    wwDBEdit4: TwwDBEdit;
    wwDBEdit5: TwwDBEdit;
    wwDBEdit6: TwwDBEdit;
    wwDBEdit7: TwwDBEdit;
    wwDBEdit8: TwwDBEdit;
    wwDBEdit9: TwwDBEdit;
    wwDBEdit10: TwwDBEdit;
    wwDBEdit11: TwwDBEdit;
    wwDBEdit12: TwwDBEdit;
    wwDBEdit13: TwwDBEdit;
    wwDBEdit14: TwwDBEdit;
    wwDBEdit15: TwwDBEdit;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwDBEdit16: TwwDBEdit;
    wwDBEdit17: TwwDBEdit;
    wwDBEdit18: TwwDBEdit;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    wwDBEdit19: TwwDBEdit;
    wwDBEdit20: TwwDBEdit;
    wwDBEdit21: TwwDBEdit;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    CDSmasterfid: TIntegerField;
    CDSmasterfresid: TIntegerField;
    CDSmasterfrefno: TWideStringField;
    CDSmasterfpurno: TWideStringField;
    CDSmasterfprovider: TWideStringField;
    CDSmasterfpurer: TWideStringField;
    CDSmasterfpurstore: TWideStringField;
    CDSmasterfdelivdate: TDateField;
    CDSmasterfnote: TWideStringField;
    CDSmasterfcreadate: TDateField;
    CDSmasterfcreauser: TWideStringField;
    CDSmasterpno: TStringField;
    CDSmasters1: TWideStringField;
    CDSmasters2: TWideStringField;
    CDSmasters3: TWideStringField;
    CDSmasters4: TWideStringField;
    CDSmasters5: TWideStringField;
    CDSmasters6: TWideStringField;
    CDSmasters7: TWideStringField;
    CDSmasters8: TWideStringField;
    CDSmasters9: TWideStringField;
    CDSmasters10: TWideStringField;
    CDSmasters11: TWideStringField;
    CDSmasters12: TWideStringField;
    CDSmasterfqty: TFloatField;
    CDSmasterfavgh: TFloatField;
    CDSmasterfkh: TStringField;
    CDSmasterfks: TStringField;
    CDSmasterfgx: TStringField;
    CDSsubfcode: TWideStringField;
    CDSsubfname: TWideStringField;
    CDSsubfunit: TWideStringField;
    CDSsubzs: TStringField;
    CDSsubcolorno: TStringField;
    CDSsubcolor: TStringField;
    CDSsubgno: TStringField;
    CDSsubsz: TStringField;
    CDSsubtotal: TFloatField;
    CDSsubper1: TFloatField;
    CDSsubs1: TWideStringField;
    CDSsubs2: TWideStringField;
    CDSsubs3: TWideStringField;
    CDSsubs4: TWideStringField;
    CDSsubs5: TWideStringField;
    CDSsubs6: TWideStringField;
    CDSsubs7: TWideStringField;
    CDSsubs8: TWideStringField;
    CDSsubs9: TWideStringField;
    CDSsubs10: TWideStringField;
    CDSsubs11: TWideStringField;
    CDSsubs12: TWideStringField;
    CDSsubfqty: TFloatField;
    CDSsubfid: TIntegerField;
    CDSsubfresid: TIntegerField;
    CDSsubfitemid: TIntegerField;
    procedure FormCreate(Sender: TObject);
    procedure acsaveExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ffz: Tffz;

implementation
uses Global, upurchase_f;
{$R *.dfm}

procedure Tffz.FormCreate(Sender: TObject);
begin
  inherited;
  titlecaption:='发织管理';
  Maintable:='Tfz';
  MainView:='Vfz';
  SubTable:='Tfzsub';
  Subview:='Vfzsub';
  Searchfrm:=Tfrmpurchase_f;
  frname:=gs_appPath+'\Prints\frfz.frf';
  Keyfield:='fid';
  iBillTypeid:=1;
end;

procedure Tffz.acsaveExecute(Sender: TObject);
var
s,  cmdStr:string;
begin
  CDSMaster.FieldByName('fresid').AsInteger:=Innumber;
  CDSMaster.FieldByName('frefno').AsString:=Getoutnumber(iBilltypeid);
      CDSMaster.Post;
      showmessage('aaa');
      if CDSmaster.ChangeCount>0 then
        begin
          applyupdata(CDSMaster,Maintable,keyfield);
          CDSMaster.MergeChangeLog;
        end;
   showmessage('bbb');
 // inherited;
  cmdStr:='Insert into tptotal(fsid) values('+vartosql(inNumber)+')';
  Execsql(cmdStr);
   showmessage('ccc');
end;

end.