unit MC_ZYXXGL;

interface

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

type
  TZYXXGL = class(TForm)
    GroupBox1: TGroupBox;
    Table1: TTable;
    Table1BDEDesigner: TStringField;
    Table1BDEDesigner2: TStringField;
    Table1BDEDesigner3: TStringField;
    Table1BDEDesigner4: TDateTimeField;
    Table1BDEDesigner5: TStringField;
    Table1BDEDesigner6: TStringField;
    Table1BDEDesigner7: TStringField;
    Table1BDEDesigner8: TStringField;
    Table1BDEDesigner9: TMemoField;
    Table1BDEDesigner10: TBlobField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    Label8: TLabel;
    Label9: TLabel;
    DBMemo1: TDBMemo;
    DBImage1: TDBImage;
    DBComboBox1: TDBComboBox;
    DBEdit2: TDBEdit;
    DBLookupComboBox1: TDBLookupComboBox;
    Table2: TTable;
    Table2BDEDesigner: TStringField;
    DataSource2: TDataSource;
    DBLookupComboBox2: TDBLookupComboBox;
    Table3: TTable;
    DataSource3: TDataSource;
    Table3BDEDesigner: TStringField;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    DBNavigator1: TDBNavigator;
    OpenPictureDialog1: TOpenPictureDialog;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    BitBtn9: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure DBEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure BitBtn9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZYXXGL: TZYXXGL;

implementation

uses MC_YGList, MC_MainForm;

{$R *.DFM}
procedure TZYXXGL.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 TZYXXGL.BitBtn1Click(Sender: TObject);    // 添加員工
begin
  Table1.Append;     // 添加一條新記錄
  GroupBox1.Enabled:=True;
  BitBtn3.Enabled:=False;  // “刪除“按鈕無效
  BitBtn4.Enabled:=False;  // “瀏覽“按鈕無效
  DBNavigator1.Enabled:=False;
  DBEdit1.SetFocus;    //焦點移到員工編號編輯框
end;

procedure TZYXXGL.BitBtn2Click(Sender: TObject);   //修改員工信息
begin
  Table1.Edit;
  GroupBox1.Enabled:=True;
  BitBtn3.Enabled:=False;   // “刪除“按鈕無效
  BitBtn4.Enabled:=False;   // “瀏覽“按鈕無效
  DBNavigator1.Enabled:=False;
  DBEdit1.SetFocus;     //焦點移到員工編號編輯框
end;

procedure TZYXXGL.BitBtn3Click(Sender: TObject);   //刪除員工數據
begin
  If Table1.RecordCount <> 0 Then
  if MessageDLg('是否刪除['+Table1.FieldByName('姓名')
     .AsString+']的員工信息?',mtCustom,[mbYes,mbNo],0)=mrYes then
     Table1.Delete;     //刪除選定記錄
end;

procedure TZYXXGL.BitBtn4Click(Sender: TObject);   //瀏覽員工信息
begin
  If Not Assigned(YGList) Then
  begin
    YGList:=TYGList.Create(Self);
    YGList.ShowModal;   //顯示員工信息瀏覽窗口
  end;
end;

procedure TZYXXGL.BitBtn5Click(Sender: TObject);   //添加照片
var Picture1:Tpicture;
begin
  Picture1:=TPicture.Create;
  If OpenPictureDialog1.Execute Then
  begin
    Picture1.LoadFromFile(OpenPictureDialog1.Filename);
    Table1.FieldByName('照片').Assign(Picture1);
  end;
end;

procedure TZYXXGL.BitBtn6Click(Sender: TObject);   //清除照片
begin
  Table1.FieldByName('照片').Assign(Nil);
end;
procedure TZYXXGL.BitBtn8Click(Sender: TObject);   //保存照片
begin
  If (Length(DBEdit1.Text) = 0) Or (Length(DBEdit2.Text) = 0) Then  //判斷輸入員工編號或姓名是否為空
  begin
    ShowMessage('請將編號,姓名信息添全.');
  End
  Else
  begin
    GroupBox1.Enabled:=False;
    BitBtn3.Enabled:=True;      // “刪除“按鈕可用
    BitBtn4.Enabled:=True;      // “瀏覽“按鈕可用
    DBNavigator1.Enabled:=True;
    Table1.Post;
  end;
end;

procedure TZYXXGL.BitBtn9Click(Sender: TObject);  //取消操作
begin
  GroupBox1.Enabled:=False;
    BitBtn3.Enabled:=True;      // “刪除“按鈕可用
    BitBtn4.Enabled:=True;      // “瀏覽“按鈕可用
  DBNavigator1.Enabled:=True;
  Table1.Cancel;
end;

procedure TZYXXGL.DBEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then PerForm(WM_NEXTDLGCTL,0,0);
end;

procedure TZYXXGL.BitBtn7Click(Sender: TObject);
begin
CLOSE;
end;
procedure TZYXXGL.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZYXXGL.Release;
  ZYXXGL:=Nil;
end;
end.