毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

DELPHI办公管理系统 第12页

更新时间:2010-1-17:  来源:毕业论文
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 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]  ... 下一页  >> 

DELPHI办公管理系统 第12页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。