djgx1.pas

来自「delphi开发的委托加工管理系统源代码」· PAS 代码 · 共 76 行

unit djgx1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzButton, ExtCtrls, RzPanel, ComCtrls, StdCtrls, ADODB;

type
  Tdjgx = class(TForm)
    RzGroupBox1: TRzGroupBox;
    RzGroupBox2: TRzGroupBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label3: TLabel;
    ADOCommand1: TADOCommand;
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  djgx: Tdjgx;

implementation

uses adodm;

{$R *.dfm}

procedure Tdjgx.FormCreate(Sender: TObject);
begin
datetimepicker1.DateTime:=now;
datetimepicker2.DateTime:=now;
end;

procedure Tdjgx.RzBitBtn2Click(Sender: TObject);
begin
close
end;

procedure Tdjgx.RzBitBtn1Click(Sender: TObject);
begin
adocommand1.CommandText:='update rkdata inner join wldata on rkdata.物料代码=wldata.物料代码 set rkdata.单价=wldata.单价 where rkdata.日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.datetime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.datetime)+'#';
adocommand1.Execute;
adocommand1.CommandText:='';
adocommand1.CommandText:='update rkdata set 金额=单价*数量 where rkdata.日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.datetime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.datetime)+'#';
adocommand1.Execute;
adocommand1.CommandText:='';
adocommand1.CommandText:='update ckdata inner join wldata on ckdata.物料代码=wldata.物料代码 set ckdata.金额=wldata.单价*ckdata.数量 where ckdata.日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.datetime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.datetime)+'#';
adocommand1.Execute;
adocommand1.CommandText:='';
adocommand1.CommandText:='update gzdata inner join wldata on gzdata.物料代码=wldata.物料代码 set gzdata.工价=wldata.工价 where gzdata.日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.datetime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.datetime)+'#';
adocommand1.Execute;
adocommand1.CommandText:='';
adocommand1.CommandText:='update gzdata inner join wldata on gzdata.物料代码=wldata.物料代码 set gzdata.基本工资=wldata.工价*(gzdata.送检数量-gzdata.工废数量*2-gzdata.料废数量) where wldata.规格<>''材料'' and gzdata.日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.datetime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.datetime)+'#';
adocommand1.Execute;
adocommand1.CommandText:='';
adocommand1.CommandText:='update gzdata inner join wldata on gzdata.物料代码=wldata.物料代码 set gzdata.加工费=wldata.工价*(gzdata.送检数量-gzdata.工废数量*2-gzdata.料废数量) where wldata.规格<>''材料'' and gzdata.日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.datetime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.datetime)+'#';
adocommand1.Execute;
adocommand1.CommandText:='';
adocommand1.CommandText:='update gzdata inner join wldata on gzdata.物料代码=wldata.物料代码 set gzdata.clmoney=wldata.工价*gzdata.送检数量 where wldata.规格=''材料'' and gzdata.日期 between #'+formatdatetime('yyyy-mm-dd',datetimepicker1.datetime)+'# and #'+formatdatetime('yyyy-mm-dd',datetimepicker2.datetime)+'#';
adocommand1.Execute;
showmessage('更新成功!');
end;

end.