【delphi开源代码栏目提醒】:网学会员delphi开源代码为您提供MC_WZXXDJ.pas参考,解决您在MC_WZXXDJ.pas学习中工作中的难题,参考学习。
unit MC_WZXXDJ;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, DBCtrls, Mask, Db, DBTables, Buttons, ExtCtrls, Grids, DBGrids;
type
TWZXXDJ = class(TForm)
Table1: TTable;
Table1BDEDesigner: TStringField;
Table1BDEDesigner2: TStringField;
Table1BDEDesigner3: TStringField;
Table1BDEDesigner4: TStringField;
Table1BDEDesigner5: TDateTimeField;
Table1BDEDesigner6: TStringField;
Table1BDEDesigner7: TStringField;
Table1BDEDesigner8: TMemoField;
DataSource1: TDataSource;
GroupBox1: TGroupBox;
Label1: TLabel;
DBEdit1: TDBEdit;
Label2: TLabel;
DBEdit2: TDBEdit;
Label3: TLabel;
DBEdit3: TDBEdit;
Label4: TLabel;
DBEdit4: TDBEdit;
Label5: TLabel;
DBEdit5: TDBEdit;
Label6: TLabel;
DBEdit6: TDBEdit;
Label7: TLabel;
DBEdit7: TDBEdit;
DBMemo1: TDBMemo;
GroupBox2: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DBNavigator1: TDBNavigator;
BitBtn4: TBitBtn;
DBGrid1: TDBGrid;
Label8: TLabel;
procedure BitBtn4Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
WZXXDJ: TWZXXDJ;
implementation
uses MC_MainForm;
{$R *.DFM}
procedure TWZXXDJ.FormShow(Sender: TObject);
begin
if MainForm.Query1.Locate('使用选项','违章信息登记',[loCaseInsensitive]) then
begin
if MainForm.Query1.FieldByName('读写').AsString='读' then
begin
BitBtn1.Enabled:=False;
BitBtn2.Enabled:=False;
BitBtn3.Enabled:=False;
end;
end;
end;
procedure TWZXXDJ.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then PerForm(WM_NEXTDLGCTL,0,0); //跳转焦点到下一控件
end;
procedure TWZXXDJ.BitBtn3Click(Sender: TObject);
begin
If Table1.RecordCount <> 0 Then
if MessageDlg('是否删除当前违章信息?',mtCustom
,[mbYes,mbNo],0)=mrYes then Table1.Delete; //删除当前违章信息
end;
procedure TWZXXDJ.BitBtn2Click(Sender: TObject); //修改或取消操作
begin
if BitBtn2.Caption='修改[&E]' then //修改操作
begin
Table1.Edit; //违章信息数据表处于编辑状态
GroupBox1.Enabled:=True;
BitBtn1.Caption:='保存[&S]';
BitBtn2.caption:='取消[&U]';
BitBtn3.Enabled:=False;
Groupbox1.Enabled:=True;
GroupBox2.Enabled:=False;
DBNavigator1.Enabled:=False;
BitBtn4.Enabled:=False;
DBEdit1.SetFocus;
End
Else //取消添加或修改操作
begin
BitBtn1.Caption:='添加[&I]';
BitBtn2.Caption:='修改[&E]';
BitBtn3.Enabled:=True;
BitBtn4.Enabled:=True;
DBNavigator1.Enabled:=True;
GroupBox1.Enabled:=False;
GroupBox2.Enabled:=True;
Table1.Cancel;
end;
end;
procedure TWZXXDJ.BitBtn1Click(Sender: TObject); //添加或保存操作
begin
if BitBtn1.Caption='添加[&I]' then //添加违章信息
begin
Table1.Insert; //添加一条新记录
BitBtn1.Caption:='保存[&S]';
BitBtn2.Caption:='取消[&U]';
BitBtn3.Enabled:=False;
BitBtn4.Enabled:=False;
DBNavigator1.Enabled:=False;
GroupBox1.Enabled:=True;
Groupbox2.Enabled:=False;
DBEdit1.Setfocus;
End
Else //保存违章信息
begin
if Length(Table1.FieldByName('违章编号').AsString)=0 then
begin
ShowMessage('请输入违章编号');
DBEdit1.SetFocus;
End
Else
begin
BitBtn1.Caption:='添加[&I]';
BitBtn2.Caption:='修改[&E]';
BitBtn3.Enabled:=True;
BitBtn4.Enabled:=True;
DBNavigator1.Enabled:=True;
GroupBox1.Enabled:=False;
GroupBox2.Enabled:=True;
Try
Table1.Post; //提交保存
Except
showMessage('重复编号,保存失败.');
end;
end;
end;
end;
procedure TWZXXDJ.BitBtn4Click(Sender: TObject);
begin
Close;
end;
procedure TWZXXDJ.FormClose(Sender: TObject; var Action: TCloseAction);
begin
WZXXDJ.Release;
WZXXDJ:=Nil;
end;
end.
上一篇:
idwt.cpp
下一篇:
汝康皮肤护理液医治烧伤的可行性和效果分析