main.pas

delphi制作的校医院收费系统

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ImgList, Menus, ComCtrls, ToolWin, jpeg, StdCtrls, DB,
  ADODB;

type
  Tmain1 = class(TForm)
    Panel1: TPanel;
    PageControl2: TPageControl;
    TabSheet5: TTabSheet;
    StaticText5: TStaticText;
    GroupBox1: TGroupBox;
    label_gh: TLabel;
    Label_mzbagl: TLabel;
    Label_cxhbb: TLabel;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    b_go2: TButton;
    GroupBox3: TGroupBox;
    RichEdit1: TRichEdit;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    Panel2: TPanel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Image1: TImage;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton6: TToolButton;
    ToolButton9: TToolButton;
    ToolButton5: TToolButton;
    ToolButton10: TToolButton;
    ToolButton4: TToolButton;
    ToolButton3: TToolButton;
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N21: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N27: TMenuItem;
    objectN17TMenuItem1: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N31: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N12: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N52: TMenuItem;
    N16: TMenuItem;
    N61: TMenuItem;
    N71: TMenuItem;
    N20: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N26: TMenuItem;
    N30: TMenuItem;
    N72: TMenuItem;
    N25: TMenuItem;
    ImageList1: TImageList;
    Timer1: TTimer;
    b_go1: TButton;
    GroupBox4: TGroupBox;
    GroupBox5: TGroupBox;
    GroupBox6: TGroupBox;
    Image2: TImage;
    Image3: TImage;
    Memo1: TMemo;
    GroupBox7: TGroupBox;
    GroupBox8: TGroupBox;
    GroupBox9: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    Image4: TImage;
    Image5: TImage;
    GroupBox10: TGroupBox;
    GroupBox11: TGroupBox;
    GroupBox12: TGroupBox;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    ToolButton11: TToolButton;
    ADOQuery1: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure b_go1Click(Sender: TObject);
    procedure b_go2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure jishibenclick(sender:tobject);
    procedure calculateclick(sender:tobject);
    procedure yaopinglclick(sender:tobject);
    procedure Image2Click(Sender: TObject);
    procedure menzhenglclick(sender:tobject);
    procedure Image3Click(Sender: TObject);
    procedure ToolButton9Click(Sender: TObject);
    procedure Image4Click(Sender: TObject);
    procedure Image5Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure ywryzbglclick(sender:tobject);
    procedure ToolButton8Click(Sender: TObject);
    procedure Image6Click(Sender: TObject);
    procedure Image7Click(Sender: TObject);
    procedure Image8Click(Sender: TObject);
    procedure tuichuclick(sender:tobject);
    procedure N20Click(Sender: TObject);
    procedure N22Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure N23Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  main1: Tmain1;

implementation

{$R *.dfm}  uses mzgh,mzshg,login,book,calculate1,yaorukugl,yaochukugldan,
                 ywrydj,ksgl11,zwgl11,zbgl11,zyxkgl11,zyglzong11,cygl11,yzgl11,mimagai11,yztjgl11,
                 jinzhanggl11,dmshuju11,connect;

procedure Tmain1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    application.Terminate;
end;

procedure Tmain1.b_go1Click(Sender: TObject);
begin
    mzghd:=tmzghd.Create(application);
    mzghd.Show;
end;

procedure Tmain1.b_go2Click(Sender: TObject);
begin
    mzshgf:=tmzshgf.Create(application);
    mzshgf.Show;
end;

procedure Tmain1.FormShow(Sender: TObject);
begin
      statusbar1.Panels[0].Text:='当前操作员:';
   statusbar1.Panels[2].Text:=FormatDateTime('"系统时间："yyyy-mm-dd" "hh:nn:ss"   "mmmm"  "dddd', now);
   statusbar1.Panels[1].Text:='   '+login.Form1.DBEdit1.Text;
   statusbar1.Panels[3].Text:='软件开发者：莫建坡';
   timer1.Enabled:=true;
    tabsheet5.Visible:=true;
    tabsheet6.Visible:=false;
    tabsheet7.Visible:=false;
    tabsheet9.Visible:=false;
    tabsheet10.Visible:=false;
    tabsheet5.Caption:='门诊管理区';
    pagecontrol2.Refresh;
end;

procedure Tmain1.Timer1Timer(Sender: TObject);
begin
  statusbar1.Panels[2].Text:=FormatDateTime('"系统时间："yyyy-mm-dd" "hh:nn:ss"   "mmmm"  "dddd', now);
end;
procedure tmain1.jishibenclick(sender:tobject);
begin
    book.jishiben:=book.Tjishiben.Create(application);
  if   book.jishiben.ShowModal=mrok then
        begin
           book.jishiben.Memo1.Lines.SaveToFile('love.txt');
            book.jishiben.Free;
            toolbutton5.Down:=false;
        end;
end;
procedure tmain1.calculateclick(sender:tobject);
begin
     calculate1.calculate:=calculate1.Tcalculate.Create(application);
     calculate1.calculate.Show;
end;
procedure tmain1.yaopinglclick(sender:tobject);
begin
    if toolbutton7.Down then
    begin
    tabsheet6.Visible:=true;
    tabsheet5.Visible:=false;
    tabsheet7.Visible:=false;
    tabsheet9.Visible:=false;
    tabsheet10.Visible:=false;
     tabsheet5.Caption:='药品管理区';
    pagecontrol2.Refresh;
    end;
end;
procedure Tmain1.Image2Click(Sender: TObject);
begin
    yaorukugl.rukuf:=yaorukugl.Trukuf.Create(application);
    yaorukugl.rukuf.Show;
    yaorukugl.flag:=true;
end;
procedure tmain1.menzhenglclick(sender:tobject);
begin
    if toolbutton2.Down then
    begin
    tabsheet5.Visible:=true;
    tabsheet6.Visible:=false;
    tabsheet7.Visible:=false;
    tabsheet9.Visible:=false;
    tabsheet10.Visible:=false;
    tabsheet5.Caption:='门诊管理区';
    pagecontrol2.Refresh;
    end;
end;

procedure Tmain1.Image3Click(Sender: TObject);
begin
     yaochukugldan.yaochukugl:=yaochukugldan.Tyaochukugl.Create(application);
     yaochukugldan.yaochukugl.Show;
end;

procedure Tmain1.ToolButton9Click(Sender: TObject);
begin
      if toolbutton9.Down then
    begin
    tabsheet9.Visible:=true;
    tabsheet6.Visible:=false;
    tabsheet7.Visible:=false;
    tabsheet5.Visible:=false;
    tabsheet10.Visible:=false;
     tabsheet5.Caption:='医务人员管理区';
     pagecontrol2.Refresh;
    end;
end;

procedure Tmain1.Image4Click(Sender: TObject);
begin
     ywrydj.register1:=ywrydj.Tregister1.Create(application);
     ywrydj.register1.Show;
end;

procedure Tmain1.Image5Click(Sender: TObject);
begin
    ksgl11.keshigldd:=ksgl11.Tkeshigldd.Create(application);
    ksgl11.keshigldd.Show;
end;

procedure Tmain1.Label5Click(Sender: TObject);
begin
     zwgl11.zhiwugl:=zwgl11.Tzhiwugl.Create(application);
      zwgl11.zhiwugl.Show;
end;
procedure tmain1.ywryzbglclick(sender:tobject);
begin
     zbgl11.ywzbgl:=zbgl11.Tywzbgl.Create(application);
     zbgl11.ywzbgl.Show;
end;
procedure Tmain1.ToolButton8Click(Sender: TObject);
begin
     if toolbutton8.Down then
    begin
    tabsheet7.Visible:=true;
    tabsheet6.Visible:=false;
    tabsheet5.Visible:=false;
    tabsheet9.Visible:=false;
    tabsheet10.Visible:=false;
     tabsheet5.Caption:='住院管理区';
    pagecontrol2.Refresh;
    end;
end;

procedure Tmain1.Image6Click(Sender: TObject);
begin
     zyxkgl11.zyyjgl:=zyxkgl11.Tzyyjgl.Create(application);
     zyxkgl11.zyyjgl.Show;
end;

procedure Tmain1.Image7Click(Sender: TObject);
begin
    zyglzong11.zyglzong:=zyglzong11.Tzyglzong.Create(application);
     zyglzong11.zyglzong.Show;

end;

procedure Tmain1.Image8Click(Sender: TObject);
begin
     cygl11.cygl:=cygl11.Tcygl.Create(application);
      cygl11.cygl.Show;
end;
procedure tmain1.tuichuclick(sender:tobject);
begin
    application.Terminate;
end;
procedure Tmain1.N20Click(Sender: TObject);
begin
     yzgl11.yhzcgl:=yzgl11.Tyhzcgl.Create(application);
     yzgl11.yhzcgl.Show;
end;

procedure Tmain1.N22Click(Sender: TObject);
begin
     mimagai11.mimagai:=mimagai11.Tmimagai.Create(application);
     mimagai11.mimagai.Show;
end;

procedure Tmain1.ToolButton11Click(Sender: TObject);
begin
   yztjgl11.yztjgl:=yztjgl11.Tyztjgl.Create(application);
    yztjgl11.yztjgl.Show;
end;

procedure Tmain1.N16Click(Sender: TObject);
begin
   jinzhanggl11.jinzhanggl:=jinzhanggl11.Tjinzhanggl.Create(application);
   jinzhanggl11.jinzhanggl.Show;
   
end;

procedure Tmain1.ToolButton3Click(Sender: TObject);
begin
    application.Terminate;
end;

procedure Tmain1.N23Click(Sender: TObject);
begin
    dmshuju11.dmshuju.ADOQuery1.Close;
  //  dmshuju11.dmshuju.ADOQuery1.connectionstring:=' provider =sqloledb.1;persist security info=false;userid=sa;initial catalog=data';
  //  Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=data;Data Source=.;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=TOND_MO;Use Encryption for Data=False;Tag with column collation when possible=False
    try

        with  dmshuju11.dmshuju.ADOQuery1 do
        begin
            close;
            sql.Clear;
            sql.Add('backup database data to disk = ''c:\Program Files\毕业设计\校医院收费管理系统\数据备份\data.bak''');
            execsql;
        end;
        showmessage('备份成功');
        except
        on e:exception do
        showmessage('备份失败');
        end;

end;

procedure Tmain1.N26Click(Sender: TObject);
begin
       ADOQuery1.Close;
       ADOQuery1.ConnectionString:=' Provider=SQLOLEDB.1;Persist Security ';
       ADOQuery1.ConnectionString:=ADOQuery1.ConnectionString+'Info=False;User ID=sa;Initial Catalog=master;Data Source=.;Use Procedure ';
       ADOQuery1.ConnectionString:=ADOQuery1.ConnectionString+'for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=TOND_MO;Use Encryption for Data=False;Tag with column collation when possible=False';

    try
        with  ADOQuery1 do
        begin
            close;
            sql.Clear;
            sql.Add('restore database data from disk = ''c:\Program Files\毕业设计\校医院收费管理系统\数据备份\data.bak''');
            execsql;
        end;
        showmessage('还原成功');
        except
        on e:exception do
        showmessage('还原失败');
        end;
end;

end.