fylb.pas

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

unit fylb;

interface

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

type
  TFrmfylb = 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
  function checkfylb(fylb:string):boolean;
    { Public declarations }
  end;

var
  Frmfylb: TFrmfylb;

implementation
uses unit28,Unit16, Unit1, glfywh;

{$R *.dfm}


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

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

procedure TFrmfylb.FormActivate(Sender: TObject);
var
commandstring,str,relation,cx: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:='fy';
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 TFrmfylb.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;
if form1.fylb<>'' then
begin
edit2.Text:=form1.fylb;
form1.fylb:='';
end;
edit2.SetFocus;
except
showmessage('数据库没有打开!')
end;
end;

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

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

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

procedure TFrmfylb.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if trim(edit2.Text)='' then exit;
if key=#13 then bsave.SetFocus;
end;

procedure TFrmfylb.Edit2Exit(Sender: TObject);
begin
edit2.Text:=trim(edit2.Text);
end;
function tfrmfylb.checkfylb(fylb:string):boolean;
var   
relation,commandstring,cx:string;
begin
relation:=' = ''';
cx:='';
commandstring:='select * from dbo.fylbb where (fylb ' +relation+cx+form1.fylb+cx+''')';
commandstring:=commandstring+'and (lb ' +relation+cx+'fy'+cx+''')';
try
DataModule1.ClientDataSet28.Close;
DataModule1.ClientDataSet28.CommandText:=commandstring;
DataModule1.ClientDataSet28.Open;
if DataModule1.ClientDataSet28.RecordCount<1 then form1.fylb:='';
DataModule1.ClientDataSet28.Active:=false;
except
form1.fylb:='';
end;
end;
end.