mc_wzxxdj.~pas

1、系统环境要求：所有程序均在Windows98/XP操作系统下测试运行。 2、建议用户在系统上安装DELPHI7.0企业版。 3、如果数据库为SQL Server数据库

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;
    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.