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 qq752018766: 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] ... 下一页 >>