mc_xqzdgl.pas

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

unit MC_XQZDGL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, DBCtrls, Mask, Db, DBTables, Buttons, ExtCtrls;

type
  TXQZDGL = class(TForm)
    GroupBox1: TGroupBox;
    Table1: TTable;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TMemoField;
    Table1BDEDesigner4: TMemoField;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBMemo1: TDBMemo;
    Label4: TLabel;
    DBMemo2: TDBMemo;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Table1BDEDesigner: TIntegerField;
    DBNavigator1: TDBNavigator;
    BitBtn5: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure DBEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  XQZDGL: TXQZDGL;

implementation

uses MC_ZDLL, MC_MainForm;

{$R *.DFM}
procedure TXQZDGL.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 TXQZDGL.BitBtn1Click(Sender: TObject);
begin
if BitBtn1.Caption='添加新制度[&I]' then  //添加新制度
begin
  Table1.Append;
  Table1.FieldByName('编号').AsInteger:=Table1.RecordCount+1;
  Groupbox1.Enabled:=True;
  BitBtn1.Caption:='保存制度[&S]';
  BitBtn2.Caption:='放弃制度[&U]';
  BitBtn3.Enabled:=False;
  BitBtn4.Enabled:=False;
  DBNavigator1.Enabled:=False;
  DBEdit2.SetFocus;
End
Else    //保存制度操作
begin
  if Length(Table1.FieldByName('规章制度名').AsString)=0 then  //如果输入规章制度为空
  begin
    ShowMessage('请输入制度名'); //提示'请输入制度名'
    DBEdit2.SetFocus; //跳转焦点到规章制度输入框
  End
  Else  //如果输入规章制度不为空
  begin
    GroupBox1.Enabled:=False;
    BitBtn1.Caption:='添加新制度[&I]';
    BitBtn2.Caption:='编辑制度信息[&E]';
    BitBtn3.Enabled:=True;
    BitBtn4.Enabled:=True;
    DBNavigator1.Enabled:=True;
    Table1.Post;    //提交保存
  end;
end;
end;

procedure TXQZDGL.BitBtn4Click(Sender: TObject);    //浏览规章制度
begin
  If Not Assigned(ZDLL) Then
  begin
    ZDLL:=TZDLL.Create(Self);
    ZDLL.ShowModal;   //调入规章制度信息浏览窗口
  end;
end;

procedure TXQZDGL.BitBtn2Click(Sender: TObject);  //修改或放弃保存制度操作
begin
  If Table1.recordCount <> 0 Then   //如果制度信息不为空
  if BitBtn2.Caption='编辑制度信息[&E]' then   //修改制度操作
  begin
    Table1.Edit;
    Groupbox1.Enabled:=True;
    BitBtn1.Caption:='保存制度[&S]';
    BitBtn2.Caption:='放弃制度[&U]';
    BitBtn3.Enabled:=False;
    BitBtn4.Enabled:=False;
    DBNavigator1.Enabled:=False;
    DBEdit2.SetFocus;
  End
  Else //放弃保存制度操作
  begin
    GroupBox1.Enabled:=False;
    BitBtn1.Caption:='添加新制度[&I]';
    BitBtn2.Caption:='编辑制度信息[&E]';
    BitBtn3.Enabled:=True;
    BitBtn4.Enabled:=True;
    DBNavigator1.Enabled:=True;
    Table1.Cancel;   //放弃保存操作
  end;
end;

procedure TXQZDGL.BitBtn3Click(Sender: TObject);   //删除规章制度
begin
  If Table1.recordCount <> 0 Then
  if MessageDLG('是否删除['+Table1.FieldByName('规章制度名').AsString+']的信息?'
     ,mtCustom,[mbYes,mbNo],0)=mrYes then Table1.Delete;
end;

procedure TXQZDGL.DBEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then DBMemo1.SetFocus;  //跳转焦点到“规章制度描述“输入框
end;

procedure TXQZDGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  XQZDGL.Release;
  XQZDGL:=Nil;
end;
procedure TXQZDGL.BitBtn5Click(Sender: TObject);
begin
  close;
end;

end.