wjgdw.pas

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

unit wjgdw;

interface

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

type
  TFrmwjgdw = class(TForm)
    Panel1: TPanel;
    GroupBox1: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit2: TDBEdit;
    Panel3: TPanel;
    bnew: TBitBtn;
    bdelete: TBitBtn;
    bcancel: TBitBtn;
    bsave: TBitBtn;
    breturn: TBitBtn;
    brepair: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure bnewClick(Sender: TObject);
    procedure repearClick(Sender: TObject);
    procedure bdeleteClick(Sender: TObject);
    procedure bcancelClick(Sender: TObject);
    procedure bsaveClick(Sender: TObject);
    procedure breturnClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2Exit(Sender: TObject);
  private
rzczy,rzsj,rzjsj,rzcsj:string;
     { Private declarations }
  public
  function checkkh(kh:string):boolean;
    { Public declarations }
  end;

var
  Frmwjgdw: TFrmwjgdw;

implementation
uses unit28, Unit1, Unit16;

{$R *.dfm}


procedure TFrmwjgdw.FormCreate(Sender: TObject);
begin
brepair.Enabled:=false;
bdelete.Enabled:=false;
bsave.Enabled:=false;
bcancel.Enabled:=false;
end;

procedure TFrmwjgdw.DBGrid1DblClick(Sender: TObject);
begin
bnew.Enabled:=false;
brepair.Enabled:=true;
bdelete.Enabled:=true;
bsave.Enabled:=false;
bcancel.Enabled:=true;
brepair.SetFocus;
end;

procedure TFrmwjgdw.FormActivate(Sender: TObject);
var
commandstring:string;
begin
rzjsj:=datetimetostr(now);
rzczy:=form1.StatusBar1.Panels[4].Text;
rzsj:='外加工单位';
rzcsj:='';
bnew.Enabled:=true;
bcancel.Enabled:=false;
brepair.Enabled:=false;
bdelete.Enabled:=false;
bsave.Enabled:=false;
try
commandstring:='select * from wjgdwb order by xh';
DataModule1.ClientDataSet7.Close;
DataModule1.ClientDataSet7.CommandText:=commandstring;
DataModule1.ClientDataSet7.Open;
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmwjgdw.bnewClick(Sender: TObject);
begin
edit2.Enabled:=true;
bsave.Enabled:=true;
bnew.Enabled:=false;
bcancel.Enabled:=true;
try
DataModule1.ClientDataSet7.First;
DataModule1.ClientDataSet7.Edit;
DataModule1.ClientDataSet7.Insert;
if form1.kh<>'' then
begin
edit2.Text:=form1.kh;
form1.kh:='';
end;
edit2.SetFocus;
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmwjgdw.repearClick(Sender: TObject);
begin
brepair.Enabled:=false;
bdelete.Enabled:=false;
bcancel.Enabled :=true;
bsave.Enabled:=true;
edit2.Enabled:=true;
edit2.SetFocus;
try
DataModule1.ClientDataSet7.Edit;
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmwjgdw.bdeleteClick(Sender: TObject);
begin
try
if DataModule1.ClientDataSet7.RecordCount<1 then exit;
DataModule1.ClientDataSet7.Edit;
DataModule1.ClientDataSet7.Delete;
DataModule1.ClientDataSet7.ApplyUpdates(-1);
except
showmessage('数据库没有打开!')
end;
bdelete.Enabled:=false;
brepair.Enabled:=false;
bnew.Enabled:=true;
bcancel.Enabled:=false;
bnew.SetFocus;
end;

procedure TFrmwjgdw.bcancelClick(Sender: TObject);
begin
bnew.Enabled:=true;
brepair.Enabled:=false;
bsave.Enabled :=false;
bcancel.Enabled:=false;
bdelete.Enabled:=false;
edit2.Enabled:=false;
bnew.SetFocus;
try
DataModule1.ClientDataSet7.CancelUpdates;
DataModule1.ClientDataSet7.Refresh;
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmwjgdw.bsaveClick(Sender: TObject);
begin
if trim(edit2.Text)='' then exit;
bsave.Enabled:=false;
brepair.Enabled:=false;
bdelete.Enabled :=false;
bnew.Enabled :=true;
bcancel.Enabled:=false;
bnew.SetFocus;
edit2.Enabled:=false;
try
edit2.Text:=trim(edit2.Text);
DataModule1.ClientDataSet7.ApplyUpdates(-1);
except
showmessage('您输入了重复信息，请您重新输入!');
DataModule1.ClientDataSet7.CancelUpdates;
DataModule1.ClientDataSet7.Refresh;
end;
end;

procedure TFrmwjgdw.breturnClick(Sender: TObject);
begin
try
form1.kh:=edit2.Text;
DataModule1.ClientDataSet7.CancelUpdates;
DataModule1.ClientDataSet7.Active:=false;
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
except
showmessage('数据库没有打开!')
end;
close;
end;

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

procedure TFrmwjgdw.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then bsave.SetFocus;
end;

procedure TFrmwjgdw.Edit2Exit(Sender: TObject);
begin
edit2.Text:=trim(edit2.Text);
end;

function tfrmwjgdw.checkkh(kh:string):boolean;
var
relation,commandstring,cx:string;
begin
relation:=' = ''';
cx:='';
commandstring:='select * from dbo.wjgdwb where (wjgdw ' +relation+cx+form1.kh+cx+''')';
try
DataModule1.ClientDataSet28.Close;
DataModule1.ClientDataSet28.CommandText:=commandstring;
DataModule1.ClientDataSet28.Open;
if DataModule1.ClientDataSet28.RecordCount<1 then form1.kh:='';
DataModule1.ClientDataSet28.Active:=false;
except
form1.kh:='';
end;
end;

end.