lldwh.pas

来自「应对服装行业的生产成本控制系统」· PAS 代码 · 共 1,180 行 · 第 1/3 页

unit lldwh;

interface

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

type
  TFrmlldwh = class(TForm)
    Pz: TPanel;
    Label25: TLabel;
    Label26: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label41: TLabel;
    SpeedButton2: TSpeedButton;
    help: TLabel;
    tddh: TEdit;
    tcldw: TEdit;
    tlldh: TEdit;
    tclmc: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    tdj: TEdit;
    tbz: TEdit;
    tsl: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    tclfl: TEdit;
    Pd: TPanel;
    Label1: TLabel;
    rq: TDateTimePicker;
    Label2: TLabel;
    tje: TEdit;
    pq: TPanel;
    cqq: TCheckBox;
    cddh: TCheckBox;
    qddh: TEdit;
    clldh: TCheckBox;
    czq: TCheckBox;
    zq: TDateTimePicker;
    qlldh: TEdit;
    cclfl: TCheckBox;
    qclfl: TEdit;
    cclmc: TCheckBox;
    qclmc: TEdit;
    cje: TCheckBox;
    ccldw: TCheckBox;
    qje: TEdit;
    qcldw: TEdit;
    cggxh: TCheckBox;
    cfb: TCheckBox;
    qggxh: TEdit;
    qfb: TEdit;
    qq: TDateTimePicker;
    cys: TCheckBox;
    cfz: TCheckBox;
    qys: TEdit;
    qfz: TEdit;
    Panel7: TPanel;
    Label44: TLabel;
    Label45: TLabel;
    Label50: TLabel;
    tfb: TEdit;
    tfz: TEdit;
    tllr: TEdit;
    Label9: TLabel;
    Label10: TLabel;
    tflr: TEdit;
    tzgr: TEdit;
    tggxh: TEdit;
    GroupBox1: TGroupBox;
    DBGrid5: TDBGrid;
    DBGrid4: TDBGrid;
    tys: TEdit;
    DBGrid3: TDBGrid;
    Cflr: TCheckBox;
    qflr: TEdit;
    Czgr: TCheckBox;
    qzgr: TEdit;
    Cbz: TCheckBox;
    qbz: TEdit;
    Csl: TCheckBox;
    qsl: TEdit;
    qdj: TEdit;
    Cdj: TCheckBox;
    Cllr: TCheckBox;
    qllr: TEdit;
    brework: TBitBtn;
    bsave: TBitBtn;
    bcancel: TBitBtn;
    bprint: TBitBtn;
    breturn: TBitBtn;
    Bdelete: TBitBtn;
    Bquery: TBitBtn;
    bsh: TBitBtn;
    procedure tdjKeyPress(Sender: TObject; var Key: Char);
    procedure tslKeyPress(Sender: TObject; var Key: Char);
    procedure tlldhKeyPress(Sender: TObject; var Key: Char);
    procedure tclmcKeyPress(Sender: TObject; var Key: Char);
    procedure tddhKeyPress(Sender: TObject; var Key: Char);
    procedure tcldwKeyPress(Sender: TObject; var Key: Char);
    procedure tbzKeyPress(Sender: TObject; var Key: Char);
    procedure tclmcChange(Sender: TObject);
    procedure bcancelClick(Sender: TObject);
    procedure bprintClick(Sender: TObject);
    procedure breturnClick(Sender: TObject);
    procedure DBGrid4DblClick(Sender: TObject);
    procedure tslChange(Sender: TObject);
    procedure bsaveClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tclflKeyPress(Sender: TObject; var Key: Char);
    procedure DBGrid3DblClick(Sender: TObject);
    procedure rqKeyPress(Sender: TObject; var Key: Char);
    procedure tjeKeyPress(Sender: TObject; var Key: Char);
    procedure BqueryClick(Sender: TObject);
    procedure BdeleteClick(Sender: TObject);
    procedure bshClick(Sender: TObject);
    procedure breworkClick(Sender: TObject);
    procedure tllrChange(Sender: TObject);
    procedure DBGrid5TitleClick(Column: TColumn);
    procedure DBGrid5DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid5DblClick(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure tfbKeyPress(Sender: TObject; var Key: Char);
    procedure tfzKeyPress(Sender: TObject; var Key: Char);
    procedure tllrKeyPress(Sender: TObject; var Key: Char);
    procedure tflrKeyPress(Sender: TObject; var Key: Char);
    procedure tzgrKeyPress(Sender: TObject; var Key: Char);
    procedure tysKeyPress(Sender: TObject; var Key: Char);
  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
  Frmlldwh: TFrmlldwh;

implementation

uses unit28, Unit1, Unit16, xtfz, clml, cpml;

{$R *.dfm}

procedure TFrmlldwh.tdjKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8,#13,'.']) then
begin
key:=#0;
help.caption:='   请输入数字!';
end;
if key=#13 then tje.SetFocus;
end;

procedure TFrmlldwh.tslKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0'..'9',#8,#13,'.','-']) then
begin
key:=#0;
help.caption:='   请输入数字!';
end;
if key=#13 then tdj.SetFocus;
end;

procedure TFrmlldwh.tlldhKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tys.SetFocus;
end;

procedure TFrmlldwh.tclmcKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tclfl.SetFocus;
end;

procedure TFrmlldwh.tddhKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tclmc.SetFocus;
end;

procedure TFrmlldwh.tcldwKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tggxh.SetFocus;
end;

procedure TFrmlldwh.tbzKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then tfb.SetFocus;
end;

function TFrmlldwh.check:boolean;
begin
  result:=true;
  if trim(tlldh.Text)='' then
    begin
    showmessage('编号不能为空!');
    result:=false;
    exit;
    end;
    if trim(tddh.Text)='' then
    begin
    showmessage('订单不存在,请您核对后输入!');
    result:=false;
    exit;
    end;
  if trim(tclmc.Text)='' then
   begin
    showmessage('请选择一个材料名称，如果没有出现在列表中，请添加!');
    result:=false;
    tclmc.SetFocus;
    exit;
    end;
 if trim(tclfl.Text)='' then
   begin
    showmessage('请选择一个材料分类，如果没有出现在列表中，请添加!');
    result:=false;
    tclfl.SetFocus;
    exit;
    end;
 if trim(tcldw.Text)='' then
   begin
    showmessage('请选择一个材料单位，如果没有出现在列表中，请添加!');
    result:=false;
    tcldw.SetFocus;
    exit;
    end;
  if trim(tsl.Text)='' then
   begin
    showmessage('请输入材料数量!');
    result:=false;
    tsl.SetFocus;
    exit;
    end;
  if trim(tdj.Text)='' then
   begin
    showmessage('请输入材料单价!');
    result:=false;
    tdj.SetFocus;
    exit;
    end;
  if trim(tje.Text)='' then
   begin
    showmessage('请输入材料金额!');
    result:=false;
    tje.SetFocus;
    exit;
    end;
  if trim(tfb.Text)='' then
   begin
    showmessage('请输入部门!');
    result:=false;
    tfb.SetFocus;
    exit;
    end;
  if trim(tfz.Text)='' then
   begin
    showmessage('请输入分组!');
    result:=false;
    tfz.SetFocus;
    exit;
    end;
    end;

procedure TFrmlldwh.tclmcChange(Sender: TObject);
var
relation,cx:string;
begin
relation:=' like ''';
cx:='%';
commandstring:='select * from dbo.clmlb';
if trim(tclmc.Text)<>'' then
begin
commandstring:=commandstring+' where (clmc'+relation+cx+trim(tclmc.Text)+cx+''')'+' order by xh';;
DataModule1.ClientDataSet15.Close;
DataModule1.ClientDataSet15.CommandText:=commandstring;
DataModule1.ClientDataSet15.Open;
end;
if trim(tclmc.Text)='' then
begin
help.Caption:=' 请您输入或选择一个材料!';
exit;
end;
end;

function TFrmlldwh.save:boolean;
 var
relation,cx,dx,lldh,sqlstr:string;
begin
 relation:=' = ''';
 cx:='';
 dx:= ' ''';
 tlldh.Text:=trim(tlldh.Text);
 tddh.Text:=trim(tddh.Text);
 tclmc.Text:=trim(tclmc.Text);
 tclfl.Text:=trim(tclfl.Text);
 tcldw.Text:=trim(tcldw.Text);
 tggxh.Text:=trim(tggxh.Text);
 tys.Text:=trim(tys.Text);
 tsl.Text:=trim(tsl.Text);
 tdj.Text:=trim(tdj.Text);
 tje.Text:=trim(tje.Text);
 tbz.Text:=trim(tbz.Text);
 tfb.Text:=trim(tfb.Text);
 tfz.Text:=trim(tfz.Text);
 tllr.Text:=trim(tllr.Text);
 tflr.Text:=trim(tflr.Text);
 tzgr.Text:=trim(tzgr.Text);
 errcode:=true;
 errzt:=1;
sqlstr:='update dbo.llb set rq'+relation+datetimetostr(rq.Date)+dx+' ,clfl'+relation+tclfl.Text+dx+' ,clmc'+relation+tclmc.text+dx+' ,dw'+relation+tcldw.Text+dx+' ,ggxh'+relation+tggxh.Text+dx+' ,ys'+relation+tys.Text+dx+' ,sl'+relation+tsl.Text;
sqlstr:=sqlstr+dx+' ,dj'+relation+tdj.Text+dx+' ,je'+relation+tje.Text+dx+' ,fb'+relation+tfb.Text+dx+' ,fz'+relation+tfz.text+dx+' ,llr'+relation+tllr.Text+dx+' ,flr'+relation+tflr.Text+dx+' ,zgr'+relation+tzgr.Text+dx+' ,bz'+relation+tbz.Text+dx+' ,czy'+relation+form1.StatusBar1.Panels[4].text+dx;
sqlstr:=sqlstr+' where (lldh' +relation+cx+DataModule1.ClientDataSet20.fieldbyname('lldh').AsString+cx+''')';
lldh:=DataModule1.ClientDataSet20.fieldbyname('lldh').AsString;
 try
DataModule1.ClientDataSet20.DisableControls;
DataModule1.ClientDataSet20.CommandText:=sqlstr;
DataModule1.ClientDataSet20.Execute;
DataModule1.ClientDataSet20.Close;
DataModule1.ClientDataSet20.CommandText:=commandstringq;
DataModule1.ClientDataSet20.Open;
DataModule1.ClientDataSet20.EnableControls;
DataModule1.ClientDataSet20.Locate('lldh',lldh,[]);
 errcode:=false;
 errzt:=0;
 except
  errcode:=true;
  errzt:=1;
  DataModule1.ClientDataSet20.EnableControls;
  end;
end;

procedure TFrmlldwh.bcancelClick(Sender: TObject);
begin
bsave.Enabled:=false;
bcancel.Enabled:=false;
bprint.Enabled:=false;
bquery.Enabled:=true;
brework.Enabled:=false;
dbgrid5.Enabled:=true;
 tlldh.Text:='';
 tddh.Text:='';
 tclmc.Text:='';
 tclfl.Text:='';
 tcldw.Text:='';
 tggxh.Text:='';
 tys.Text:='';
 tsl.Text:='';
 tdj.Text:='';
 tje.Text:='';
 tbz.Text:='';
 tfb.Text:='';
 tfz.Text:='';
 tllr.Text:='';
 tflr.Text:='';
 tzgr.Text:='';
help.Caption:='  继续维护请您重新选择!';
end;

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

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

procedure TFrmlldwh.DBGrid4DblClick(Sender: TObject);
begin
if not DataModule1.ClientDataSet15.Active then exit;