mc_zyxxgl.pas

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

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.