ufz.pas

在打沙场用的最简单

unit ufz;

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,inifiles,
  comobj, Excel2000,PDJComEdit,common, ADODB, DBTables;

type
  Tffz = class(TfrmMDIbaseinfo)
    Label5: TLabel;
    wwDBEdit4: TwwDBEdit;
    Label6: TLabel;
    wwDBEdit5: TwwDBEdit;
    Label7: TLabel;
    Label8: TLabel;
    wwDBEdit8: TwwDBEdit;
    Label9: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    CDSstore: TClientDataSet;
    CDSsubfprice: TBCDField;
    CDSsubfamount: TFloatField;
    CDSmasterfid: TAutoIncField;
    CDSmasterfresid: TIntegerField;
    CDSmasterfrefno: TWideStringField;
    CDSmasterfpurno: TWideStringField;
    CDSmasterfprovider: TWideStringField;
    CDSmasterfpurer: TWideStringField;
    CDSmasterfpurstore: TWideStringField;
    CDSmasterfdelivdate: TDateTimeField;
    CDSmasterfnote: TWideStringField;
    CDSmasterfcreadate: TDateTimeField;
    CDSmasterfcreauser: TWideStringField;
    PDJComEdit1: TPDJComEdit;
    OpenDialog1: TOpenDialog;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    con1: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    CDSstoreField: TStringField;
    Label10: TLabel;
    CDSsubfid: TIntegerField;
    CDSsubfresid: TIntegerField;
    CDSsubfitemid: TIntegerField;
    wwDBEdit2: TwwDBEdit;
    CDSmasterpno: TStringField;
    CDSsubfnote: TStringField;
    wwDBEdit3: TwwDBEdit;
    Label11: TLabel;
    CDSmasterfprice: TFloatField;
    CDSsubfqty: TFloatField;
    Label12: TLabel;
    wwDBEdit7: TwwDBEdit;
    wwDBEdit9: TwwDBEdit;
    wwDBEdit10: TwwDBEdit;
    wwDBEdit11: TwwDBEdit;
    wwDBEdit12: TwwDBEdit;
    wwDBEdit13: TwwDBEdit;
    wwDBEdit14: TwwDBEdit;
    wwDBEdit15: TwwDBEdit;
    wwDBEdit16: TwwDBEdit;
    wwDBEdit17: TwwDBEdit;
    wwDBEdit18: TwwDBEdit;
    CDSmasters2: TWideStringField;
    CDSmasters3: TWideStringField;
    CDSmasters4: TWideStringField;
    CDSmasters5: TWideStringField;
    CDSmasters6: TWideStringField;
    CDSmasters7: TWideStringField;
    CDSmasters8: TWideStringField;
    CDSmasters9: TWideStringField;
    CDSmasters10: TWideStringField;
    CDSmasters12: TWideStringField;
    CDSmasters11: TWideStringField;
    wwDBEdit6: TwwDBEdit;
    CDSsubs1: TFloatField;
    CDSsubs2: TFloatField;
    CDSsubs3: TFloatField;
    CDSsubs4: TFloatField;
    CDSsubs5: TFloatField;
    CDSsubs6: TFloatField;
    CDSsubs7: TFloatField;
    CDSsubs8: TFloatField;
    CDSsubs9: TFloatField;
    CDSsubs10: TFloatField;
    CDSsubs11: TFloatField;
    CDSsubs12: TFloatField;
    CDSmasterss1: TWideStringField;
    CDSsubtotal: TFloatField;
    CDSsubqtyunit: TFloatField;
    CDSsubpm: TFloatField;
    CDSsubsz: TStringField;
    CDSsubper1: TFloatField;
    p07: TAction;
    p071: TMenuItem;
    CDSsubfcode: TStringField;
    CDSsubfname: TStringField;
    CDSsubfunit: TStringField;
    CDSsubftype: TStringField;
    CDSsubcolorno: TStringField;
    CDSsubgno: TStringField;
    CDSsubzs: TStringField;
    CDSsubcolor: TStringField;
    CDSsubsw1: TFloatField;
    CDSsubsw2: TFloatField;
    CDSsubsw3: TFloatField;
    CDSsubsw4: TFloatField;
    CDSsubsw5: TFloatField;
    CDSsubsw6: TFloatField;
    CDSsubsw7: TFloatField;
    CDSsubsw8: TFloatField;
    CDSsubsw9: TFloatField;
    CDSsubsw10: TFloatField;
    CDSsubsw11: TFloatField;
    CDSsubsw12: TFloatField;
    Label13: TLabel;
    Label14: TLabel;
    wwDBEdit19: TwwDBEdit;
    wwDBEdit20: TwwDBEdit;
    wwDBEdit21: TwwDBEdit;
    wwDBEdit22: TwwDBEdit;
    Label15: TLabel;
    Label16: TLabel;
    CDSmasterfkh: TStringField;
    CDSmasterfks: TStringField;
    CDSmasterfgx: TStringField;
    CDSmasterfmz: TFloatField;
    CDSsuboldfqty: TFloatField;
    Query1: TQuery;
    Query2: TQuery;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure CDSsubCalcFields(DataSet: TDataSet);
    procedure GridColumns3EditButtonDown(Sender: TObject;
      TopButton: Boolean; var AutoRepeat, Handled: Boolean);
    procedure PDJComEdit1ClickButton(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure acsaveExecute(Sender: TObject);
    procedure p05Execute(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure GridColExit(Sender: TObject);
    procedure wwDBEdit6Change(Sender: TObject);
    procedure wwDBEdit7Change(Sender: TObject);
    procedure wwDBEdit9Change(Sender: TObject);
    procedure wwDBEdit10Change(Sender: TObject);
    procedure wwDBEdit11Change(Sender: TObject);
    procedure wwDBEdit12Change(Sender: TObject);
    procedure wwDBEdit13Change(Sender: TObject);
    procedure wwDBEdit14Change(Sender: TObject);
    procedure wwDBEdit15Change(Sender: TObject);
    procedure wwDBEdit16Change(Sender: TObject);
    procedure wwDBEdit17Change(Sender: TObject);
    procedure wwDBEdit18Change(Sender: TObject);
    procedure aclineaddExecute(Sender: TObject);
    procedure p07Execute(Sender: TObject);
    procedure acaddExecute(Sender: TObject);
    procedure CDSsubBeforePost(DataSet: TDataSet);
    procedure GridKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure CDSsubAfterInsert(DataSet: TDataSet);
  private
    procedure creastoredata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ffz: Tffz;

implementation

uses Global, upurchase_f, data;

{$R *.dfm}

procedure Tffz.creastoredata;
begin

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

procedure Tffz.FormCreate(Sender: TObject);
var
ii:integer;
begin
  inherited;
//  for ii:=13 to 24 do
//  grid.Columns[ii].Title.caption:='';;
  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.FormShow(Sender: TObject);
var
  s:string;
  ini:Tinifile;
  usercode:string;
  serverIP:string;
begin
  inherited;
  creastoredata;
  s:=Extractfilepath(application.ExeName);
  if s[length(s)]<>'\' then
    s:=s+'\'+'Default.ini'
    else
    s:=s+'Default.ini';
  try
    ini:=Tinifile.Create(s);
    serverIP:=ini.ReadString('ADO','FILE NAME','');
  finally
    ini.Free;
  end;

  if Serverip<>'' then
    con1.ConnectionString:='FILE NAME='+serverip
    else
    con1.ConnectionString:='FILE NAME=\kc.udl';
    con1.Connected:=true;
   // spbtnprint.Click;
end;

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

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

procedure Tffz.PDJComEdit1ClickButton(Sender: TObject);
var
ii:integer;
sii,sw:string;
begin
  inherited;
    if cdsmaster.State in [dsedit,dsinsert] then
    begin
    adoquery1.SQL.Clear;
    adoquery1.SQL.Add('select  a.fitemid,a.fqty,a.fprice,a.gno,a.colorno,a.color,a.fnote,b.fpurno,b.fprovider,b.fpurer,b.fpurstore,');
    adoquery1.SQL.add('   b.frefno,b.fdelivdate,b.fnote as note2,b.fcreauser,b.pno,b.fprice as price2,');
    adoquery1.SQL.add('  c.fid,c.fcode,c.fname,c.funit,c.ftype,c.zs from Tstoresub a,Tstore  b ,titem c');
    adoquery1.SQL.add('  where a.fresid=b.fresid  and c.fid=a.fitemid');
    if wwdbedit2.text<>'' then
    begin
    adoquery1.SQL.add(' and b.pno =:pno');
    adoquery1.Parameters.ParamByName('pno').Value:=wwDBEdit2.Text;
    end;
    if billno.text<>'' then
    begin
    adoquery1.SQL.add(' and b.frefno =:frefno');
    adoquery1.Parameters.ParamByName('frefno').Value:=billno.text;
    end;
    adoquery1.Open;
    adoquery1.First;
    while not adoquery1.Eof  do
    begin
    spbtnadd.Click;
    CdsSub.Append;
      GetsqlData(CDSselectsub,'Vitem','fid','fid='+vartosql(adoquery1.fieldbyname('fID').Value),1);
      if CDSselectsub.RecordCount > 0 then
        begin
          CDSsub['fitemid']:=adoquery1.fieldbyname('fID').Value;
          CDSsub['fcode']:=CDSselectsub['fcode'];
          CDSsub['fname']:=CDSselectsub['fname'];
          CDSsub['ftype'] :=CDSselectsub['ftype'];
          CDSsub['funit']:=CDSselectsub['funit'];
          CDSsub['zs']:=CDSselectsub['zs'];
          GetsqlData(CDSselectsub,'vstoresub','colorno','colorno='+vartosql(adoquery1.fieldbyname('colorno').Value),1);
         if CDSselectsub.RecordCount > 0 then
          CDSsub['color']:=CDSselectsub['color'];
          CDSsub['gno'] :=adoquery1.fieldbyname('gno').Value;
          CDSsub['colorno'] :=adoquery1.fieldbyname('colorno').Value;
          CDSsub['fqty'] :=    adoquery1.fieldbyname('fqty').Value;
          for ii:=1 to 12 do
          begin
           sii:='s'+inttostr(ii);
           sw:='sw'+inttostr(ii);
           CDSsub[sii]:=0;