setdbmainform.~pas

档案信息管理系统

//在进入主程序之前，对相应的数据库进行配置
unit setDBMainForm;

interface

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

type
  TSetDBForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    btSetDB: TButton;
    btEnter: TButton;
    btCancel: TButton;
    procedure btEnterClick(Sender: TObject);
    procedure btSetDBClick(Sender: TObject);
    procedure btCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  SetDBForm: TSetDBForm;

implementation

uses BackupRestoreMain, ArchDataModule,MainForm;

{$R *.dfm}
//进入系统
procedure TSetDBForm.btEnterClick(Sender: TObject);
begin

////////////////////////////////
//将所连接的数据库切换为ArchDB
/////////////////////////////////
    MainDataModule.ArchDBConnection.DefaultDatabase :='ArchDB';
    if MainDataModule.DepTable.Active =false then
        MainDataModule.DepTable.Active :=true;
    if MainDataModule.AccountTable.Active =false then
        MainDataModule.AccountTable.Active :=true;
    if(MainDataModule.DepTable.IsEmpty)then
     begin
     ///////////////////////////////////////////////////
     //将数据库中DepTable中的第一条部门名称设置为未分配
     ///////////////////////////////////////////////////

         MainDataModule.DepTable.Insert;
         MainDataModule.DepTable.FieldByName('Depname').AsString :='无分配';
         MainDataModule.DepTable.FieldByName('DepMemberNo').AsInteger :=0;
         MainDataModule.DepTable.Post;
     end;
     /////////////////////////////
     //创建默认的管理员帐号
     ////////////////////////////

    if(MainDataModule.AccountTable.IsEmpty)then
    begin
        MainDataModule.AccountTable.FieldByName('UserName').AsString :='Admin';
        MainDataModule.AccountTable.FieldByName('Password').AsString :='Admin';
        MainDataModule.AccountTable.FieldByName('AccountRight').AsString :='管理员';
        MainDataModule.AccountTable.post;
    end;

    ArchMainForm.loginsystem.Enabled :=true;
    ArchMainForm.archManager.Enabled :=false;
    ArchMainForm.sysManager.Enabled :=false;
    MainDataModule.DepTable.Active :=false;
    ModalResult :=mrOK;
end;

//配置系统数据库
procedure TSetDBForm.btSetDBClick(Sender: TObject);
begin
    BRMainForm :=TBRMainForm.Create(Application);
    BRMainForm.GroupBox1.Enabled :=false;
    BRMainForm.Visible :=false;
    BRMainForm.ShowModal;
    btSetDB.Enabled :=false;
end;

//退出系统
procedure TSetDBForm.btCancelClick(Sender: TObject);
begin
    ModalResult :=mrCancel;
end;

end.