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

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

Delphi控件源码

开发平台：

Delphi

Am_Yhgls.pas：源码内容
  1. unit Am_Yhgls;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, PrnDbgeh, XPBarMenu, DB, Grids, DBGridEh, StdCtrls, ComCtrls,
  8.   ToolWin;
  10. type
  11.   TAm_Yhgl = class(TForm)
  12.     CoolBar1: TCoolBar;
  13.     ToolBar1: TToolBar;
  14.     ToolButton1: TToolButton;
  15.     ToolButton2: TToolButton;
  16.     ToolButton3: TToolButton;
  17.     ToolButton4: TToolButton;
  18.     ToolButton5: TToolButton;
  19.     ToolButton6: TToolButton;
  20.     ToolButton7: TToolButton;
  21.     GroupBox1: TGroupBox;
  22.     DBGridEh1: TDBGridEh;
  23.     DataSource1: TDataSource;
  24.     XPBarMenu1: TXPBarMenu;
  25.     PrintDBGridEh1: TPrintDBGridEh;
  26.     procedure ToolButton7Click(Sender: TObject);
  27.     procedure ToolButton6Click(Sender: TObject);
  28.     procedure ToolButton1Click(Sender: TObject);
  29.     procedure ToolButton2Click(Sender: TObject);
  30.     procedure ToolButton3Click(Sender: TObject);
  31.     procedure FormCreate(Sender: TObject);
  32.     procedure ToolButton4Click(Sender: TObject);
  33.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  34.     procedure ToolButton5Click(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  41. var
  42.   Am_Yhgl: TAm_Yhgl;
  44. implementation
  45. uses dms,U_Public, Am_Yhgl_Zcs, yhz_bjs, logins, am_yhgl_xgs, xt_user_cxs;
  46. {$R *.dfm}
  48. procedure TAm_Yhgl.ToolButton7Click(Sender: TObject);
  49. begin
  50.   close;
  51. end;
  53. procedure TAm_Yhgl.ToolButton6Click(Sender: TObject);
  54. begin
  55.  PrintDBGridEh1.Preview;
  56. end;
  58. procedure TAm_Yhgl.ToolButton1Click(Sender: TObject);
  59. begin
  60.  if am_yhgl_zc=nil then
  61.  begin
  62.    am_yhgl_zc:=Tam_yhgl_zc.create(application);
  63.    //dm.xt_user.Close;
  64.    //dm.xt_user.CommandText:='select * from user_dm='+''''+''''+'';
  65.    //dm.xt_user.Open;
  66.    dm.xt_user.Append;
  67.    am_yhgl_zc.Label1.Caption:='增加新用户';
  68.    am_yhgl_zc.showmodal;
  69.  end;  
  70. end;
  72. procedure TAm_Yhgl.ToolButton2Click(Sender: TObject);
  73. var s_user_dm:string;
  74. begin
  75.   s_user_dm:=dm.xt_user.fieldbyname('user_dm').AsString;
  76.   if s_user_dm<>user_dm then
  77.    begin
  78.      am_yhgl_xg:=Tam_yhgl_xg.create(self);
  79.      Dm.xt_user.Close;
  80.      dm.xt_user.CommandText:='select * from xt_user where user_dm='+''''+s_user_dm+''''+'';
  81.      dm.xt_user.Open;
  82.      DM.xt_user.Edit;
  83.      //am_yhgl_zc.DBEditEh6.Text:=login.edit2.text;
  84.      am_yhgl_xg.showmodal;
  85.    end
  86.   else
  87.    begin
  88.      am_yhgl_xg:=Tam_yhgl_xg.create(self);
  89.      Dm.xt_user.Close;
  90.      dm.xt_user.CommandText:='select * from xt_user where user_dm='+''''+s_user_dm+''''+'';
  91.      dm.xt_user.Open;
  92.      DM.xt_user.Edit;
  93.      am_yhgl_xg.DBEditEh1.Color:=cl3DLight;
  94.      am_yhgl_xg.DBEditEh1.Enabled:=false;
  95.      am_yhgl_xg.showmodal;
  96.    end;
  97. end;
  99. procedure TAm_Yhgl.ToolButton3Click(Sender: TObject);
  100. var s_user_dm:string;
  101. begin
  102.    if application.MessageBox('你确定删除吗？','警告',mb_okcancel+mb_iconquestion)=idok then
  103.    begin
  104.        s_user_dm:=dm.xt_user.fieldbyname('user_dm').AsString;
  105.        if s_user_dm=user_dm then
  106.         begin
  107.           application.MessageBox('当前用户数据正在被用,'+#13#10+'不能删除','提示',mb_ok+mb_iconinformation);
  108.           exit;
  109.         end
  110.        else
  111.         begin
  112.          Dm.xt_user.Close;
  113.          dm.xt_user.CommandText:='delete xt_user where user_dm='+''''+s_user_dm+''''+'';
  114.          dm.xt_user.Execute;
  115.          Dm.xt_user.Close;
  116.          dm.xt_user.CommandText:='select * from xt_user';
  117.          dm.xt_user.Open;
  118.          toolbutton4.Click;
  119.         end;
  120.    end;
  121. end;
  123. procedure TAm_Yhgl.FormCreate(Sender: TObject);
  124. begin
  125.  dm.xt_user.Active:=true; 
  126. end;
  128. procedure TAm_Yhgl.ToolButton4Click(Sender: TObject);
  129. begin
  130.  dm.xt_user.Close;
  131.  dm.xt_user.CommandText:='select * from xt_user';
  132.  dm.xt_user.Open;
  133. end;
  135. procedure TAm_Yhgl.FormClose(Sender: TObject; var Action: TCloseAction);
  136. begin
  137.  dm.xt_user.Active:=false;
  138.  action:=cafree;
  139.  am_yhgl:=nil;
  140. end;
  142. procedure TAm_Yhgl.ToolButton5Click(Sender: TObject);
  143. begin
  144.  if xt_user_cx=Nil then
  145.    begin
  146.     xt_user_cx:=Txt_user_cx.create(self);
  147.     xt_user_cx.showmodal;
  148.    end;
  149. end;
  151. end.