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.