jglx.pas

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

unit jglx;

interface

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

type
  TFrmjglx = 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;
    DBEdit1: TDBEdit;
    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
    { Public declarations }
  end;

var
  Frmjglx: TFrmjglx;

implementation
uses unit28,Unit16, Unit1, glfywh;

{$R *.dfm}


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

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

procedure TFrmjglx.FormActivate(Sender: TObject);
var
commandstring,relation,cx,str: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;
relation:=' = ''';
str:='jg';
cx:='';
commandstring:='select * from fylbb where (fylbb.lb';
commandstring:=commandstring+relation+cx+str+cx+''')'+' order by xh';
try
DataModule1.ClientDataSet16.Close;
DataModule1.ClientDataSet16.CommandText:=commandstring;
DataModule1.ClientDataSet16.Open;
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmjglx.bnewClick(Sender: TObject);
begin
edit2.Enabled:=true;
bsave.Enabled:=true;
bnew.Enabled:=false;
bcancel.Enabled:=true;
try
DataModule1.ClientDataSet16.First;
DataModule1.ClientDataSet16.Edit;
DataModule1.ClientDataSet16.Insert;
edit2.SetFocus;
//if form9.returncs=1 then edit2.Text:=trim(form9.tks.Text);
//if form15.returncs=1 then edit2.Text:=trim(form15.tks.Text);
except
showmessage('数据库没有打开!')
end;
end;

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

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

procedure TFrmjglx.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.ClientDataSet16.CancelUpdates;
DataModule1.ClientDataSet16.Refresh;
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmjglx.bsaveClick(Sender: TObject);
begin
if trim(edit2.Text)='' then exit;
dbedit1.Text:='jg';
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);
dbedit1.Text:='jg';
DataModule1.ClientDataSet16.ApplyUpdates(-1);
except
showmessage('您输入了重复信息，请您重新输入!');
DataModule1.ClientDataSet16.CancelUpdates;
DataModule1.ClientDataSet16.Refresh;
end;
end;

procedure TFrmjglx.breturnClick(Sender: TObject);
begin
try
DataModule1.ClientDataSet16.CancelUpdates;
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
except
showmessage('数据库没有打开!')
end;
close;
end;

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

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

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

end.