DELPHI办公管理系统 第12页
2.4 系统的详细设计
进入Access后要做的第一件事就是建立一个数据库。Access提供了6种用构造数据库系统的对象，根据本课题的需要，在这里选择一个空的数据库，命名建立了一个数据库名称为“bm”，办公管理系统。并在此数据库下创建了八个表，用于存放原始数据。它只是存放数据，对其中数据的修改要通过对应的窗体来完成。创建各表的具体结构如下：

1. 职员表:
2. 部门表:
3. 打印设置表:
 4. 打印纸信息表:
5. 身份证信息表:
6. 通讯录信息表:
7. 邮编电话表:
8. 用户权限表:
本程序的技术实现及具体功能

3.1 登录的界面与程序设计实现

 
代码设置:
unit BM_LOGINU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, StdCtrls, jpeg, ExtCtrls;

type
  TBM_LOGINF = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    edtPassword: TEdit;
    edtAliasName: TEdit;
    Panel2: TPanel;
    btnOK: TSpeedButton;
    btnCancel: TSpeedButton;
    procedure btnOKClick(Sender: TObject);
    procedure edtAliasNameKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure edtPasswordKeyDown(Sender: TObject; var Key: Word;
www.751com.cn qq3249114: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BM_LOGINF: TBM_LOGINF;
   Logined: Boolean = false;
   function LoginExecute(aFormClass: TFormClass): Boolean; //打开登录窗口，并判断是否登录成功

implementation

uses BM_DMU, BM_OFICEU;

{$R *.dfm}
 function LoginExecute(aFormClass: TFormClass): Boolean;
begin
  with aFormClass.Create(Application) do
  begin
    Logined := False;
    try
      showModal;
    finally
      free;
    end;
    result := Logined;
  end;
end;
procedure TBM_LOGINF.btnOKClick(Sender: TObject);

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ... 下一页  >>