xtfz.pas

来自「应对服装行业的生产成本控制系统」· PAS 代码 · 共 143 行

unit xtfz;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls;

type
  TFrmxtfz = class(TForm)
    qq: TDateTimePicker;
    rq: TDateTimePicker;
    Panel3: TPanel;
    bcancel: TBitBtn;
    bsave: TBitBtn;
    breturn: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    zq: TDateTimePicker;
    Label3: TLabel;
    procedure FormActivate(Sender: TObject);
    procedure bsaveClick(Sender: TObject);
    procedure bcancelClick(Sender: TObject);
    procedure breturnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
 function checkfzrq(fzrq:string):string;
    { Public declarations }
  end;

var
  Frmxtfz: TFrmxtfz;

implementation
uses unit28, Unit1;
{$R *.dfm}

procedure TFrmxtfz.FormActivate(Sender: TObject);
begin
zq.Date:=date;
try
DataModule1.clientdataset30.Close;
DataModule1.clientdataset30.CommandText:='select * from dbo.djb';
DataModule1.clientdataset30.Open;
qq.Date:=DataModule1.clientdataset30.fieldbyname('qq').AsDateTime;
rq.Date:=DataModule1.clientdataset30.fieldbyname('rq').AsDateTime;
except
showmessage('数据库打开失败!');
end;
end;

procedure TFrmxtfz.bsaveClick(Sender: TObject);
var
relation,cx,dx,sqlstr:string;
  begin
if not DataModule1.ClientDataSet30.Active then exit;
if DataModule1.ClientDataSet30.RecordCount<1 then exit;
 relation:=' = ''';
 cx:='';
 dx:= ' ''';
if zq.Date<qq.Date then
begin
showmessage('本次封账日期非法,本次封账日期小于上次封账日期!');
exit;
end;
sqlstr:='update dbo.djb set qq'+relation+FormatDateTime('yyyy-mm-dd',rq.Date)+dx+' ,rq'+relation+FormatDateTime('yyyy-mm-dd',zq.Date)+dx+' ,czy'+relation+form1.StatusBar1.Panels[4].Text+dx;
try
DataModule1.ClientDataSet30.CommandText:=sqlstr;
DataModule1.ClientDataSet30.Execute;
DataModule1.ClientDataSet30.ApplyUpdates(-1);
DataModule1.ClientDataSet30.Close;
DataModule1.ClientDataSet30.CommandText:='select * from dbo.djb';
DataModule1.ClientDataSet30.Open;
zq.Date:=date;
qq.Date:=DataModule1.clientdataset30.fieldbyname('qq').AsDateTime;
rq.Date:=DataModule1.clientdataset30.fieldbyname('rq').AsDateTime;
qq.Refresh;
zq.Refresh;
showmessage('封账更新成功!');
 except
showmessage('封账更新失败!');
 end;
end;

procedure TFrmxtfz.bcancelClick(Sender: TObject);
var
relation,cx,dx,sqlstr:string;
  begin
if not DataModule1.ClientDataSet30.Active then exit;
if DataModule1.ClientDataSet30.RecordCount<1 then exit;
 relation:=' = ''';
 cx:='';
 dx:= ' ''';
sqlstr:='update dbo.djb set qq'+relation+'2000-01-01'+dx+' ,rq'+relation+'2000-01-01'+dx+' ,czy'+relation+form1.StatusBar1.Panels[4].Text+dx;
try
DataModule1.ClientDataSet30.CommandText:=sqlstr;
DataModule1.ClientDataSet30.Execute;
DataModule1.ClientDataSet30.ApplyUpdates(-1);
DataModule1.ClientDataSet30.Close;
DataModule1.ClientDataSet30.CommandText:='select * from dbo.djb';
DataModule1.ClientDataSet30.Open;
zq.Date:=date;
qq.Date:=DataModule1.clientdataset30.fieldbyname('qq').AsDateTime;
rq.Date:=DataModule1.clientdataset30.fieldbyname('rq').AsDateTime;
showmessage('解封更新成功!');
 except
showmessage('解封更新失败!');
 end;
end;

procedure TFrmxtfz.breturnClick(Sender: TObject);
begin
if DataModule1.clientdataset30.Active then DataModule1.clientdataset30.Active:=false;
close;
end;

procedure TFrmxtfz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if DataModule1.clientdataset30.Active then DataModule1.clientdataset30.Active:=false;
close;
end;

function tfrmxtfz.checkfzrq(fzrq:string):string;
begin
try
checkfzrq:='';
DataModule1.clientdataset30.Close;
DataModule1.clientdataset30.CommandText:='select * from dbo.djb';
DataModule1.clientdataset30.Open;
if DataModule1.clientdataset30.fieldbyname('rq').AsDateTime>=strtodatetime(fzrq) then
begin
checkfzrq:=formatdatetime('yyyy-mm-dd',DataModule1.clientdataset30.fieldbyname('rq').AsDateTime);
exit;
end;
except
end;
checkfzrq:='';
end;

end.