【delphi开源代码栏目提醒】:网学会员为广大网友收集整理了,gdzcwx.pas,希望对大家有所帮助!
unit gdzcwx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, DB, ADODB;
type
TMaitainOrReturn =(morMaintain,morReturn);
TBhValidateWx = (bvwEmpty,bvwNoBh,bvwNoMaintain,bvwHasMaintain);
TfrmGdzcwx = class(TForm)
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label1: TLabel;
Label2: TLabel;
edtMc: TEdit;
BitBtn1: TBitBtn;
BitBtnXxzl: TBitBtn;
GroupBox3: TGroupBox;
Label3: TLabel;
Label4: TLabel;
DTPXhrq: TDateTimePicker;
BitBtnTj: TBitBtn;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
EdtBh: TEdit;
edtBm: TEdit;
ADODataSet1: TADODataSet;
ADOQuery1: TADOQuery;
DTPSxrq: TDateTimePicker;
Label5: TLabel;
memSxyy: TMemo;
Label6: TLabel;
edtWxfy: TEdit;
procedure BitBtn4Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure EdtBhExit(Sender: TObject);
procedure BitBtnXxzlClick(Sender: TObject);
procedure BitBtnTjClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
FMOR:TMaitainOrReturn ;
FBhValidateWx : TBhValidateWx ; //已输入的编号状态
procedure setMOR(value:TMaitainOrReturn );
function checkBh:TBhValidateWx ; //检验检验用户输入的编号
public
{ Public declarations }
property MOR:TMaitainOrReturn read FMOR write setMOR default morMaintain ;
end;
var
frmGdzcwx: TfrmGdzcwx;
implementation
uses Main, DataModule;
{$R *.dfm}
procedure TfrmGdzcwx.BitBtn4Click(Sender: TObject);
begin
close;
end;
procedure TfrmGdzcwx.BitBtn1Click(Sender: TObject);
begin
MainForm.OprState := osZhcx ;
end;
procedure TfrmGdzcwx.FormCreate(Sender: TObject);
begin
DTPXhrq.MaxDate := Now ;
DTPSxrq.MaxDate := Now ;
end;
procedure TfrmGdzcwx.BitBtn5Click(Sender: TObject);
begin
if trim(dm.bh) <> '' then
begin
EdtBh.Text := dm.bh;
EdtBhExit(Sender);
end;
end;
procedure TfrmGdzcwx.setMOR(value:TMaitainOrReturn );
begin
FMOR := value ;
if FMOR = morMaintain then
begin
GroupBox1.Caption := '固定资产送修';
DTPSxrq.Enabled := true;
DTPSxrq.Color := COLOR_ENABLED ;
memSxyy.Enabled := True ;
memSxyy.Color := COLOR_ENABLED ;
DTPXhrq.Enabled := False ;
DTPXhrq.Color := COLOR_UNABLED ;
edtWxfy.Enabled := False ;
edtWxfy.Color := COLOR_UNABLED ;
end
else
begin
GroupBox1.Caption := '固定资产修回';
DTPSxrq.Enabled := False;
DTPSxrq.Color := COLOR_UNABLED ;
memSxyy.Enabled := False ;
memSxyy.Color := COLOR_UNABLED ;
DTPXhrq.Enabled := True ;
DTPXhrq.Color := COLOR_ENABLED ;
edtWxfy.Enabled := True ;
edtWxfy.Color := COLOR_ENABLED ;
end;
EdtBhExit(self);
end;
procedure TfrmGdzcwx.EdtBhExit(Sender: TObject);
begin
FBhValidateWx := checkBh;
case FBhValidateWx of
bvwEmpty :
begin
BitBtnXxzl.Enabled := false;
BitBtnTj.Enabled := False ;
end;
bvwNoBh :
begin
BitBtnXxzl.Enabled := false;
BitBtnTj.Enabled := False ;
ShowMessage('无编号为'+ trim(EdtBh.Text)+ '的固定资产资料!');
end;
bvwNoMaintain :
begin
if FMOR = morMaintain then
begin
BitBtnXxzl.Enabled := True ;
BitBtnTj.Enabled := True ;
end
else
begin
BitBtnXxzl.Enabled := True ;
BitBtnTj.Enabled := False ;
ShowMessage('无编号为'+ trim(EdtBh.Text)+ '的固定资产送修资料!');
end;
end;
bvwHasMaintain :
begin
if FMOR = morMaintain then
begin
BitBtnXxzl.Enabled := True ;
BitBtnTj.Enabled := False ;
ShowMessage('编号为'+ trim(EdtBh.Text)+ '的固定资产已经送修!');
end
else
begin
BitBtnXxzl.Enabled := True ;
BitBtnTj.Enabled := true ;
end;
end;
end;
end;
function TfrmGdzcwx.checkBh:TBhValidateWx ; //检验检验用户输入的编号
begin
if (trim(EdtBh.Text) = '') then
begin
result := bvwEmpty ;
exit;
end;
if dm.ADODataSetGdzc.Locate('gdzc_bh',trim(edtbh.Text),[]) then
begin
edtMc.Text := dm.ADODataSetGdzc.FieldValues['gdzc_mc'];
edtBm.Text := dm.ADODataSetGdzc.FieldValues['gdzc_sybm'];
ADODataSet1.Active := false;
ADODataSet1.CommandText := 'SELECT gdzcwx.* FROM gdzcwx '
+ ' where trim(gdzcwx.gdzcwx_bh) =''' + trim(EdtBh.Text)
+ ''' and gdzcwx.gdzcwx_xhrq is null';
ADODataSet1.Active := true;
if ADODataSet1.IsEmpty then
begin
Result := bvwNoMaintain ;
end
else
begin
DTPSxrq.DateTime := ADODataSet1.FieldValues['gdzcwx_sxrq'];
memSxyy.Text := ADODataSet1.FieldValues['gdzcwx_gzyy'];
Result := bvwHasMaintain ;
end;
end
else
begin
Result := bvwNoBh ;
end;
end;
procedure TfrmGdzcwx.BitBtnXxzlClick(Sender: TObject);
begin
dm.ADODa