fb.~pas

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

unit fb;

interface

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

type
  TFrmfb = 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 checkks(ks:string):boolean;
    { Public declarations }
  end;

var
  Frmfb: TFrmfb;

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

{$R *.dfm}


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

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

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

procedure TFrmfb.bnewClick(Sender: TObject);
begin
edit2.Enabled:=true;
bsave.Enabled:=true;
bnew.Enabled:=false;
bcancel.Enabled:=true;
try
DataModule1.ClientDataSet1.First;
DataModule1.ClientDataSet1.Edit;
DataModule1.ClientDataSet1.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 TFrmfb.repearClick(Sender: TObject);
begin
brepair.Enabled:=false;
bdelete.Enabled:=false;
bcancel.Enabled :=true;
bsave.Enabled:=true;
edit2.Enabled:=true;
edit2.SetFocus;
try
DataModule1.ClientDataSet1.Edit;
except
showmessage('数据库没有打开!')
end;
end;

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

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

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

procedure TFrmfb.breturnClick(Sender: TObject);
begin
try
DataModule1.ClientDataSet1.CancelUpdates;
//if form3.returncs=1 then form3.tks.Text:=trim(edit2.Text);
//if form36.returncs=1 then form36.tks.Text:=trim(edit2.Text);
DataModule1.ClientDataSet1.Active:=false;
rzcsj:=datetimetostr(now);
form16.WriteTorz(rzczy,rzsj,rzjsj,rzcsj);
except
showmessage('数据库没有打开!')
end;
close;
end;

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

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

procedure TFrmfb.Edit2Exit(Sender: TObject);
begin
edit2.Text:=trim(edit2.Text);
end;
 function tFrmfb.checkks(ks:string):boolean;
var
relation,commandstring,cx:string;
begin
relation:=' = ''';
cx:='';
commandstring:='select * from fbb where (fbb.fb ' +relation+cx+ks+cx+''')';
try
DataModule1.ClientDataSet28.Close;
DataModule1.ClientDataSet28.CommandText:=commandstring;
DataModule1.ClientDataSet28.Open;
 except
showmessage('数据库打开失败!');
DataModule1.ClientDataSet28.Active:=false;
end;
DataModule1.ClientDataSet28.Active:=false;
end;
end.