rmpurreturn01.pas

在打沙场用的最简单

unit rmpurreturn01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, DB, DBTables, Grids, DBGridEh, ExtCtrls,
  comobj, Excel2000,Mask, wwdbedit, Wwdotdot, Wwdbcomb, wwdbdatetimepicker;

type
  Trmpurreturn = class(TForm)
    DBGridEh1: TDBGridEh;
    DataSource1: TDataSource;
    Query1: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Panel1: TPanel;
    Query2: TQuery;
    wwDBDateTimePicker1: TwwDBDateTimePicker;
    wwDBComboBox1: TwwDBComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Label4: TLabel;
    Edit2: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    Edit5: TEdit;
    Edit6: TEdit;
    Label9: TLabel;
    Edit7: TEdit;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rmpurreturn: Trmpurreturn;

implementation

uses main;

{$R *.dfm}

procedure Trmpurreturn.BitBtn1Click(Sender: TObject);
var
yy,mm,dd:word;
i:integer;
begin
 decodedate(wwDBDateTimePicker1.Date,yy,mm,dd);
   with query2 do
   begin
     sql.clear;
     sql.add('update  tpurreturnsub set  syqty=isnull(fqty,0)+isnull(fjqty,0)-isnull(fcqty,0)');
     execsql;
   end;
    with query1 do
    begin
     sql.Clear;
     sql.add('select ck,years,months,fitemid,fcode,fname,zs,color,colorno,gno,pno,funit,ftype, fjqty, fcqty');
     sql.add(',  fqty ,  syqty from tpurreturnsub  where fid=fid');
     if trim(wwDBCombobox1.Text)<>'' then
     begin
     sql.add(' and ck=:ck');
     ParamByName('ck').Value:=wwDBCombobox1.Text;
     end;
     if edit1.text<>'' then
     begin
     sql.add(' and fcode like :fcode');
     ParamByName('fcode').Value:= '%'+edit1.text+'%';
     end;
     if edit3.text<>'' then
     begin
     sql.add(' and fname like :fname');
     ParamByName('fname').Value:='%'+edit3.text+'%';
     end;
     if edit4.text<>'' then
     begin
     sql.add(' and colorno like :colorno');
     ParamByName('colorno').Value:='%'+edit4.text+'%';
     end;
     if edit2.text<>'' then
     begin
     sql.add(' and zs like :zs');
     ParamByName('zs').Value:='%'+edit2.text+'%';
     end;
     if edit5.text<>'' then
     begin
     sql.add(' and gno like :gno');
     ParamByName('gno').Value:='%'+edit5.text+'%';
     end;
     if edit6.text<>'' then
     begin
     sql.add(' and color like :color');
     ParamByName('color').Value:='%'+edit6.text+'%';
     end;
     if edit7.text<>'' then
     begin
     sql.add(' and pno like :pno');
     ParamByName('pno').Value:='%'+edit7.text+'%';
     end;
     if wwDBDateTimePicker1.Text<>'' then
     begin
     sql.add(' and years=:years and months=:months');
     ParamByName('years').Value:=inttostr(yy);
     ParamByName('months').Value:=inttostr(mm);
     end;

     open;
   end;
  for i:=0 to 14 do
  dbgrideh1.Columns[i].Width:=64;
end;

procedure Trmpurreturn.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  action:=cafree;
end;

procedure Trmpurreturn.FormDestroy(Sender: TObject);
begin
  frmmain.delformname(self.Caption);
end;

procedure Trmpurreturn.BitBtn2Click(Sender: TObject);
var
yy,mm,dd:word;
begin
  decodedate(wwDBDateTimePicker1.Date,yy,mm,dd);
  inherited;
  with   query2 do
  begin
    sql.clear;
    sql.add('select years,months from tpurreturnsub where years=:years and months=:months');
     ParamByName('years').Value:=inttostr(yy);
     ParamByName('months').Value:=inttostr(mm);
    open;
    if recordcount>0 then
    begin
       if messagedlg('セる