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

源码开发语言/平台
当前位置：首页 > 电子书籍 > Delphi/CppBuilder > 查看源码
U_mainform.pas
资源名称：Delphi7经典问题解析源代码.rar　[点击查看]
上传用户：psxgmh
上传日期：2013-04-08
资源大小：15112k
文件大小：8k
源码类别：

Delphi/CppBuilder

开发平台：

Delphi

U_mainform.pas：源码内容
  1. unit U_mainform;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   OleCtnrs, Menus, Buttons, ComCtrls, ToolWin, Db, DBClient, MConnect,
  8.   SConnect, ImgList, ExtCtrls, registry, StdCtrls, shellapi, winsock,
  9.   Grids, DBGrids, variants;
  11. type
  12.   TfrmMain = class(TForm)
  13.     MainMenu: TMainMenu;
  14.     N_E: TMenuItem;
  15.     ToolBar1: TToolBar;
  16.     StatusBar1: TStatusBar;
  17.     N_A: TMenuItem;
  18.     N_B: TMenuItem;
  19.     N_C: TMenuItem;
  20.     N_D: TMenuItem;
  21.     N8: TMenuItem;
  22.     N9: TMenuItem;
  23.     N11: TMenuItem;
  24.     N12: TMenuItem;
  25.     N17: TMenuItem;
  26.     N18: TMenuItem;
  27.     N20: TMenuItem;
  28.     N21: TMenuItem;
  29.     N23: TMenuItem;
  30.     N24: TMenuItem;
  31.     N_H_2: TMenuItem;
  32.     N34: TMenuItem;
  33.     N35: TMenuItem;
  34.     ImageList1: TImageList;
  35.     N2: TMenuItem;
  36.     N3: TMenuItem;
  37.     N29: TMenuItem;
  38.     N36: TMenuItem;
  39.     N37: TMenuItem;
  40.     N38: TMenuItem;
  41.     N39: TMenuItem;
  42.     N40: TMenuItem;
  43.     N41: TMenuItem;
  44.     N42: TMenuItem;
  45.     N48: TMenuItem;
  46.     N26: TMenuItem;
  47.     ToolButton1: TToolButton;
  48.     ToolButton2: TToolButton;
  49.     ToolButton3: TToolButton;
  50.     ToolButton4: TToolButton;
  51.     ToolButton5: TToolButton;
  52.     ToolButton6: TToolButton;
  53.     ToolButton7: TToolButton;
  54.     ToolButton8: TToolButton;
  55.     ToolBar2: TToolBar;
  56.     ToolButton9: TToolButton;
  57.     ToolButton10: TToolButton;
  58.     ToolButton11: TToolButton;
  59.     ToolButton12: TToolButton;
  60.     ToolButton13: TToolButton;
  61.     CoolBar1: TCoolBar;
  62.     ImageList2: TImageList;
  63.     ImageList3: TImageList;
  64.     N28: TMenuItem;
  65.     N32: TMenuItem;
  66.     N47: TMenuItem;
  67.     N49: TMenuItem;
  68.     N_F: TMenuItem;
  69.     N_G: TMenuItem;
  70.     N53: TMenuItem;
  71.     N54: TMenuItem;
  72.     N55: TMenuItem;
  73.     N56: TMenuItem;
  74.     N57: TMenuItem;
  75.     N58: TMenuItem;
  76.     N59: TMenuItem;
  77.     N60: TMenuItem;
  78.     N15: TMenuItem;
  79.     N27: TMenuItem;
  80.     N63: TMenuItem;
  81.     N65: TMenuItem;
  82.     N66: TMenuItem;
  83.     N62: TMenuItem;
  84.     N67: TMenuItem;
  85.     N68: TMenuItem;
  86.     N70: TMenuItem;
  87.     N30: TMenuItem;
  88.     N31: TMenuItem;
  89.     N71: TMenuItem;
  90.     ToolButton14: TToolButton;
  91.     ImageList4: TImageList;
  92.     btnMenu: TSpeedButton;
  93.     btnTree: TSpeedButton;
  94.     ToolButton15: TToolButton;
  95.     Panel1: TPanel;
  96.     TreeView1: TTreeView;
  97.     Panel2: TPanel;
  98.     Label1: TLabel;
  99.     Panel3: TPanel;
  100.     SpeedButton3: TSpeedButton;
  101.     ToolButton16: TToolButton;
  102.     ToolButton17: TToolButton;
  103.     ToolButton18: TToolButton;
  104.     ToolButton19: TToolButton;
  105.     N1: TMenuItem;
  106.     SocketConnection: TSocketConnection;
  107.     N4: TMenuItem;
  108.     N5: TMenuItem;
  109.     N6: TMenuItem;
  110.     N7: TMenuItem;
  111.     procedure SpeedButton3Click(Sender: TObject);
  112.     procedure btnTreeClick(Sender: TObject);
  113.     procedure btnMenuClick(Sender: TObject);
  114.     procedure N30Click(Sender: TObject);
  115.     procedure N31Click(Sender: TObject);
  116.     procedure FormCreate(Sender: TObject);
  117.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  118.     procedure N29Click(Sender: TObject);
  119.     procedure N40Click(Sender: TObject);
  120.     procedure N71Click(Sender: TObject);
  121.     procedure N34Click(Sender: TObject);
  122.     procedure N39Click(Sender: TObject);
  123.     procedure N62Click(Sender: TObject);
  124.     procedure N9Click(Sender: TObject);
  125.     procedure N42Click(Sender: TObject);
  126.     procedure N26Click(Sender: TObject);
  127.     procedure N11Click(Sender: TObject);
  128.     procedure TreeView1Click(Sender: TObject);
  129.     procedure N35Click(Sender: TObject);
  130.     procedure N4Click(Sender: TObject);
  131.   private
  132.   public
  133.   end;
  135. var
  136.   frmMain: TfrmMain;
  138. implementation
  140. uses U_qxgl_zhsz, U_qxgl_yhsz, u_public, U_dlck, U_qdck, U_dqflb, U_zgda,
  141.     U_ljsz, U_xgmm, U_Bmda, U_clsldcx, U_clsld, U_ckxxwh,
  142.   U_bmlldgl, U_djsh;
  145. {$R *.DFM}
  149. procedure TfrmMain.SpeedButton3Click(Sender: TObject);
  150. begin
  151.   btnTree.Down := false;
  152. //  splitter.Visible := btnTree.Down;
  153.   Panel1.Visible := btnTree.Down;
  154. end;
  156. procedure TfrmMain.btnTreeClick(Sender: TObject);
  157. begin
  158. //  splitter.Visible := btnTree.Down;
  159.   Panel1.Visible := btnTree.Down;
  161. end;
  163. procedure TfrmMain.btnMenuClick(Sender: TObject);
  164. begin
  165.   N_A.visible := btnMenu.down;
  166.   N_B.visible := btnMenu.down;
  167.   N_C.visible := btnMenu.down;
  168.   N_D.visible := btnMenu.down;
  169.   N_E.visible := btnMenu.down;
  170. end;
  173. procedure TfrmMain.N30Click(Sender: TObject);
  174. begin
  175.   if not assigned(frmQxgl_Fzsz) then
  176.     frmQxgl_Fzsz := TfrmQxgl_Fzsz(showMDIForm(TfrmQxgl_Fzsz))
  177.   else
  178.     frmQxgl_Fzsz.Show;
  179. end;
  181. procedure TfrmMain.N31Click(Sender: TObject);
  182. begin
  183.   if not assigned(frmQxgl_Yhsz) then
  184.     frmQxgl_Yhsz := TfrmQxgl_Yhsz(showMDIForm(TfrmQxgl_Yhsz))
  185.   else
  186.     frmQxgl_Yhsz.Show;
  187. end;
  189. procedure TfrmMain.FormCreate(Sender: TObject);
  190. begin
  191.   if not ConnectAppServ then
  192.     Application.Terminate; //如果未连接应用服务器，就退出应用程序。
  193.   frmQdck.close;
  194.   if not LoginExecute(TfrmLogin) then //如果身份验证无效，就退出系统
  195.     Application.Terminate;
  196. end;
  198. procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
  199. begin
  200.   if Application.MessageBox('请确认是否退出本系统', '提示信息', mb_iconinformation + mb_YesNo) = id_no then
  201.     Abort;
  202. //将本次的登录信息从应用服务器上删除
  203.   try
  204.     SocketConnection.AppServer.DelUser(CurrentParam.Host, CurrentParam.IP, CurrentParam.userAliasName, CurrentParam.LoginTime);
  205.   except
  206.   end;
  207. end;
  209. procedure TfrmMain.N29Click(Sender: TObject);
  210. begin
  211.   if not assigned(frmDqflb) then
  212.     frmDqflb := TfrmDqflb(showMDIForm(TfrmDqflb))
  213.   else
  214.     frmDqflb.Show;
  215. end;
  217. procedure TfrmMain.N40Click(Sender: TObject);
  218. begin
  219.   if not assigned(frmZgda) then
  220.     frmZgda := TfrmZgda(showMDIForm(TfrmZgda))
  221.   else
  222.     frmZgda.Show;
  224. end;
  226. procedure TfrmMain.N71Click(Sender: TObject);
  227. begin
  228.   ShowModalForm(TfrmLjsz);
  229. end;
  231. procedure TfrmMain.N34Click(Sender: TObject);
  232. begin
  233.   ShowModalForm(TfrmXgmm);
  234. end;
  236. procedure TfrmMain.N39Click(Sender: TObject);
  237. begin
  238.   if not assigned(frmBmda) then
  239.     frmBmda := TfrmBmda(showMDIForm(TfrmBmda))
  240.   else
  241.     frmBmda.Show;
  243. end;
  245. procedure TfrmMain.N62Click(Sender: TObject);
  246. begin
  247.   if not Assigned(frmClsld_cx) then
  248.     frmClsld_cx := TfrmClsld_cx(showMDIForm(TFrmClsld_cx))
  249.   else
  250.     frmClsld_cx.show;
  251. end;
  253. procedure TfrmMain.N9Click(Sender: TObject);
  254. begin
  255.   if not Assigned(frmClsld) then
  256.     frmClsld := TfrmClsld(ShowMDIForm(TfrmClsld))
  257.   else
  258.     frmClsld.show;
  259. end;
  261. procedure TfrmMain.N42Click(Sender: TObject);
  262. begin
  263.   if not Assigned(frmCkxx) then
  264.     frmCkxx := TfrmCkxx(ShowMDIForm(TfrmCkxx))
  265.   else
  266.     frmCkxx.show;
  267. end;
  269. procedure TfrmMain.N26Click(Sender: TObject);
  270. begin
  271.   if not Assigned(frmBmlld) then
  272.     frmBmlld := TfrmBmlld(ShowMDIForm(TfrmBmlld))
  273.   else
  274.     frmBmlld.show;
  275. end;
  277. procedure TfrmMain.N11Click(Sender: TObject);
  278. begin
  279.   if not Assigned(frmDjsh) then
  280.     frmDjsh := TfrmDjsh(ShowMDIForm(TfrmDjsh))
  281.   else
  282.     frmDjsh.show;
  283. end;
  286. procedure TFrmMain.TreeView1Click(Sender: TObject);
  287. var
  288.   i1, i2, i3: integer;
  289.   ii, ii1, ii2: integer;
  290.   v_caption: string;
  291.   if_find: boolean;
  292. begin
  293. if treeview1.selected=nil then
  294. exit;
  295.   if_find := false;
  296.   i1 := -1; i2 := -1; i3 := -1;
  297.   v_caption := treeview1.selected.Text;
  298.   for ii := 0 to 4 do
  299.   begin
  300.     if if_find = true then
  301.       continue;
  302.     for ii1 := 0 to mainmenu.items[ii].count - 1 do
  303.     begin
  304.       if if_find = true then
  305.         continue;
  306.       for ii2 := 0 to mainmenu.items[ii].items[ii1].count - 1 do
  307.       begin
  308.         if v_caption = mainmenu.items[ii].items[ii1].items[ii2].Caption then
  309.         begin
  310.           i3 := ii2;
  311.           i2 := ii1;
  312.           i1 := ii;
  313.           if_find := true;
  314.           continue;
  315.         end;
  316.       end;
  317.       if v_caption = mainmenu.items[ii].items[ii1].Caption then
  318.       begin
  319.         i2 := ii1;
  320.         i1 := ii;
  321.         if_find := true;
  322.         continue;
  323.       end;
  324.     end;
  325.   end;
  326.   if if_find = true then
  327.   begin
  328.     if i3 <> -1 then
  329.       MainMenu.items[i1].items[i2].items[i3].click
  330.     else
  331.       MainMenu.Items[i1].items[i2].click;
  332.   end;
  333. end;
  336. procedure TfrmMain.N35Click(Sender: TObject);
  337. begin
  338.   close;
  339. end;
  341. procedure TfrmMain.N4Click(Sender: TObject);
  342. begin
  343.   ShellExecute(handle, 'open', 'Calc.exe', nil, nil, SW_SHOWNORMAL);
  344. end;
  346. end.