开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
hospital.~pas
资源名称：HIS.rar　[点击查看]
上传用户：fjdqny
上传日期：2016-10-26
资源大小：6299k
文件大小：5k
源码类别：

Delphi控件源码

开发平台：

Delphi

hospital.~pas：源码内容
  1. unit hospital;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Menus, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Buttons, DB, ADODB;
  9. type
  10.   TForm1 = class(TForm)
  11.     Image1: TImage;
  12.     Label1: TLabel;
  13.     Edit1: TEdit;
  14.     Label2: TLabel;
  15.     Label3: TLabel;
  16.     Edit2: TEdit;
  17.     Button2: TButton;
  18.     Button3: TButton;
  19.     ADOConnection1: TADOConnection;
  20.     ADOQuery1: TADOQuery;
  21.     DataSource1: TDataSource;
  22.     procedure N5Click(Sender: TObject);
  23.     procedure N6Click(Sender: TObject);
  24.     procedure N21Click(Sender: TObject);
  25.     procedure N22Click(Sender: TObject);
  26.     procedure N23Click(Sender: TObject);
  27.     procedure N24Click(Sender: TObject);
  28.     procedure N8Click(Sender: TObject);
  29.     procedure N10Click(Sender: TObject);
  30.     procedure N26Click(Sender: TObject);
  31.     procedure N27Click(Sender: TObject);
  32.     procedure N16Click(Sender: TObject);
  33.     procedure N35Click(Sender: TObject);
  34.     procedure N36Click(Sender: TObject);
  35.     procedure N15Click(Sender: TObject);
  36.     procedure N29Click(Sender: TObject);
  37.     procedure N30Click(Sender: TObject);
  38.     procedure N31Click(Sender: TObject);
  39.     procedure N33Click(Sender: TObject);
  40.     procedure N34Click(Sender: TObject);
  41.     procedure N20Click(Sender: TObject);
  42.     procedure N19Click(Sender: TObject);
  43.     procedure Button1Click(Sender: TObject);
  44.     procedure Button2Click(Sender: TObject);
  45.     procedure Button3Click(Sender: TObject);
  46.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  48.   private
  49.     { Private declarations }
  50.   public
  51.     { Public declarations }
  52.   end;
  54. var
  55.   Form1: TForm1;
  56.   Query : TADOQuery;
  57. implementation
  59. uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,
  60.   Unit11, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19,
  61.   Unit20,ShellApi, Unit21;
  63. {$R *.dfm}
  65. procedure TForm1.N5Click(Sender: TObject);
  66. begin
  67. form2.show;
  68. end;
  70. procedure TForm1.N6Click(Sender: TObject);
  71. begin
  72. form3.show;
  73. end;
  75. procedure TForm1.N21Click(Sender: TObject);
  76. begin
  77. form4.show;
  78. end;
  80. procedure TForm1.N22Click(Sender: TObject);
  81. begin
  82. form5.show;
  83. end;
  85. procedure TForm1.N23Click(Sender: TObject);
  86. begin
  87. form6.show;
  88. end;
  90. procedure TForm1.N24Click(Sender: TObject);
  91. begin
  92. form7.show;
  93. end;
  95. procedure TForm1.N8Click(Sender: TObject);
  96. begin
  97. form8.show;
  98. end;
  100. procedure TForm1.N10Click(Sender: TObject);
  101. begin
  102. form9.show;
  103. end;
  105. procedure TForm1.N26Click(Sender: TObject);
  106. begin
  107. form10.show;
  108. end;
  110. procedure TForm1.N27Click(Sender: TObject);
  111. begin
  112. form11.show;
  113. end;
  115. procedure TForm1.N16Click(Sender: TObject);
  116. begin
  117. form12.show;
  118. end;
  120. procedure TForm1.N35Click(Sender: TObject);
  121. begin
  122. form13.show;
  123. end;
  125. procedure TForm1.N36Click(Sender: TObject);
  126. begin
  127. form14.show;
  128. end;
  130. procedure TForm1.N15Click(Sender: TObject);
  131. begin
  132. form15.show;
  133. end;
  135. procedure TForm1.N29Click(Sender: TObject);
  136. begin
  137. form16.show;
  138. end;
  140. procedure TForm1.N30Click(Sender: TObject);
  141. begin
  142. form17.show;
  143. end;
  145. procedure TForm1.N31Click(Sender: TObject);
  146. begin
  147. form18.show;
  148. end;
  150. procedure TForm1.N33Click(Sender: TObject);
  151. begin
  152. form19.show;
  153. end;
  155. procedure TForm1.N34Click(Sender: TObject);
  156. begin
  157. form20.show;
  158. end;
  161. procedure TForm1.N20Click(Sender: TObject);
  162. begin
  163. ShellExecute(0,'open','notepad.exe',nil,nil,sw_show);
  164. end;
  166. procedure TForm1.N19Click(Sender: TObject);
  167. begin
  168. ShellExecute(0,'open','calc.exe',nil,nil,sw_show);
  169. end;
  173. procedure TForm1.Button1Click(Sender: TObject);
  174. begin
  175.   form21.show;
  176. end;
  178. procedure TForm1.Button2Click(Sender: TObject);
  179. begin
  182.   if edit1.Text='' then
  183.      showmessage('请输入用户名！')
  184.   else
  185.   try
  186.    Query :=TADOQuery.Create(nil);
  187.    Query.Connection :=ADOConnection1;
  188.    Query.SQL.Add('select yonghu,mima from denglu  where yonghu=:yonghu and mima =:mima');    Query.Parameters.ParamByName('yonghu').Value :=edit1.Text;
  189.    Query.Parameters.ParamByName('mima').Value :=edit2.Text;
  190.    Query.Open;
  191.    if Query.RecordCount =0 then
  192.    begin
  193.     messageDlg('请输入正确的用户名和密码!',mterror,[mbok],0);
  194.     exit;
  195.    end
  196.    else
  197.    form1.Hide;
  198.    form21.Show;
  199.    query.Close;
  200.    query.Free;
  201.    except
  202.    messageDlg('连接数据库出错!',mterror,[mbok],0)
  204. end;
  205. end;
  206. procedure TForm1.Button3Click(Sender: TObject);
  207. begin
  208.   if application.MessageBox('您确实要取消登录吗?','退出',4)=6 then
  209.   application.Terminate;
  210. end;
  212. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  213. begin
  214.   if application.MessageBox('您确实要取消登录吗?','退出',4)=6 then
  215.   application.Terminate
  216.   else
  217.   exit;
  218. end;
  220. end.