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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
mainfrms.pas
资源名称：挡案管理系统.rar　[点击查看]
上传用户：szruida
上传日期：2007-06-01
资源大小：6518k
文件大小：22k
源码类别：

Delphi控件源码

开发平台：

Delphi

mainfrms.pas：源码内容
  1. unit mainfrms;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ImgList, Menus, ExtCtrls, ComCtrls, ToolWin,iniFiles,
  8.   TFlatHintUnit, DB, ADODB, DBClient, MConnect, SConnect, ActnList,
  9.   XPBarMenu, StdCtrls, DBCtrls,ShellApi, StdActns, AppEvnts;
  11. type
  12.   Tmainfrm = class(TForm)
  13.     MainMenu1: TMainMenu;
  14.     N1: TMenuItem;
  15.     J1: TMenuItem;
  16.     M1: TMenuItem;
  17.     H1: TMenuItem;
  18.     yljgl: TMenuItem;
  19.     N3: TMenuItem;
  20.     N4: TMenuItem;
  21.     gdajgl: TMenuItem;
  22.     jdhxh: TMenuItem;
  23.     kwzkgl: TMenuItem;
  24.     Dzgl: TMenuItem;
  25.     Jygzsd: TMenuItem;
  26.     Ghgl: TMenuItem;
  27.     N17: TMenuItem;
  28.     yhzfp: TMenuItem;
  29.     ImageList1: TImageList;
  30.     bz: TMenuItem;
  31.     StatusBar1: TStatusBar;
  32.     Timer1: TTimer;
  33.     CoolBar1: TCoolBar;
  34.     tmrTime: TTimer;
  35.     Tcxt: TMenuItem;
  36.     Xtsz: TMenuItem;
  37.     ToolBar1: TToolBar;
  38.     TreeView: TImageList;
  39.     zsg: TImageList;
  40.     ActionList1: TActionList;
  41.     Quit: TAction;
  42.     ToolButton2: TToolButton;
  43.     ToolButton3: TToolButton;
  44.     ToolButton4: TToolButton;
  45.     PopupMenu1: TPopupMenu;
  46.     A1: TMenuItem;
  47.     N22: TMenuItem;
  48.     N23: TMenuItem;
  49.     N24: TMenuItem;
  50.     N25: TMenuItem;
  51.     XPBarMenu1: TXPBarMenu;
  52.     Xtrz: TMenuItem;
  53.     xtcs: TMenuItem;
  54.     Yhzgl: TMenuItem;
  55.     yhgl: TMenuItem;
  56.     mmgg: TMenuItem;
  57.     cdqx: TMenuItem;
  58.     N19: TMenuItem;
  59.     qzgl: TMenuItem;
  60.     N32: TMenuItem;
  61.     xtajlbgl: TMenuItem;
  62.     ajlbgl: TMenuItem;
  63.     N36: TMenuItem;
  64.     ztcl: TMenuItem;
  65.     ztck: TMenuItem;
  66.     dmgl: TMenuItem;
  67.     N40: TMenuItem;
  68.     bmlr: TMenuItem;
  69.     yglr: TMenuItem;
  70.     kwgl: TMenuItem;
  71.     wjlbgl: TMenuItem;
  72.     jygl: TMenuItem;
  73.     Image1: TImage;
  74.     ajgl: TMenuItem;
  75.     ajjs: TMenuItem;
  76.     wjgl: TMenuItem;
  77.     wjjs: TMenuItem;
  78.     N7: TMenuItem;
  79.     Sjbf: TMenuItem;
  80.     Sjhf: TMenuItem;
  81.     ClientDataSet1: TClientDataSet;
  82.     SaveDialog1: TSaveDialog;
  83.     ClientDataSet3: TClientDataSet;
  84.     Socket1: TSocketConnection;
  85.     ToolButton5: TToolButton;
  86.     ToolButton1: TToolButton;
  87.     WindowClose1: TWindowClose;
  88.     WindowCascade1: TWindowCascade;
  89.     WindowTileHorizontal1: TWindowTileHorizontal;
  90.     WindowTileVertical1: TWindowTileVertical;
  91.     WindowMinimizeAll1: TWindowMinimizeAll;
  92.     WindowArrange1: TWindowArrange;
  93.     W1: TMenuItem;
  94.     N2: TMenuItem;
  95.     N5: TMenuItem;
  96.     N6: TMenuItem;
  97.     N8: TMenuItem;
  98.     N9: TMenuItem;
  99.     N10: TMenuItem;
  100.     FlatHint1: TFlatHint;
  101.     ToolButton6: TToolButton;
  102.     ToolButton7: TToolButton;
  103.     ToolButton18: TToolButton;
  104.     ToolButton8: TToolButton;
  105.     ApplicationEvents1: TApplicationEvents;
  106.     N11: TMenuItem;
  107.     N12: TMenuItem;
  108.     procedure tmrTimeTimer(Sender: TObject);
  109.     procedure bzClick(Sender: TObject);
  110.     procedure XtszClick(Sender: TObject);
  111.     procedure FormCreate(Sender: TObject);
  112.     procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  113.     procedure YhzglClick(Sender: TObject);
  114.     procedure qzglClick(Sender: TObject);
  115.     procedure DzglClick(Sender: TObject);
  116.     procedure N12Click(Sender: TObject);
  117.     procedure GhglClick(Sender: TObject);
  118.     procedure JygzsdClick(Sender: TObject);
  119.     procedure jyglClick(Sender: TObject);
  120.     procedure xtcsClick(Sender: TObject);
  121.     procedure dmglClick(Sender: TObject);
  122.     procedure xtajlbglClick(Sender: TObject);
  123.     procedure kwglClick(Sender: TObject);
  124.     procedure bmlrClick(Sender: TObject);
  125.     procedure yglrClick(Sender: TObject);
  126.     procedure wjlbglClick(Sender: TObject);
  127.     procedure kwzkglClick(Sender: TObject);
  128.     procedure ztclClick(Sender: TObject);
  129.     procedure ztckClick(Sender: TObject);
  130.     procedure ajlbglClick(Sender: TObject);
  131.     procedure yljglClick(Sender: TObject);
  132.     procedure ajglClick(Sender: TObject);
  133.     procedure jdhxhClick(Sender: TObject);
  134.     procedure yhglClick(Sender: TObject);
  135.     procedure mmggClick(Sender: TObject);
  136.     procedure yhzfpClick(Sender: TObject);
  137.     procedure cdqxClick(Sender: TObject);
  138.     procedure SjbfClick(Sender: TObject);
  139.     procedure FormShow(Sender: TObject);
  140.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  141.     procedure XtrzClick(Sender: TObject);
  142.     procedure SjhfClick(Sender: TObject);
  143.     procedure ajjsClick(Sender: TObject);
  144.     procedure wjjsClick(Sender: TObject);
  145.     procedure ToolButton2Click(Sender: TObject);
  146.     procedure ToolButton3Click(Sender: TObject);
  147.     procedure ToolButton4Click(Sender: TObject);
  148.     procedure ToolButton5Click(Sender: TObject);
  149.     procedure QuitExecute(Sender: TObject);
  150.     procedure ToolButton1Click(Sender: TObject);
  151.     procedure ToolButton6Click(Sender: TObject);
  152.     procedure ToolButton7Click(Sender: TObject);
  153.     procedure ApplicationEvents1Exception(Sender: TObject; E: Exception);
  154.     procedure dfd1Click(Sender: TObject);
  155.     procedure Action1Execute(Sender: TObject);
  156.     procedure N11Click(Sender: TObject);
  157.   private
  158.     { Private declarations }
  159.   public
  160.     { Public declarations }
  161.     flag:Boolean;
  162.     key:char;
  163.     dbedit:Tdbedit;
  164.     r:Trect;
  165.     function MdiRect:Trect;
  166.     procedure Next(Sender: TObject; var Key: Char);
  167.     procedure DbInputNum(dbedit:Tdbedit;var key:char);//输入整数
  168.   end;
  170. var
  171.   mainfrm: Tmainfrm;
  173. implementation
  175. uses frmAbouts, da_csszs,da_comman, ajgls,xt_yhzs,u_public, xt_yhz_ms,
  176.   ljszs, sz_qzs, AM_dzs, am_jygzs, am_jygls, am_ghgls, xt_lbjss, sz_dmgls,
  177.   sz_xtajlbs, sz_kws, sz_bms, sz_yggls, sz_wjlbs, Am_kwgls, sz_ztcls,
  178.   sz_ztcks, sz_ajlbs, Am_yljs, Am_gdajs, Am_Ajgl_Yjs, Am_Ajxhs, Am_Yhgls,
  179.   am_yhgl_mms, Xt_Qxszs,logins, uset, xt_rzs, am_ajjss, am_wjjss,
  180.   am_yhz_xzs, Xt_Cssds, am_gdaj_cxs;
  182. {$R *.dfm}
  183. function Tmainfrm.MdiRect:Trect;
  184. begin
  185.   Windows.GetClientRect(clientHandle,result);
  186. end;
  187. //取自窗体的大小*****************************
  188. procedure Tmainfrm.DbInputNum(dbedit:Tdbedit;var key:char);
  189. begin
  190.  if not (key in ['0'..'9',#8,#13]) then
  191.  begin
  192.    key:=#0;
  193.    messagebeep(1);
  194.    application.MessageBox('请输入数字!','提示',mb_ok);
  195.  end;
  196. end;//定义传值输入整数的过程
  197. //****************************************
  198. procedure Tmainfrm.Next(Sender: TObject; var Key: Char);
  199. begin
  200.   if key=#13 then
  201.   begin
  202.      key:=#0;
  203.      selectnext(activecontrol,true,true)
  204.   end;
  205. end;
  206. ///-----------------定义回车换行过程
  208. procedure Tmainfrm.tmrTimeTimer(Sender: TObject);
  209. begin
  210.   statusbar1.Panels[2].Text :=timenow();
  211. end;
  213. procedure Tmainfrm.bzClick(Sender: TObject);
  214. begin
  215.   frmAbout:=TfrmAbout.create(application);
  216.   frmAbout.Show;
  217. end;
  219. procedure Tmainfrm.XtszClick(Sender: TObject);
  220. begin
  221.   if frmset=nil then
  222.   begin
  223.     frmset:=Tfrmset.create(application);
  224.     frmset.showmodal;
  225.   end;
  226. end;
  228. procedure Tmainfrm.FormCreate(Sender: TObject);
  229. var iFile:Tinifile;
  230. begin
  231.   Sys_Time:=formatdatetime('yyyy-mm-dd hh:mm:ss',now);
  232.   sys_Tem:='登陆系统';
  234.   ljsz:=Tljsz.create(application);
  235.   ljsz.showmodal;
  236.   sPath := ExtractFilePath(Application.ExeName);
  237.   iFile := TIniFile.Create(sPath + 'perset.ini');
  238.   sTopic := iFile.ReadString('sTopic', 'topic', '通用档案管理系统1.0正式版');
  239.   bgstr := iFile.ReadString('sysbg', 'bground', 'main.jpg');
  240.   iFile.Free;
  241.   if sTopic = '' then sTopic := '通用档案管理系统1.0正式版';
  242.   if (bgStr = '') or (not FileExists(sPath + bgStr)) then
  243.     bgStr := 'main.jpg';
  244.   image1.Picture.LoadFromFile(sPath + bgStr);
  245.   self.Caption := sTopic;
  246.   Application.Title := sTopic;
  247.   Application.ShowHint := true;
  248.   Application.HintColor := clLime;
  249.   self.WindowState:=wsMaximized;
  250.  //=======================================================================================
  251.  {if login.ClientDataSet2.FieldByName('xtrz').AsBoolean=false then  xtrz.Visible:=false;//1
  252.  if login.ClientDataSet2.FieldByName('xtcs').AsBoolean=false then  xtcs.Visible:=false;
  253.  if login.ClientDataSet2.FieldByName('yhzgl').AsBoolean=false then  yhzgl.Visible:=false;
  254.  if login.ClientDataSet2.FieldByName('yhgl').AsBoolean=false then  yhgl.Visible:=false;
  255.  if login.ClientDataSet2.FieldByName('mmgg').AsBoolean=false then  mmgg.Visible:=false;
  256.  if login.ClientDataSet2.FieldByName('yhzfp').AsBoolean=false then  yhzfp.Visible:=false;
  257.  if login.ClientDataSet2.FieldByName('cdqx').AsBoolean=false then  cdqx.Visible:=false;
  258.  if login.ClientDataSet2.FieldByName('sjbf').AsBoolean=false then  sjbf.Visible:=false;
  259.  if login.ClientDataSet2.FieldByName('sjhf').AsBoolean=false then  sjhf.Visible:=false;
  260.  if login.ClientDataSet2.FieldByName('xtsz').AsBoolean=false then  xtsz.Visible:=false;
  261.  if login.ClientDataSet2.FieldByName('tcxt').AsBoolean=false then  tcxt.Visible:=false;
  262.  if login.ClientDataSet2.FieldByName('N17').AsBoolean=false then  N17.Visible:=false;
  263.  if login.ClientDataSet2.FieldByName('N7').AsBoolean=false then  N7.Visible:=false;
  264.  //--------------------------------------------------------------------------系统管理
  265.  if login.ClientDataSet2.FieldByName('qzgl').AsBoolean=false then  qzgl.Visible:=false;
  266.  if login.ClientDataSet2.FieldByName('xtajlbgl').AsBoolean=false then  xtajlbgl.Visible:=false;
  267.  if login.ClientDataSet2.FieldByName('ajlbgl').AsBoolean=false then  ajlbgl.Visible:=false;
  268.  if login.ClientDataSet2.FieldByName('wjlbgl').AsBoolean=false then  wjlbgl.Visible:=false;
  269.  if login.ClientDataSet2.FieldByName('ztcl').AsBoolean=false then  ztcl.Visible:=false;
  270.  if login.ClientDataSet2.FieldByName('ztck').AsBoolean=false then  ztck.Visible:=false;
  271.  if login.ClientDataSet2.FieldByName('dmgl').AsBoolean=false then  dmgl.Visible:=false;
  272.  if login.ClientDataSet2.FieldByName('bmlr').AsBoolean=false then  bmlr.Visible:=false;
  273.  if login.ClientDataSet2.FieldByName('yglr').AsBoolean=false then  yglr.Visible:=false;
  274.  if login.ClientDataSet2.FieldByName('kwgl').AsBoolean=false then  kwgl.Visible:=false;
  275.  if login.ClientDataSet2.FieldByName('N32').AsBoolean=false then  N32.Visible:=false;
  276.  if login.ClientDataSet2.FieldByName('N36').AsBoolean=false then  N36.Visible:=false;
  277.  if login.ClientDataSet2.FieldByName('N40').AsBoolean=false then  N40.Visible:=false;
  278.  //----------------------------------------------------------------------基础数据
  279.  if login.ClientDataSet2.FieldByName('yljgl').AsBoolean=false then  yljgl.Visible:=false;
  280.  if login.ClientDataSet2.FieldByName('ajgl').AsBoolean=false then  ajgl.Visible:=false;
  281.  if login.ClientDataSet2.FieldByName('ajjs').AsBoolean=false then  ajjs.Visible:=false;
  282.  if login.ClientDataSet2.FieldByName('wjgl').AsBoolean=false then  tcxt.Visible:=false;
  283.  if login.ClientDataSet2.FieldByName('wjjs').AsBoolean=false then  tcxt.Visible:=false;
  284.  if login.ClientDataSet2.FieldByName('gdajgl').AsBoolean=false then  tcxt.Visible:=false;
  285.  if login.ClientDataSet2.FieldByName('jdhxh').AsBoolean=false then  tcxt.Visible:=false;
  286.  if login.ClientDataSet2.FieldByName('kwzkgl').AsBoolean=false then  tcxt.Visible:=false;
  287.  if login.ClientDataSet2.FieldByName('N3').AsBoolean=false then  N3.Visible:=false;
  288.  if login.ClientDataSet2.FieldByName('N4').AsBoolean=false then  N4.Visible:=false;
  289.  //---------------------------------------------------------------------案卷管理
  290.  if login.ClientDataSet2.FieldByName('dzgl').AsBoolean=false then  tcxt.Visible:=false;
  291.  if login.ClientDataSet2.FieldByName('jygl').AsBoolean=false then  tcxt.Visible:=false;
  292.  if login.ClientDataSet2.FieldByName('jygzsd').AsBoolean=false then  tcxt.Visible:=false;
  293.  if login.ClientDataSet2.FieldByName('ghgl').AsBoolean=false then  tcxt.Visible:=false;
  294.  //-----------------------------------------------------------------------------------
  295.  if login.ClientDataSet2.FieldByName('bz').AsBoolean=false then  tcxt.Visible:=false;}
  296. end;  
  297. procedure Tmainfrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  298. begin
  299.   if Application.messagebox('您确认要退出本系统吗？','提示',mb_okcancel+mb_iconquestion)=idok then
  300.   begin
  301.      ljsz.Free;
  302.      application.terminate;
  303.   end
  304.   else
  305.      Canclose:=false;
  306. end;
  308. procedure Tmainfrm.YhzglClick(Sender: TObject);
  309. begin
  310.  inherited;
  311.  r:=mdirect;
  312.   if xt_yhz=nil then
  313.   begin
  314.      xt_yhz:=Txt_yhz.Create(self);
  315.      xt_yhz.show;
  316.      xt_yhz.boundsRect:=Rect(r.left,r.top,r.right-r.left,r.bottom-r.top);
  317.    end;
  318. end;
  320. procedure Tmainfrm.qzglClick(Sender: TObject);
  321. begin
  322.  inherited;
  323.  r:=mdirect;
  324.   if sz_qz=nil then
  325.   begin
  326.      sz_qz:=Tsz_qz.Create(self);
  327.      sz_qz.show;
  328.      sz_qz.boundsRect:=Rect(r.left,r.top,r.right-r.left,r.bottom-r.top);
  329.    end;
  330. end;
  332. procedure Tmainfrm.DzglClick(Sender: TObject);
  333. begin
  334.    inherited;
  335.    r:=mdirect;
  336.   if am_dz=nil then
  337.   begin
  338.      am_dz:=Tam_dz.Create(self);
  339.      am_dz.show;
  340.      am_dz.boundsRect:=Rect(r.left,r.top,r.right-r.left,r.bottom-r.top);
  341.    end;
  342. end;
  344. procedure Tmainfrm.N12Click(Sender: TObject);
  345. begin
  346.   inherited;
  347.    r:=mdirect;
  348.   if am_gdaj_cx=nil then
  349.   begin
  350.      am_gdaj_cx:=Tam_gdaj_cx.Create(self);
  351.      am_gdaj_cx.show;
  352.      am_gdaj_cx.boundsRect:=Rect(r.left,r.top,r.right-r.left,r.bottom-r.top);
  353.    end;
  354. end;
  356. procedure Tmainfrm.GhglClick(Sender: TObject);
  357. begin
  358.   inherited;
  359.    r:=mdirect;
  360.   if am_ghgl=nil then
  361.   begin
  362.      am_ghgl:=Tam_ghgl.Create(self);
  363.      am_ghgl.show;
  364.      am_ghgl.boundsRect:=Rect(r.left,r.top,r.right-r.left,r.bottom-r.top);
  365.    end;
  366. end;
  368. procedure Tmainfrm.JygzsdClick(Sender: TObject);
  369. begin
  370.  if am_jygz=nil then
  371.   begin
  372.      am_jygz:=Tam_jygz.Create(application);
  373.      am_jygz.showmodal;
  374.  end;
  375. end;
  377. procedure Tmainfrm.jyglClick(Sender: TObject);
  378. begin
  379.   inherited;
  380.   r:=mdirect;
  381.  if am_jygl=nil then
  382.   begin
  383.      am_jygl:=Tam_jygl.Create(application);
  384.      am_jygl.Show;
  385.      am_jygl.BoundsRect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  386.  end;
  387. end;
  389. procedure Tmainfrm.xtcsClick(Sender: TObject);
  390. begin
  391.  {if xt_lbjs=nil then
  392.      begin
  393.        xt_lbjs:=Txt_lbjs.Create(application);
  394.        xt_lbjs.showmodal;
  395.     end;}
  396.  if xt_cssd=Nil then
  397.   begin
  398.     xt_cssd:=Txt_cssd.create(self);
  399.     xt_cssd.showmodal;
  400.   end;
  401. end;
  403. procedure Tmainfrm.dmglClick(Sender: TObject);
  404. begin
  405.  inherited;
  406.  r:=mdirect;
  407.    if sz_dmgl=nil then
  408.   begin
  409.      sz_dmgl:=Tsz_dmgl.Create(application);
  410.      sz_dmgl.show;
  411.      sz_dmgl.BoundsRect:=rect(r.Left+90,r.Top,r.Right-r.Left-90,r.Bottom-r.Top);
  412.  end;
  413. end;
  415. procedure Tmainfrm.xtajlbglClick(Sender: TObject);
  416. begin
  417.   if sz_xtajlb=nil then
  418.   begin
  419.      sz_xtajlb:=Tsz_xtajlb.Create(application);
  420.      sz_xtajlb.showmodal;
  421.  end;
  422. end;
  424. procedure Tmainfrm.kwglClick(Sender: TObject);
  425. begin
  426.  inherited;
  427.  r:=mdirect;
  428.    if sz_kw=nil then
  429.  begin
  430.     sz_kw:=Tsz_kw.create(application);
  431.     sz_kw.show;
  432.     sz_kw.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  433.  end;   
  434. end;
  436. procedure Tmainfrm.bmlrClick(Sender: TObject);
  437. begin                                            
  438.  inherited;
  439.  r:=mdirect;
  440.  if sz_bm=nil then
  441.  begin
  442.     sz_bm:=Tsz_bm.create(application);
  443.     sz_bm.show;
  444.     sz_bm.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  445.  end;
  446. end;
  448. procedure Tmainfrm.yglrClick(Sender: TObject);
  449. begin
  450.   if sz_yggl=nil then
  451.   begin
  452.      sz_yggl:=Tsz_yggl.create(application);
  453.      sz_yggl.showmodal;
  454.   end;
  455. end;
  457. procedure Tmainfrm.wjlbglClick(Sender: TObject);
  458. begin
  459.  inherited;
  460.  r:=mdirect;
  461.  if sz_wjlb=nil then
  462.  begin
  463.     sz_wjlb:=Tsz_wjlb.create(application);
  464.     sz_wjlb.show;
  465.     sz_wjlb.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  466.  end;
  467. end;
  469. procedure Tmainfrm.kwzkglClick(Sender: TObject);
  470. begin
  471.   inherited;
  472.   r:=mdirect;
  473.   if Am_kwgl=nil then        
  474.   begin
  475.      Am_kwgl:=Tam_kwgl.create(self);
  476.      Am_kwgl.show;
  477.      Am_kwgl.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  478.   end;   
  479. end;
  481. procedure Tmainfrm.ztclClick(Sender: TObject);
  482. begin
  483.   inherited;
  484.   r:=mdirect;
  485.   if sz_ztcl=nil then
  486.   begin
  487.      sz_ztcl:=Tsz_ztcl.create(self);
  488.      sz_ztcl.show;
  489.      sz_ztcl.boundsrect:=rect(r.left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  490.   end;
  491. end;
  493. procedure Tmainfrm.ztckClick(Sender: TObject);
  494. begin
  495.   inherited;
  496.   r:=mdirect;
  497.   if sz_ztck2=nil then
  498.   begin
  499.      sz_ztck2:=Tsz_ztck2.create(application);
  500.      sz_ztck2.show;
  501.      sz_ztck2.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  502.   end;
  503. end;
  505. procedure Tmainfrm.ajlbglClick(Sender: TObject);
  506. begin
  507.   inherited;
  508.   r:=mdirect;
  509.   if not assigned(sz_ajlb) then
  510.   begin
  511.      sz_ajlb:=Tsz_ajlb.create(application);
  512.      sz_ajlb.show;
  513.      sz_ajlb.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  514.   end;
  515. end;
  517. procedure Tmainfrm.yljglClick(Sender: TObject);
  518. begin
  519.  inherited;
  520.  r:=mdirect;
  521.  if Am_ylj=Nil then
  522.  begin
  523.     Am_ylj:=TAm_ylj.create(application);
  524.     Am_ylj.show;
  525.     am_ylj.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  526.  end;
  527. end;
  529. procedure Tmainfrm.ajglClick(Sender: TObject);
  530. begin
  531.  inherited;
  532.  r:=mdirect;
  533.  if am_ajgl=nil then
  534.  begin
  535.     am_ajgl:=Tam_ajgl.create(application);
  536.     am_ajgl.Show;
  537.     am_ajgl.BoundsRect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  538.  end;
  539. end;
  541. procedure Tmainfrm.jdhxhClick(Sender: TObject);
  542. begin
  543.   inherited;
  544.   r:=mdirect;
  545.   if Am_Ajxh=nil then
  546.   begin
  547.      Am_Ajxh:=TAm_Ajxh.create(self);
  548.      Am_Ajxh.show;
  549.      Am_Ajxh.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  550.   end;
  551. end;
  553. procedure Tmainfrm.yhglClick(Sender: TObject);
  554. begin
  555.   inherited;
  556.   r:=mdirect;
  557.   if Am_Yhgl=nil then
  558.    begin
  559.      Am_Yhgl:=TAm_Yhgl.create(self);
  560.      Am_Yhgl.show;
  561.      Am_Yhgl.boundsrect:=Rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.top);
  562.    end;
  563. end;
  565. procedure Tmainfrm.mmggClick(Sender: TObject);
  566. begin
  567.   if am_yhgl_mm=nil then
  568.    begin
  569.      am_yhgl_mm:=Tam_yhgl_mm.create(self);
  570.      am_yhgl_mm.showmodal;
  571.    end;
  572. end;
  574. procedure Tmainfrm.yhzfpClick(Sender: TObject);
  575. begin
  576.  xt_fpyhz:=Txt_fpyhz.create(self);
  577.  xt_fpyhz.showmodal;
  578. end;
  580. procedure Tmainfrm.cdqxClick(Sender: TObject);
  581. begin
  582.    if Xt_Cdqx=nil then
  583.   begin
  584.     xt_cdqx:=TXt_Cdqx.create(self);
  585.     xt_cdqx.showmodal;
  586.   end; 
  587. end;
  589. procedure Tmainfrm.SjbfClick(Sender: TObject);
  590. Var disk_name:string;
  591. begin
  592.   with savedialog1 do
  593.   if execute then
  594.     begin
  595.       disk_name:=savedialog1.FileName;
  596.     end;
  597.     Clientdataset1.Close;
  598.     Clientdataset1.CommandText:='backup database ElangAm to disk ='+''''+disk_name+''''+'with init';
  599.   Try
  600.     Clientdataset1.execute;
  601.     Application.messagebox('数据库备份成功','提示',mb_ok+mb_iconinformation);
  602.   except
  603.     clientdataset1.close;
  604.     application.messagebox('数据库备份失败','提示',mb_ok+mb_iconquestion);
  605.   end;
  606. end;//数据库备份
  608. procedure Tmainfrm.FormShow(Sender: TObject);
  609. begin
  610.   Clientdataset3.Active:=true;
  611.   Clientdataset3.Append;
  612.   Clientdataset3.Edit;
  613.   Clientdataset3.FieldByName('user_name').AsString:=user_name;
  614.   Clientdataset3.FieldByName('rz_czsj').AsString:=Sys_Time;
  615.   Clientdataset3.FieldByName('rz_nr').AsString:=Sys_tem;
  616.   Clientdataset3.FieldByName('rz_computer_Ip').AsString:=Computer_IP;
  617.   Clientdataset3.ApplyUpdates(0);
  618.   Clientdataset3.Close;
  619.   Clientdataset3.CommandText:='select * from xt_rz';
  620.   Clientdataset3.Open;//日志纪录
  621.   Clientdataset3.Active:=false;
  622. end;
  624. procedure Tmainfrm.FormClose(Sender: TObject; var Action: TCloseAction);
  625. begin
  626.   Sys_tem:='退出系统';
  627.   Clientdataset3.Active:=true;
  628.   Clientdataset3.Append;
  629.   Clientdataset3.Edit;
  630.   Clientdataset3.FieldByName('user_name').AsString:=user_name;
  631.   Clientdataset3.FieldByName('rz_czsj').AsString:=Sys_Time;
  632.   Clientdataset3.FieldByName('rz_nr').AsString:=Sys_tem;
  633.   Clientdataset3.FieldByName('rz_computer_Ip').AsString:=computer_Ip;
  634.   Clientdataset3.ApplyUpdates(0);
  635.   Clientdataset3.Close;
  636.   Clientdataset3.CommandText:='select * from xt_rz';
  637.   Clientdataset3.Open;//日志纪录
  638. end;
  640. procedure Tmainfrm.XtrzClick(Sender: TObject);
  641. begin
  642.  inherited;
  643.  r:=mdirect;
  644.  if xt_rz=nil then
  645.   begin
  646.     xt_rz:=Txt_rz.create(self);
  647.     xt_rz.show;
  648.     xt_rz.BoundsRect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  649.   end;
  650. end;
  652. procedure Tmainfrm.SjhfClick(Sender: TObject);
  653. begin
  654.  if application.MessageBox('警告：恢复数据库必须断开所有'+#13#10+'与它的连接!现在将关闭程序，是否继续？','询问？',mb_okcancel+mb_iconquestion)=idok then
  655.   begin
  656.     //应写程序主窗体的name
  657.     ShellExecute(Handle,'open','restore.exe',nil,nil,SW_SHOWNORMAL);
  658.     ljsz.Close;
  659.     application.Terminate;
  660.   end;
  661. end;
  663. procedure Tmainfrm.ajjsClick(Sender: TObject);
  664. begin
  665.  inherited;
  666.  r:=mdirect;
  667.  if am_ajjs=nil then
  668.   begin
  669.     am_ajjs:=Tam_ajjs.create(self);
  670.     am_ajjs.show;
  671.     am_ajjs.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  672.   end;
  673. end;
  675. procedure Tmainfrm.wjjsClick(Sender: TObject);
  676. begin
  677.  inherited;
  678.  r:=mdirect;
  679.  if am_wjjs=nil then
  680.   begin
  681.     am_wjjs:=Tam_wjjs.create(self);
  682.     am_wjjs.show;
  683.     am_wjjs.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.top);
  684.   end;
  685. end;
  687. procedure Tmainfrm.ToolButton2Click(Sender: TObject);
  688. begin
  689.   yljgl.Click;
  690. end;
  692. procedure Tmainfrm.ToolButton3Click(Sender: TObject);
  693. begin
  694.   ajgl.Click;
  695. end;
  697. procedure Tmainfrm.ToolButton4Click(Sender: TObject);
  698. begin
  699.     jygl.Click;
  700. end;
  702. procedure Tmainfrm.ToolButton5Click(Sender: TObject);
  703. begin
  704.    bz.Click;
  705. end;
  707. procedure Tmainfrm.QuitExecute(Sender: TObject);
  708. begin
  709.   close;
  710. end;
  712. procedure Tmainfrm.ToolButton1Click(Sender: TObject);
  713. begin
  714.  close;
  715. end;
  717. procedure Tmainfrm.ToolButton6Click(Sender: TObject);
  718. begin
  719.    gdajgl.Click;
  720. end;
  722. procedure Tmainfrm.ToolButton7Click(Sender: TObject);
  723. begin
  724.   Dzgl.Click;
  725. end;
  727. procedure Tmainfrm.ApplicationEvents1Exception(Sender: TObject;
  728.   E: Exception);
  729. var str:string;
  730. begin
  731.  str:=e.Message;
  732.  if (pos('date',str)>0) then
  733.     application.MessageBox('数据类型不符合要求！','提示',mb_iconExclaMation);
  734.  if (pos('Time',str)>0) then
  735.     application.MessageBox('数据类型不符合要求！','提示',mb_iconExclaMation);
  736.  if (pos('Calendar',str)>0) then
  737.     application.MessageBox('数据范围有误！','提示',mb_iconExclaMation);
  738.  if (Pos('约束',str)>0) then
  739.     application.MessageBox('此数据类型已被用,不能删除','提示',mb_iconExclaMation);
  740.  if (pos('invalid',str)>0) then
  741.     application.MessageBox('无效的数据类型','提示',mb_iconExclaMation);
  742.  if (POs('无效',str)>0) then
  743.     application.MessageBox('数据库连接有问题','提示',mb_iconExclaMation);
  744. end;
  746. procedure Tmainfrm.dfd1Click(Sender: TObject);
  747. begin
  748.  tile;
  749. end;
  751. procedure Tmainfrm.Action1Execute(Sender: TObject);
  752. begin
  753.  tile;
  754. end;
  756. procedure Tmainfrm.N11Click(Sender: TObject);
  757. begin
  758.  inherited;
  759.  r:=mdirect;
  760.  if am_gdaj=nil then
  761.  begin
  762.     am_gdaj:=Tam_gdaj.create(self);
  763.     am_gdaj.show;
  764.     am_gdaj.boundsrect:=rect(r.Left,r.Top,r.Right-r.Left,r.Bottom-r.Top);
  765.  end;
  766. end;
  768. end.