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,Inifiles,
  wwdbedit,comobj, Excel2000, Buttons, ExtCtrls, wwdblook, ADODB, DBGrids,
  DBTables;

type
  Tfrmpurreturn = class(TfrmMDIbaseinfo)
    Label7: TLabel;
    wwDBLookupCombo1: TwwDBLookupCombo;
    Label8: TLabel;
    wwDBDateTimePicker2: TwwDBDateTimePicker;
    Label6: TLabel;
    Label9: TLabel;
    Label5: TLabel;
    CDSmasterfid: TAutoIncField;
    CDSmasterfresid: TIntegerField;
    CDSmasterfrefno: TWideStringField;
    CDSmasterfreturnno: TWideStringField;
    CDSmasterfprovider: TWideStringField;
    CDSmasterfpurer: TWideStringField;
    CDSmasterfreturnstore: TWideStringField;
    CDSmasterfdelivdate: TDateTimeField;
    CDSmasterfnote: TWideStringField;
    CDSmasterfcreadate: TDateTimeField;
    CDSmasterfcreauser: TWideStringField;
    CDSsubfid: TAutoIncField;
    CDSsubfresid: TIntegerField;
    CDSstore: TClientDataSet;
    CDSstoreField: TStringField;
    N10: TMenuItem;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
    ADOQuery3: TADOQuery;
    Con1: TADOConnection;
    BitBtn2: TBitBtn;
    CDSsubfcqty: TFloatField;
    CDSsubfjqty: TFloatField;
    CDSsubfcode: TStringField;
    CDSsubfname: TStringField;
    CDSsubzs: TStringField;
    CDSsubcolorno: TStringField;
    CDSsubgno: TStringField;
    CDSsubfunit: TStringField;
    CDSsubcolor: TStringField;
    Edit1: TEdit;
    Edit3: TEdit;
    Label10: TLabel;
    Edit4: TEdit;
    Label11: TLabel;
    Edit5: TEdit;
    CDSsubfqty: TFloatField;
    CDSsuboldfqty: TFloatField;
    CDSsubyears: TStringField;
    CDSsubmonths: TStringField;
    CDSsubpno: TWideStringField;
    CDSsubck: TStringField;
    CDSsubftype: TStringField;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    BitBtn1: TBitBtn;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    Label12: TLabel;
    Edit6: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Label13: TLabel;
    Label14: TLabel;
    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);
    procedure BitBtn1Click(Sender: TObject);
    procedure acsearchExecute(Sender: TObject);
    procedure p05Execute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn2Click(Sender: TObject);
    procedure p01Execute(Sender: TObject);
    procedure acpriorExecute(Sender: TObject);
    procedure GridColExit(Sender: TObject);
    procedure GridTitleBtnClick(Sender: TObject; ACol: Integer;
      Column: TColumnEh);
    procedure acnextExecute(Sender: TObject);
    procedure acdeleteExecute(Sender: TObject);
  private
      procedure creastoredata;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmpurreturn: Tfrmpurreturn;

implementation

uses Global, upurreturn_f, data,common;

{$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(['仓库1']);
      AppendRecord(['仓库2']);
      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;
 wwDBDateTimePicker2.Date:=date;  
  //spbtnprint.Click;
  titlecaption:='库存查询';
  Maintable:='Tpurreturn';
  MainView:='Vpurreturn';
  SubTable:='Tpurreturnsub';
  Subview:='Vpurreturnsub';
  Searchfrm:=Tfrmpurreturn_f;
  frname:=gs_appPath+'\Prints\frpurreturn.frf';
  Keyfield:='fid';
  iBillTypeid:=3;
  //wwDBLookupCombo1.Text:='亿溢';



end;

procedure Tfrmpurreturn.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;
  with adoquery2 do
  begin
   sql.clear;
   sql.add(' select fcode from tpurreturnsub group by fcode order by fcode');
   open;
  end;
  while not adoquery2.Eof do
  begin
    combobox1.Items.Add(adoquery2.fieldbyname('fcode').AsString);
    adoquery2.Next;
  end;
///////////////
  with adoquery2 do
  begin
   sql.clear;
   sql.add('select fname from titemtype group by fname order by fname');
   open;
  end;
  while not adoquery2.Eof do
  begin
    combobox2.Items.Add(adoquery2.fieldbyname('fname').AsString);
    adoquery2.Next;
  end;         

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

procedure Tfrmpurreturn.BitBtn1Click(Sender: TObject);
begin
  inherited;
{ if checkbox1.Checked   then
  with query1 do
  begin
   sql.clear;
   sql.add('delete from tpurchase');
   execsql;
   sql.clear;
   sql.add('delete from tpurchasesub');
   execsql;
  end;
  if checkbox2.Checked then
  with query1 do
  begin
   sql.clear;
   sql.add('delete from tstore');
   execsql;
   sql.clear;
   sql.add('delete from tstoresub');
   execsql;
  end;
  if checkbox3.Checked then
  with query1 do
  begin
   sql.clear;
   sql.add('delete from tsale');
   execsql;
   sql.clear;
   sql.add('delete from tsalesub');
   execsql;
  end;
  if checkbox4.Checked then
  with query1 do
  begin
   sql.clear;
   sql.add('delete from tpurreturn');
   execsql;
   sql.clear;
   sql.add('delete from tpurreturnsub');
   execsql;
  end;
  if checkbox5.Checked then
  with query1 do
  begin
   sql.clear;
   sql.add('delete from tfz');
   execsql;
   sql.clear;
   sql.add('delete from tfzsub');
   execsql;
  end;
  if checkbox6.Checked then
  with query1 do
  begin
   sql.clear;
   sql.add('delete from tsp');
   execsql;
   sql.clear;
   sql.add('delete from tspsub');
   execsql;
  end;
  if checkbox7.Checked then
  with query1 do
  begin
   sql.clear;
   sql.add('delete from thm');
   execsql;
   sql.clear;
   sql.add('delete from thmsub');
   execsql;
  end;
   application.MessageBox('计算完毕','提示',mb_ok);}  }

end;

procedure Tfrmpurreturn.acsearchExecute(Sender: TObject);
var
yy,mm,dd:word;
str1:string;
begin
    decodedate(wwDBDateTimePicker2.Date,yy,mm,dd);
     with adoQuery2 do
     begin
       sql.clear;
       sql.add('update  tpurreturnsub set  syqty=isnull(fqty,0)+isnull(fjqty,0)-isnull(fcqty,0)');
       sql.add(' where years=:years and months=:months');
       Parameters.ParamByName('years').Value:=inttostr(yy);
       Parameters.ParamByName('months').Value:=inttostr(mm);
       execsql;
     end;
     with adoquery1 do
     begin

     sql.Clear;
     sql.add('select fid,fcode,fname,funit,ftype,  fqty , fjqty, fcqty,syqty,pdqty,kcqty,ck,years,months');
     sql.add(' from tpurreturnsub  where fid=fid');  //     , syqty=isnull(fjqty,0)-isnull(fcqty,0)
     if trim(wwDBLookupCombo1.Text)<>'' then
     begin