cpdw.~pas

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

unit cpdw;

interface

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

type
  TFrmcpdw = 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
    { Public declarations }
  end;

var
  Frmcpdw: TFrmcpdw;

implementation
uses unit28, Unit1, Unit16;//,unit1,unit16;

{$R *.dfm}


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

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

procedure TFrmcpdw.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 cpdwb order by xh';
DataModule1.ClientDataSet6.Close;
DataModule1.ClientDataSet6.CommandText:=commandstring;
DataModule1.ClientDataSet6.Open;
except
showmessage('数据库没有打开!')
end;
end;

procedure TFrmcpdw.bnewClick(Sender: TObject);
begin
edit2.Enabled:=true;
bsave.Enabled:=true;
bnew.Enabled:=false;
bcancel.Enabled:=true;
try
DataModule1.ClientDataSet6.First;
DataModule1.ClientDataSet6.Edit;
DataModule1.ClientDataSet6.Insert;
edit2.SetFocus;
except
showmessage('数据库没有打开!')
end;
end;

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

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

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

procedure TFrmcpdw.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.ClientDataSet6.ApplyUpdates(-1);
except
showmessage('您输入了重复信息，请您重新输入!');
DataModule1.ClientDataSet6.CancelUpdates;
DataModule1.ClientDataSet6.Refresh;
end;
end;

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

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

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

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

end.