ylzjwh.~pas

应对服装行业的生产成本控制系统

unit ylzjwh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ComCtrls, Grids, DBGrids, ExtCtrls, DBCtrls,
  DB, ADODB, DBClient;

type
  TFrmylzjwh = class(TForm)
    Pz: TPanel;
    Label25: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label41: TLabel;
    help: TLabel;
    tllr: TEdit;
    tbz: TEdit;
    txh: TEdit;
    tflr: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    tzgr: TEdit;
    Pd: TPanel;
    rq: TDateTimePicker;
    pq: TPanel;
    cddh: TCheckBox;
    qddh: TEdit;
    cxh: TCheckBox;
    qxh: TEdit;
    cje: TCheckBox;
    qje: TEdit;
    cllr: TCheckBox;
    qllr: TEdit;
    cflr: TCheckBox;
    qflr: TEdit;
    Cqq: TCheckBox;
    Czq: TCheckBox;
    zq: TDateTimePicker;
    qq: TDateTimePicker;
    GroupBox1: TGroupBox;
    DBGrid5: TDBGrid;
    Label1: TLabel;
    tje: TEdit;
    brework: TBitBtn;
    bsave: TBitBtn;
    bcancel: TBitBtn;
    bprint: TBitBtn;
    breturn: TBitBtn;
    Bdelete: TBitBtn;
    Bquery: TBitBtn;
    bsh: TBitBtn;
    procedure txhKeyPress(Sender: TObject; var Key: Char);
    procedure tflrKeyPress(Sender: TObject; var Key: Char);
    procedure tllrKeyPress(Sender: TObject; var Key: Char);
    procedure tbzKeyPress(Sender: TObject; var Key: Char);
    procedure bcancelClick(Sender: TObject);
    procedure bprintClick(Sender: TObject);
    procedure breturnClick(Sender: TObject);
    procedure bsaveClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tzgrKeyPress(Sender: TObject; var Key: Char);
    procedure rqKeyPress(Sender: TObject; var Key: Char);
    procedure tjeKeyPress(Sender: TObject; var Key: Char);
    procedure BqueryClick(Sender: TObject);
    procedure DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid5TitleClick(Column: TColumn);
    procedure BdeleteClick(Sender: TObject);
    procedure bshClick(Sender: TObject);
    procedure breworkClick(Sender: TObject);
    procedure DBGrid5DblClick(Sender: TObject);
  private
    { Private declarations }
      rzczy,rzsj,rzjsj,rzcsj:string;
      errzt: integer;
      errcode:boolean;
  commandstring,commandstringq: string;
  function check():boolean;
  function save():boolean;
  function errdelete():boolean;
  public
    { Public declarations }

  end;

var
  Frmylzjwh: TFrmylzjwh;

implementation

uses unit28, Unit1, Unit16, xtfz;

{$R *.dfm}

procedure TFrmylzjwh.txhKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then rq.SetFocus;
end;

procedure TFrmylzjwh.tflrKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tzgr.SetFocus;
end;

procedure TFrmylzjwh.tllrKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tflr.SetFocus;
end;

procedure TFrmylzjwh.tbzKeyPress(Sender: TObject; var Key: Char);
begin
if not bsave.Enabled then exit;
if key=#13 then bsave.SetFocus;
end;

function TFrmylzjwh.check:boolean;
begin
  result:=true;
  if trim(txh.Text)='' then
    begin
    showmessage('请您输入序号!');
    result:=false;
    txh.SetFocus;
    exit;
    end;
  if trim(tje.Text)='' then
    begin
    showmessage('请您输入领料金额!');
    result:=false;
    tje.SetFocus;
    exit;
    end;
    end;

function TFrmylzjwh.save:boolean;
 var
relation,cx,dx,lldh,sqlstr:string;
begin
 relation:=' = ''';
 cx:='';
 dx:= ' ''';
 txh.Text:=trim(txh.Text);
 tje.Text:=trim(tje.text);
 tllr.Text:=trim(tllr.Text);
 tflr.Text:=trim(tflr.Text);
 tzgr.Text:=trim(tzgr.Text);
 tbz.Text:=trim(tbz.Text);
 errcode:=true;
errzt:=1;
sqlstr:='update dbo.ccb set rq'+relation+datetimetostr(rq.Date)+dx+' ,je'+relation+tje.Text+dx+' ,bz'+relation+tbz.Text+dx+' ,llr'+relation+tllr.Text+dx+' ,flr'+relation+tflr.Text+dx+' ,zgr'+relation+tzgr.Text;
sqlstr:=sqlstr+dx+' ,czy'+relation+form1.StatusBar1.Panels[4].text+dx;
sqlstr:=sqlstr+' where (ddh' +relation+cx+DataModule1.ClientDataSet27.fieldbyname('ddh').AsString+cx+''')';
sqlstr:=sqlstr+' and (xh' +relation+cx+DataModule1.ClientDataSet27.fieldbyname('xh').AsString+cx+''')';
 try
DataModule1.ClientDataSet27.DisableControls;
DataModule1.ClientDataSet27.CommandText:=sqlstr;
DataModule1.ClientDataSet27.Execute;
DataModule1.ClientDataSet27.Close;
DataModule1.ClientDataSet27.CommandText:=commandstringq;
DataModule1.ClientDataSet27.Open;
DataModule1.ClientDataSet27.EnableControls;
DataModule1.ClientDataSet27.Locate('xh',txh.Text,[]);
 errcode:=false;
 errzt:=0;
 except
  errcode:=true;
  errzt:=1;
  showmessage('数据库没有打开!');
  end;
end;

procedure TFrmylzjwh.bcancelClick(Sender: TObject);
var
i,i1:integer;
begin
brework.Enabled:=false;
bsave.Enabled:=false;
bcancel.Enabled:=false;
bprint.Enabled:=false;
bquery.Enabled:=true;
brework.Enabled:=false;
txh.Text:='';
tje.Text:='';
tllr.Text:='';
tflr.Text:='';
tzgr.Text:='';
tbz.Text:='';
dbgrid5.Enabled:=true;
help.Caption:='  继续修改请重新选择余料追加记录!';
pz.Enabled:=true;
end;

procedure TFrmylzjwh.bprintClick(Sender: TObject);
begin
help.Caption:='   暂不提供打印功能!';
end;

procedure TFrmylzjwh.breturnClick(Sender: TObject);
begin
try
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
DataModule1.ClientDataSet27.IndexFieldNames:='';
if DataModule1.clientdataset27.Active then  DataModule1.ClientDataSet27.Active:=false;
except
showmessage('数据库没有打开!');
end;
close;
end;

procedure TFrmylzjwh.bsaveClick(Sender: TObject);
var
datestr:string;
begin
if not bsave.Enabled then exit;
bsave.Enabled:=false;
bcancel.Enabled:=false;
errcode:=true;
errzt:=1;
if not check then
begin
bsave.Enabled:=true;
bcancel.Enabled:=true;
 exit;
 end;
datestr:=frmxtfz.checkfzrq(formatdatetime('yyyy-mm-dd',rq.date));
if datestr<>'' then
begin
help.Caption:='  封账日期为'+datestr+'您不能修改封账日期前的数据';
exit;
end; 
try
save;
if errcode or (errzt<>0) then save;
if errcode or (errzt<>0) then save;
if errcode or (errzt<>0) then save;
if errcode or (errzt<>0) then
begin
showmessage('   数据库在保存主记录时失败,请您稍后重新保存!');
//errdelete;
bsave.Enabled:=true;
bcancel.Enabled:=true;
exit;
end;
help.Caption:='   修改订单余料追加操作成功!' ;
txh.Text:='';
tje.Text:='';
tllr.Text:='';
tflr.Text:='';
tzgr.Text:='';
tbz.Text:='';
bprint.Enabled:=true;
bsh.Enabled:=true;
dbgrid5.Enabled:=true;
except
bsave.Enabled:=true;
bcancel.Enabled:=true;
showmessage('     修改订单余料追加时出现了系统无法识别的错误,请您主动辨别该错误!');
end;
end;

function tFrmylzjwh.errdelete:boolean;
var
relation,cx:string;
begin
 relation:=' = ''';
 cx:='';
    try
  commandstring:='delete from dbo.ylzj';
  commandstring:=commandstring+' where (dbo.ylzj.ddh'+relation+cx+DataModule1.ClientDataSet27.fieldbyname('ddh').AsString+cx+''')';
  commandstring:=commandstring+' where (dbo.ylzj.xh'+relation+cx+DataModule1.ClientDataSet27.fieldbyname('xh').AsString+cx+''')';
  DataModule1.ClientDataSet27.CommandText:=commandstring;
  DataModule1.ClientDataSet27.Execute;
  except
  showmessage('数据库没有打开')
  end;
  end;

procedure TFrmylzjwh.FormActivate(Sender: TObject);
var
commandstring,relation,cx,str:string;
begin
rzjsj:=datetimetostr(now);
rzczy:=form1.StatusBar1.Panels[4].Text;
rzsj:='余料追加信息修改';
qq.DateTime:=date-30;
zq.DateTime:=date;
rq.DateTime:=date;
help.Caption:='';
bquery.Enabled:=true;
brework.Enabled:=false;
bsave.Enabled:=false;
bdelete.Enabled:=false;
bsh.Enabled:=false;
bcancel.Enabled:=false;
bprint.Enabled:=false;
pz.Enabled:=false;
help.Caption:='  请您点击< 查询>按钮开始查询余料追加记录!';
end;

procedure TFrmylzjwh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
DataModule1.ClientDataSet27.IndexFieldNames:='';
if DataModule1.clientdataset27.Active then  DataModule1.ClientDataSet27.Active:=false;
if rzcsj<>'' then exit;
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
except
showmessage('数据库没有打开!');
end;
close;
end;

procedure TFrmylzjwh.tzgrKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tbz.SetFocus;
end;

procedure TFrmylzjwh.rqKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tje.SetFocus;
end;