main.~pas

适合新手 绝对精品 档案管理系统 本人花钱购买来的源代

      DM.AT_Class.Close;          //激活各个数据表与服务器的连接
      DM.AT_Tank.Close;
      DM.AT_Borrow.Close;
      DM.AT_Return.Close;
      DM.AT_Count.Close;
      DM.AQ_Manage.Close;
    ///
    try        //捕捉异常
      DM.AQ_Back_Restore.ExecSQL;     //执行SQL语句，但不打开数据集
    except     //抛出异常
      Application.MessageBox('数据库恢复出错', '错误！', MB_OK);
    end;
    ///
    DM.ADOConnection.Connected := true;  //启动与数据库服务器的连接
      DM.AT_Class.Active := true;          //激活各个数据表与服务器的连接
      DM.AT_Tank.Active := true;
      DM.AT_Borrow.Active := true;
      DM.AT_Return.Active := true;
      DM.AT_Count.Active := true;
      DM.AQ_Manage.Active := true;
    ///

}
end;

procedure TF_Main.WindowCloseAllExecute(Sender: TObject);
var  {*****操作列表控件ActionList1中WindowCloseAll操作执行事件*****}
    i:integer;
begin
    for i:=0 to MDIChildCount-1 do  //MDIChildCount取得当前MDI子窗口的个数
      MDIChildren[i].Close;       //关闭所有MDI子窗口
end;

procedure TF_Main.WindowCloseAllUpdate(Sender: TObject);
begin  {*****操作列表控件ActionList1中WindowCloseAll操作Updata事件*****}
    if MDIChildCount>0 then  //是否有MDI子窗口创建判断
      (Sender as TAction).Enabled := true  //关闭所有MDI子窗口菜单使能
    else
      (Sender as TAction).Enabled := false; //关闭所有MDI子窗口菜单非使能
end;

procedure TF_Main.M_ClassClick(Sender: TObject);
begin  {*****档案分类管理菜单项单击事件*****}
 //   if CreateForm(F_Class) = false then       //CreateForm调用判断档案分类管理窗体是否存在函数
      F_Class := TF_Class.Create(Application);  //动态创建档案分类管理窗体
    DM.DS_Class.Enabled := true; //档案分类资料数据源控件处于使能态，与提交、取消按钮数据感知控件建立关联关系
end;

procedure TF_Main.M_TankClick(Sender: TObject);
begin  {*****档案柜资料管理菜单项单击事件*****}
  //  if CreateForm(F_Tank) = false then       //CreateForm调用判断档案柜资料管理窗体是否存在函数
      F_Tank := TF_Tank.Create(Application);  //动态创建档案柜资料管理窗体
    DM.DS_Tank.Enabled := true; //档案柜资料数据源控件处于使能态，与提交、取消按钮数据感知控件建立关联关系
end;

procedure TF_Main.M_ManageClick(Sender: TObject);
begin  {*****档案管理菜单项单击事件*****}
 //   if CreateForm(F_Manage) = false then       //CreateForm调用判断档案管理窗体是否存在函数
    F_Manage := TF_Manage.Create(Application);  //动态创建档案管理窗体
    DM.DS_Manage.Enabled := true;          //档案管理数据源控件处于使能态，与提交、取消按钮数据感知控件建立关联关系
end;

procedure TF_Main.M_BorrowClick(Sender: TObject);
begin  {*****档案借用管理菜单项单击事件*****}
 //   if CreateForm(F_BReturn) = false then       //CreateForm调用判断档案借用管理窗体是否存在函数
      F_BReturn := TF_BReturn.Create(Application);  //动态创建档案借用管理窗体
    F_BReturn.PageControl1.ActivePage := F_BReturn.PageControl1.Pages[0];  //设定ActivePage为借用档案管理标签页
    DM.DS_Borrow.Enabled := true;           //档案借用管理数据源控件处于使能态，与提交、取消、删除等按钮数据感知控件建立关联关系
end;

procedure TF_Main.M_ReturnClick(Sender: TObject);
begin  {*****档案归还管理菜单项单击事件*****}
 //   if CreateForm(F_BReturn) = false then       //CreateForm调用判断档案归还管理窗体是否存在函数
      F_BReturn := TF_BReturn.Create(Application);  //动态创建档案归还管理窗体
    F_BReturn.PageControl1.ActivePage := F_BReturn.PageControl1.Pages[1];  //设定ActivePage为归还档案管理标签页
    DM.DS_Return.Enabled := true;           //档案归还管理数据源控件处于使能态，与提交、取消、删除等按钮数据感知控件建立关联关系
end;

procedure TF_Main.M_BackupClick(Sender: TObject);
var
    i:integer;
    str:AnsiString;
begin  {*****数据备份菜单项单击事件*****}
    if SaveDialog1.Execute then  //用户打开数据库备份对话框后选择了保存按钮
      begin
      if FileExists(SaveDialog1.FileName) then
        begin
        str := SaveDialog1.FileName+'文件已经存在，要替换它吗？';
        i := MessageBox(NULL,pchar(str),'另存为',MB_OKCANCEL);
        if i = mrOk then   //用户确定了替换操作
          begin
          BackupDatabase(SaveDialog1.FileName);  //BackupDatabase是用户自定义备份数据库函数
          exit;
          end
        else               //用户取消了替换操作
          exit;
        end;
      BackupDatabase(SaveDialog1.FileName);  //BackupDatabase是用户自定义备份数据库函数
      end;
end;

procedure TF_Main.M_RestoreClick(Sender: TObject);
begin  {*****数据还原菜单项单击事件*****}
    if OpenDialog1.Execute then  //用户打开数据库还原对话框后选择了打开按钮
      RestoreDatabase(OpenDialog1.FileName);  //RestoreDatabase是用户自定义还原数据库函数
end;

procedure TF_Main.M_HelpClick(Sender: TObject);
begin  {*****系统信息菜单项单击事件*****}
    try
      F_ABox := TF_ABox.Create(Application);    //动态创建关于窗体
      F_ABox.ShowModal;                         //显示关于窗口
    except
      on e: exception do
      Application.ShowException(e);    //弹出异常对话框
    end;
end;


procedure TF_Main.SBdaglClick(Sender: TObject);
begin  {*****档案管理按钮单击事件*****}
 //   if CreateForm(F_Manage) = false then       //CreateForm调用判断档案管理窗体是否存在函数
 //     F_Manage := TF_Manage.Create(Application);  //动态创建档案管理窗体
  F_Manage:=tF_Manage.create(application);
  DM.DS_Manage.Enabled := true;
// F_Manage.ShowModal;
// F_Manage.Close;
 //2F_Manage.Free;
            //档案管理数据源控件处于使能态，与提交、取消按钮数据感知控件建立关联关系
end;

procedure TF_Main.SBdagglClick(Sender: TObject);
begin  {*****档案柜资料管理按钮单击事件*****}
  //  if CreateForm(F_Tank) = false then       //CreateForm调用判断档案柜资料管理窗体是否存在函数
      F_Tank := TF_Tank.Create(Application);  //动态创建档案柜资料管理窗体
    DM.DS_Tank.Enabled := true; //档案柜资料数据源控件处于使能态，与提交、取消按钮数据感知控件建立关联关系
end;

procedure TF_Main.SBdaflglClick(Sender: TObject);
begin  {*****档案分类管理按钮单击事件*****}
  //  if CreateForm(F_Class) = false then       //CreateForm调用判断档案分类管理窗体是否存在函数
      F_Class := TF_Class.Create(Application);  //动态创建档案分类管理窗体
    DM.DS_Class.Enabled := true; //档案分类资料数据源控件处于使能态，与提交、取消按钮数据感知控件建立关联关系
end;

procedure TF_Main.SBdbfbfClick(Sender: TObject);
var
    i:integer;
    str:AnsiString;
begin  {*****数据备份按钮单击事件*****}
    if SaveDialog1.Execute then  //用户打开数据库备份对话框后选择了保存按钮
      begin
      if FileExists(SaveDialog1.FileName) then
        begin
        str := SaveDialog1.FileName+'文件已经存在，要替换它吗？';
        //pchar(str)
        i := MessageBox(NULL,pchar(str),'另存为',MB_OKCANCEL);
        if i = mrOk then   //用户确定了替换操作
          begin
          BackupDatabase(SaveDialog1.FileName);  //BackupDatabase是用户自定义备份数据库函数
          exit;
          end
        else               //用户取消了替换操作
          exit;
        end;
      BackupDatabase(SaveDialog1.FileName);  //BackupDatabase是用户自定义备份数据库函数
      end;
end;

procedure TF_Main.SBdbfhfClick(Sender: TObject);
begin  {*****数据还原按钮单击事件*****}
   dm.Free;

    if OpenDialog1.Execute then  //用户打开数据库还原对话框后选择了打开按钮
    RestoreDatabase(OpenDialog1.FileName);  //RestoreDatabase是用户自定义还原数据库函数
Application.CreateForm(TDM, DM);
end;

procedure TF_Main.SBsysClick(Sender: TObject);
begin  {*****系统信息按钮单击事件*****}
    try
      F_ABox := TF_ABox.Create(Application);    //动态创建关于窗体
      F_ABox.ShowModal;                         //显示关于窗口
    except
      on e: exception do
      Application.ShowException(e);    //弹出异常对话框
    end;
end;

procedure TF_Main.SBdaghClick(Sender: TObject);
begin  {*****档案归还管理按钮单击事件*****}
//    if CreateForm(F_BReturn) = false then       //CreateForm调用判断档案归还管理窗体是否存在函数
      F_BReturn := TF_BReturn.Create(Application);  //动态创建档案归还管理窗体
    F_BReturn.PageControl1.ActivePage := F_BReturn.PageControl1.Pages[1];  //设定ActivePage为归还档案管理标签页
    DM.DS_Return.Enabled := true;           //档案归还管理数据源控件处于使能态，与提交、取消、删除等按钮数据感知控件建立关联关系
end;

procedure TF_Main.SBdajyClick(Sender: TObject);
begin  {*****档案借用管理按钮单击事件*****}
  //  if CreateForm(F_BReturn) = false then       //CreateForm调用判断档案借用管理窗体是否存在函数
      F_BReturn := TF_BReturn.Create(Application);  //动态创建档案借用管理窗体
    F_BReturn.PageControl1.ActivePage := F_BReturn.PageControl1.Pages[0];  //设定ActivePage为借用档案管理标签页
    DM.DS_Borrow.Enabled := true;           //档案借用管理数据源控件处于使能态，与提交、取消、删除等按钮数据感知控件建立关联关系
end;

procedure TF_Main.M_quitClick(Sender: TObject);
begin
    F_main.Close;
end;

procedure TF_Main.SBquitClick(Sender: TObject);
begin
   F_main.Close;
end;

procedure TF_Main.WindowsCloseAllExecute(Sender: TObject);
var  {*****操作列表控件ActionList1中WindowCloseAll操作执行事件*****}
    i:integer;
begin
    for i:=0 to MDIChildCount-1 do  //MDIChildCount取得当前MDI子窗口的个数
      MDIChildren[i].Close;       //关闭所有MDI子窗口

end;

procedure TF_Main.WindowsCloseAllUpdate(Sender: TObject);
begin
 if MDIChildCount>0 then  //是否有MDI子窗口创建判断
      (Sender as TAction).Enabled := true  //关闭所有MDI子窗口菜单使能
    else
      (Sender as TAction).Enabled := false; //关闭所有MDI子窗口菜单非使能

end;

end.