main.~pas

delphi＋sql编写的医院信息系统

    F_Kucun.ShowModal;                        //显示药品库存管理窗口
end;

procedure TF_Main.mxLBarHeaders2Buttons0Click(Sender: TObject);
begin  {*****住院登记按钮单击事件*****}
    if F_HReg = nil then
      F_HReg := TF_HReg.Create(Application);  //动态创建住院登记
    F_HReg.ShowModal;
end;

procedure TF_Main.mxLBarHeaders2Buttons1Click(Sender: TObject);
begin  {*****交预付款按钮单击事件*****}
    Application.MessageBox('交预付款窗口比较简单，请自行创建', '提示', MB_ICONINFORMATION + MB_OK);
end;

procedure TF_Main.mxLBarHeaders2Buttons2Click(Sender: TObject);
begin  {*****住院划价收费取药按钮单击事件*****}
    Application.MessageBox('住院划价收费取药管理窗口与门诊划价收费取药管理窗口类似，\n\t请参照门诊划价收费取药管理窗口', '提示', MB_ICONINFORMATION + MB_OK);
end;

procedure TF_Main.mxLBarHeaders2Buttons3Click(Sender: TObject);
begin  {*****出院结算按钮单击事件*****}
    Application.MessageBox('出院结算窗口比较简单，请自行创建', '提示', MB_ICONINFORMATION + MB_OK);
end;

procedure TF_Main.mxLBarHeaders3Buttons0Click(Sender: TObject);
begin  {*****医务人员登记按钮单击事件*****}
    if F_Person = nil then
      F_Person := TF_Person.Create(Application);  //动态创建医务人员登记窗体
    F_Person.ShowModal;                         //显示医务人员登记窗口
end;

procedure TF_Main.mxLBarHeaders3Buttons1Click(Sender: TObject);
var  {*****部门维护按钮单击事件*****}
    F_Branch:TF_Assis;
begin
    F_Branch := TF_Assis.Create(Application);  //动态创建部门维护窗体，继承辅助资料管理窗体
    DM.AT_Assis.Active := false;        //挂起T_Assis数据表控件
    DM.AT_Assis.TableName := 'Branch';  //表格名赋值
    DM.AT_Assis.Active := true;         //启动T_Assis数据表控件
    F_Branch.Caption := '部门维护';
    F_Branch.DBGrid.Columns.Items[0].Title.Caption := '部门编号';  //DBGrid第1列标题赋值
    F_Branch.DBGrid.Columns.Items[1].Title.Caption := '部门名称';
    F_Branch.ShowModal;   //显示部门维护窗口
end;

procedure TF_Main.mxLBarHeaders3Buttons2Click(Sender: TObject);
var  {*****职务维护按钮单击事件*****}
    F_Duty:TF_Assis;
begin
    F_Duty := TF_Assis.Create(Application);  //动态创建职务维护窗体，继承辅助资料管理窗体
    DM.AT_Assis.Active := false;        //挂起T_Assis数据表控件
    DM.AT_Assis.TableName := 'Duty';    //表格名赋值
    DM.AT_Assis.Active := true;         //启动T_Assis数据表控件
    F_Duty.Caption := '职务维护';
    F_Duty.DBGrid.Columns.Items[0].Title.Caption := '职务编号';  //DBGrid第1列标题赋值
    F_Duty.DBGrid.Columns.Items[1].Title.Caption := '职务名称';
    F_Duty.ShowModal;   //显示部门职务窗口
end;

procedure TF_Main.mxLBarHeaders3Buttons3Click(Sender: TObject);
begin  {*****值班人员管理按钮单击事件*****}
    if F_ODuty = nil then
      F_ODuty := TF_ODuty.Create(Application);   //动态创建医务值班人员管理窗体
    F_ODuty.ShowModal;                         //显示医务值班人员管理窗口
end;

procedure TF_Main.mxLBarHeaders4Buttons0Click(Sender: TObject);
begin  {*****药品分类管理按钮单击事件*****}
    if F_CDrug = nil then
      F_CDrug := TF_CDrug.Create(Application);   //动态创建药品分类管理窗体
    F_CDrug.ShowModal;                         //显示药品分类管理窗口
end;

procedure TF_Main.mxLBarHeaders4Buttons1Click(Sender: TObject);
var  {*****药品种类维护按钮单击事件*****}
    F_KDrug:TF_Assis;
begin
    F_KDrug := TF_Assis.Create(Application);  //动态创建药品种类维护窗体，继承辅助资料管理窗体
    DM.AT_Assis.Active := false;        //挂起T_Assis数据表控件
    DM.AT_Assis.TableName := 'KDrug';   //表格名赋值
    DM.AT_Assis.Active := true;         //启动T_Assis数据表控件
    F_KDrug.Caption := '药品种类维护';
    F_KDrug.DBGrid.Columns.Items[0].Title.Caption := '药品种类编号';  //DBGrid第1列标题赋值
    F_KDrug.DBGrid.Columns.Items[1].Title.Caption := '药品种类名称';
    F_KDrug.ShowModal;   //显示药品种类维护窗口
end;

procedure TF_Main.mxLBarHeaders4Buttons2Click(Sender: TObject);
var  {*****治疗种类维护按钮单击事件*****}
    F_ICure:TF_Assis;
begin
    F_ICure := TF_Assis.Create(Application);  //动态创建治疗种类维护窗体，继承辅助资料管理窗体
    DM.AT_Assis.Active := false;        //挂起T_Assis数据表控件
    DM.AT_Assis.TableName := 'ICure';   //表格名赋值
    DM.AT_Assis.Active := true;         //启动T_Assis数据表控件
    F_ICure.Caption := '治疗种类维护';
    F_ICure.DBGrid.Columns.Items[0].Title.Caption := '治疗种类编号';  //DBGrid第1列标题赋值
    F_ICure.DBGrid.Columns.Items[1].Title.Caption := '治疗种类名称';
    F_ICure.ShowModal;   //显示治疗种类维护窗口
end;

procedure TF_Main.mxLBarHeaders4Buttons3Click(Sender: TObject);
var  {*****计量单位维护按钮单击事件*****}
    F_CUnit:TF_Assis;
begin
    F_CUnit := TF_Assis.Create(Application);  //动态创建计量单位维护窗体，继承辅助资料管理窗体
    DM.AT_Assis.Active := false;        //挂起T_Assis数据表控件
    DM.AT_Assis.TableName := 'CUnit';   //表格名赋值
    DM.AT_Assis.Active := true;         //启动T_Assis数据表控件
    F_CUnit.Caption := '计量单位维护';
    F_CUnit.DBGrid.Columns.Items[0].Title.Caption := '计量单位编号';  //DBGrid第1列标题赋值
    F_CUnit.DBGrid.Columns.Items[1].Title.Caption := '计量单位名称';
    F_CUnit.ShowModal;   //显示计量单位维护窗口
end;

procedure TF_Main.mxLBarHeaders4Buttons4Click(Sender: TObject);
var  {*****药品公司维护按钮单击事件*****}
    F_Comp:TF_Assis;
begin
    F_Comp := TF_Assis.Create(Application);  //动态创建计量单位维护窗体，继承辅助资料管理窗体
    DM.AT_Assis.Active := false;        //挂起T_Assis数据表控件
    DM.AT_Assis.TableName := 'Company'; //表格名赋值
    DM.AT_Assis.Active := true;         //启动T_Assis数据表控件
    F_Comp.Caption := '药品公司维护';
    F_Comp.DBGrid.Columns.Items[0].Title.Caption := '药品公司编号';  //DBGrid第1列标题赋值
    F_Comp.DBGrid.Columns.Items[1].Title.Caption := '药品公司名称';
    F_Comp.ShowModal;    //显示药品公司维护窗口
end;

procedure TF_Main.mxLBarHeaders5Buttons0Click(Sender: TObject);
begin  {*****系统等待按钮单击事件*****}
    Application.MessageBox('系统等待也就是锁定本软件，需要验证后才能继续使用，请用户自行加上!', '提示', MB_ICONINFORMATION + MB_OK);    
end;

procedure TF_Main.mxLBarHeaders5Buttons1Click(Sender: TObject);
begin  {*****用户注册按钮单击事件*****}
    if F_Register = nil then
      F_Register := TF_Register.Create(Application);   //动态创建用户注册窗体
    F_Register.ShowModal;                       //显示用户注册窗口
end;

procedure TF_Main.mxLBarHeaders5Buttons2Click(Sender: TObject);
begin  {*****修改密码按钮单击事件*****}
    if F_PP_Modi = nil then
      F_PP_Modi := TF_PP_Modi.Create(Application);    //动态创建修改密码窗体
    if Popedom = '管理员' then  //当前权限判断，如果是管理员可以修改权限，否则不能进行修改权限操作
      F_PP_Modi.CheckBox2.Visible := true
    else
      F_PP_Modi.CheckBox2.Visible := false;
    F_PP_Modi.ShowModal;                       //显示修改密码窗口
end;

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

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

procedure TF_Main.mxLBarHeaders5Buttons5Click(Sender: TObject);
var  {*****计算器按钮单击事件*****}
    Command:AnsiString;
    lpBuffer:array[0..128]of char;
    handle:HWND;
begin
    GetWindowsDirectory(lpBuffer,128);  //取得Windows目录路径名
    Command := StrPas(lpBuffer)+'\system32\calc.exe';
    handle := FindWindow(nil,pchar(Command));  //查找应用程序
    if handle = 0 then  //如果进程没有运行
      WinExec(pchar(Command),SW_SHOW)     //建立进程
    else
      ShowWindow(handle,SW_SHOWNORMAL);   //进程窗口若被最小化，正常方式显示
end;

procedure TF_Main.mxLBarHeaders5Buttons6Click(Sender: TObject);
var  {*****本院主页按钮单击事件*****}
    Command:AnsiString;
    lpBuffer:array[0..128]of char;
    handle:HWND;
begin
    if InputQuery('输入框', '请医院网址',Command) then  
      GetWindowsDirectory(lpBuffer,128); //取得Windows目录路径名
      Command := StrPas(lpBuffer)+'\EXPLORER.EXE /n,/e, http://'+Command;
      //查找同名进程是否在系统已经运行
      handle := FindWindow('ExploreWClass',pchar(Command));  //c_str()将AnsiString字符串转换成char
      if handle = 0 then  //如果进程没有运行
        WinExec(pchar(Command),SW_SHOW)  //建立进程
      else
        ShowWindow(handle,SW_SHOWNORMAL); //进程窗口若被最小化，正常方式显示
end;

procedure TF_Main.mxLBarHeaders5Buttons7Click(Sender: TObject);
begin  {*****退出系统按钮单击事件*****}
    Close;  //关闭主窗口
end;

procedure TF_Main.ToolButton1Click(Sender: TObject);
begin  {*****帮助文件快捷按钮单击事件*****}
    Application.HelpContext(1);
end;

procedure TF_Main.ToolButton2Click(Sender: TObject);
begin  {*****关于快捷按钮单击事件*****}
    if F_AboutBox = nil then
      F_AboutBox := TF_AboutBox.Create(Application);  //动态创建关于窗体
    F_AboutBox.ShowModal;                         //显示关于窗口  
end;

procedure TF_Main.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var  {*****主窗体关闭查询事件*****}
  iMsgFLag: integer;
begin
  CanClose := true;  //确认退出
  iMsgFlag := Application.MessageBox('真的要退出系统吗？', '提示', MB_ICONQUESTION +MB_OKCANCEL + MB_DEFBUTTON2) ;
  if iMsgFlag = IDCancel then
  begin
    CanClose := false;  //取消退出
    exit;
  end;
end;

end.