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

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

Delphi控件源码

开发平台：

Delphi

Unit21.pas：源码内容
  1. unit Unit21;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Menus, ComCtrls, ExtCtrls, ToolWin, StdCtrls, ImgList, jpeg,
  8.   SkinCaption, WinSkinData;
  10. type
  11.   TForm21 = class(TForm)
  12.     MainMenu1: TMainMenu;
  13.     N1: TMenuItem;
  14.     N2: TMenuItem;
  15.     N3: TMenuItem;
  16.     N4: TMenuItem;
  17.     N5: TMenuItem;
  18.     N6: TMenuItem;
  19.     N7: TMenuItem;
  20.     N8: TMenuItem;
  21.     N9: TMenuItem;
  22.     N10: TMenuItem;
  23.     N11: TMenuItem;
  24.     N12: TMenuItem;
  25.     N13: TMenuItem;
  26.     N14: TMenuItem;
  27.     N15: TMenuItem;
  28.     N16: TMenuItem;
  29.     N17: TMenuItem;
  30.     N18: TMenuItem;
  31.     N19: TMenuItem;
  32.     N20: TMenuItem;
  33.     N21: TMenuItem;
  34.     N22: TMenuItem;
  35.     N23: TMenuItem;
  36.     N24: TMenuItem;
  37.     N25: TMenuItem;
  38.     N27: TMenuItem;
  39.     N28: TMenuItem;
  40.     N29: TMenuItem;
  41.     N30: TMenuItem;
  42.     N31: TMenuItem;
  43.     N32: TMenuItem;
  44.     N33: TMenuItem;
  45.     N34: TMenuItem;
  46.     N35: TMenuItem;
  47.     N36: TMenuItem;
  48.     N37: TMenuItem;
  49.     N38: TMenuItem;
  50.     N39: TMenuItem;
  51.     Timer1: TTimer;
  52.     StatusBar1: TStatusBar;
  53.     CoolBar1: TCoolBar;
  54.     ToolBar1: TToolBar;
  55.     ToolButton1: TToolButton;
  56.     ToolButton2: TToolButton;
  57.     ToolButton3: TToolButton;
  58.     ToolButton4: TToolButton;
  59.     ToolButton5: TToolButton;
  60.     ToolButton6: TToolButton;
  61.     Panel1: TPanel;
  62.     Image1: TImage;
  63.     Image2: TImage;
  64.     Image3: TImage;
  65.     Image4: TImage;
  66.     Image5: TImage;
  67.     Image6: TImage;
  68.     Image7: TImage;
  69.     Image8: TImage;
  70.     Image9: TImage;
  71.     Label1: TLabel;
  72.     Image10: TImage;
  73.     Image11: TImage;
  74.     Image12: TImage;
  75.     Image13: TImage;
  76.     Image14: TImage;
  77.     Image15: TImage;
  78.     Image16: TImage;
  79.     Image17: TImage;
  80.     Label4: TLabel;
  81.     Label5: TLabel;
  82.     Label6: TLabel;
  83.     Label7: TLabel;
  84.     Label8: TLabel;
  85.     Label9: TLabel;
  86.     Label10: TLabel;
  87.     Label2: TLabel;
  88.     ImageList1: TImageList;
  89.     Image18: TImage;
  90.     SkinData1: TSkinData;
  91.     SkinCaption1: TSkinCaption;
  92.     N26: TMenuItem;
  93.     procedure N8Click(Sender: TObject);
  94.     procedure N9Click(Sender: TObject);
  95.     procedure N10Click(Sender: TObject);
  96.     procedure N11Click(Sender: TObject);
  97.     procedure N12Click(Sender: TObject);
  98.     procedure N13Click(Sender: TObject);
  99.     procedure N14Click(Sender: TObject);
  100.     procedure N15Click(Sender: TObject);
  101.     procedure N16Click(Sender: TObject);
  102.     procedure N17Click(Sender: TObject);
  103.     procedure N27Click(Sender: TObject);
  104.     procedure N28Click(Sender: TObject);
  105.     procedure N29Click(Sender: TObject);
  106.     procedure N22Click(Sender: TObject);
  107.     procedure N30Click(Sender: TObject);
  108.     procedure N31Click(Sender: TObject);
  109.     procedure N32Click(Sender: TObject);
  110.     procedure N33Click(Sender: TObject);
  111.     procedure N34Click(Sender: TObject);
  112.     procedure N37Click(Sender: TObject);
  113.     procedure N38Click(Sender: TObject);
  114.     procedure Timer1Timer(Sender: TObject);
  115.     procedure N35Click(Sender: TObject);
  116.     procedure N39Click(Sender: TObject);
  117.     procedure Image2Click(Sender: TObject);
  118.     procedure Image4Click(Sender: TObject);
  119.     procedure Image8Click(Sender: TObject);
  120.     procedure Image7Click(Sender: TObject);
  121.     procedure Image9Click(Sender: TObject);
  122.     procedure Image5Click(Sender: TObject);
  123.     procedure Image6Click(Sender: TObject);
  124.     procedure N18Click(Sender: TObject);
  125.     procedure N19Click(Sender: TObject);
  126.     procedure N36Click(Sender: TObject);
  127.     procedure N20Click(Sender: TObject);
  128.     procedure ToolButton1Click(Sender: TObject);
  129.     procedure ToolButton2Click(Sender: TObject);
  130.     procedure ToolButton3Click(Sender: TObject);
  131.     procedure ToolButton5Click(Sender: TObject);
  132.     procedure ToolButton6Click(Sender: TObject);
  133.     procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  134.       Y: Integer);
  135.     procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  136.       Y: Integer);
  137.     procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  138.       Y: Integer);
  139.     procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  140.       Y: Integer);
  141.     procedure Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
  142.       Y: Integer);
  143.     procedure Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
  144.       Y: Integer);
  145.     procedure Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
  146.       Y: Integer);
  147.     procedure N25Click(Sender: TObject);
  148.     procedure N26Click(Sender: TObject);
  149.   private
  150.     { Private declarations }
  151.   public
  152.     { Public declarations }
  153.   end;
  155. var
  156.   Form21: TForm21;
  158. implementation
  160. uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit10, Unit11, Unit8,
  161.   Unit9, Unit12, Unit13, Unit14, Unit15, Unit16, Unit17, Unit18, Unit19,
  162.   Unit20,ShellApi, Unit22, Unit24, Unit25, Unit23, Unit26, Unit27;
  164. {$R *.dfm}
  166. procedure TForm21.N8Click(Sender: TObject);
  167. begin
  168. form2.show;
  169. end;
  171. procedure TForm21.N9Click(Sender: TObject);
  172. begin
  173. form3.show;
  174. end;
  176. procedure TForm21.N10Click(Sender: TObject);
  177. begin
  178. form4.show;
  179. end;
  181. procedure TForm21.N11Click(Sender: TObject);
  182. begin
  183. form5.show;
  184. end;
  186. procedure TForm21.N12Click(Sender: TObject);
  187. begin
  188. form6.show;
  189. end;
  191. procedure TForm21.N13Click(Sender: TObject);
  192. begin
  193. form7.show;
  194. end;
  196. procedure TForm21.N14Click(Sender: TObject);
  197. begin
  198. form10.show;
  199. end;
  201. procedure TForm21.N15Click(Sender: TObject);
  202. begin
  203. form11.show;
  204. end;
  206. procedure TForm21.N16Click(Sender: TObject);
  207. begin
  208. form8.show;
  209. end;
  211. procedure TForm21.N17Click(Sender: TObject);
  212. begin
  213. form9.show;
  214. end;
  216. procedure TForm21.N27Click(Sender: TObject);
  217. begin
  218. form12.show;
  219. end;
  221. procedure TForm21.N28Click(Sender: TObject);
  222. begin
  223. form13.show;
  224. end;
  226. procedure TForm21.N29Click(Sender: TObject);
  227. begin
  228. form14.show;
  229. end;
  231. procedure TForm21.N22Click(Sender: TObject);
  232. begin
  233. form15.show;
  234. end;
  236. procedure TForm21.N30Click(Sender: TObject);
  237. begin
  238. form16.show;
  239. end;
  241. procedure TForm21.N31Click(Sender: TObject);
  242. begin
  243. form17.show;
  244. end;
  246. procedure TForm21.N32Click(Sender: TObject);
  247. begin
  248. form18.show;
  249. end;
  251. procedure TForm21.N33Click(Sender: TObject);
  252. begin
  253. form19.show;
  254. end;
  256. procedure TForm21.N34Click(Sender: TObject);
  257. begin
  258. form20.show;
  259. end;
  261. procedure TForm21.N37Click(Sender: TObject);
  262. begin
  263. ShellExecute(0,'open','calc.exe',nil,nil,sw_show);
  264. end;
  266. procedure TForm21.N38Click(Sender: TObject);
  267. begin
  268. ShellExecute(0,'open','notepad.exe',nil,nil,sw_show);
  269. end;
  271. procedure TForm21.Timer1Timer(Sender: TObject);
  272. begin
  273.    Statusbar1.Panels[2].Text := FormatDateTime('               yyyy年mm月dd日hh:nn:ss ',now);
  274. end;
  276. procedure TForm21.N35Click(Sender: TObject);
  277. begin
  278. form22.show;
  279. end;
  281. procedure TForm21.N39Click(Sender: TObject);
  282. begin
  283.   if not panel1.Visible then
  284.    panel1.Visible:=true
  285.   else
  286.    panel1.Visible:=false;
  287. end;
  289. procedure TForm21.Image2Click(Sender: TObject);
  290. begin
  291. form2.Show;
  292. end;
  294. procedure TForm21.Image4Click(Sender: TObject);
  295. begin
  296. form3.Show;
  297. end;
  299. procedure TForm21.Image8Click(Sender: TObject);
  300. begin
  301. form3.Show;
  302. end;
  304. procedure TForm21.Image7Click(Sender: TObject);
  305. begin
  306. form8.Show;
  307. end;
  309. procedure TForm21.Image9Click(Sender: TObject);
  310. begin
  311. form9.Show;
  312. end;
  314. procedure TForm21.Image5Click(Sender: TObject);
  315. begin
  316. form4.Show;
  317. end;
  319. procedure TForm21.Image6Click(Sender: TObject);
  320. begin
  321. form5.Show;
  322. end;
  324. procedure TForm21.N18Click(Sender: TObject);
  325. begin
  326. form24.show;
  327. end;
  329. procedure TForm21.N19Click(Sender: TObject);
  330. begin
  331. form25.show;
  332. end;
  334. procedure TForm21.N36Click(Sender: TObject);
  335. begin
  336. form23.show;
  337. end;
  339. procedure TForm21.N20Click(Sender: TObject);
  340. begin
  341. form26.show;
  342. end;
  344. procedure TForm21.ToolButton1Click(Sender: TObject);
  345. begin
  346.   if not panel1.Visible then
  347.    panel1.Visible:=true
  348.   else
  349.    panel1.Visible:=false;
  350. end;
  352. procedure TForm21.ToolButton2Click(Sender: TObject);
  353. begin
  354. ShellExecute(0,'open','calc.exe',nil,nil,sw_show);
  355. end;
  357. procedure TForm21.ToolButton3Click(Sender: TObject);
  358. begin
  359. ShellExecute(0,'open','notepad.exe',nil,nil,sw_show);
  360. end;
  362. procedure TForm21.ToolButton5Click(Sender: TObject);
  363. begin
  364. form23.show;
  365. end;
  367. procedure TForm21.ToolButton6Click(Sender: TObject);
  368. begin
  369.   if application.MessageBox('您确实要退出系统吗?','退出',4)=6 then
  370.   application.Terminate
  371.   else
  372.   exit;
  373. end;
  375. procedure TForm21.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,
  376.   Y: Integer);
  377. begin
  378. Image2.Cursor:=crHandpoint;
  379. end;
  381. procedure TForm21.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,
  382.   Y: Integer);
  383. begin
  384. Image4.Cursor:=crHandpoint;
  385. end;
  387. procedure TForm21.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,
  388.   Y: Integer);
  389. begin
  390. Image5.Cursor:=crHandpoint;
  391. end;
  393. procedure TForm21.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,
  394.   Y: Integer);
  395. begin
  396. Image6.Cursor:=crHandpoint;
  397. end;
  399. procedure TForm21.Image7MouseMove(Sender: TObject; Shift: TShiftState; X,
  400.   Y: Integer);
  401. begin
  402. Image7.Cursor:=crHandpoint;
  403. end;
  405. procedure TForm21.Image8MouseMove(Sender: TObject; Shift: TShiftState; X,
  406.   Y: Integer);
  407. begin
  408. Image8.Cursor:=crHandpoint;
  409. end;
  411. procedure TForm21.Image9MouseMove(Sender: TObject; Shift: TShiftState; X,
  412.   Y: Integer);
  413. begin
  414. Image9.Cursor:=crHandpoint;
  415. end;
  417. procedure TForm21.N25Click(Sender: TObject);
  418. begin
  419. form27.show;
  420. end;
  422. procedure TForm21.N26Click(Sender: TObject);
  423. begin
  424.    form3.Show;
  425. end;
  427. end.