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

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

Delphi控件源码

开发平台：

Delphi

sz_yggls.~pas：源码内容
  1. unit sz_yggls;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, StdCtrls, Mask, DBCtrls, ExtCtrls, DBCtrlsEh, DBLookupEh,
  8.   Grids, DBGridEh, Buttons;
  10. type
  11.   Tsz_yggl = class(TForm)
  12.     sz_yg: TDataSource;
  13.     GroupBox1: TGroupBox;
  14.     Label1: TLabel;
  15.     DBEdit1: TDBEdit;
  16.     Label2: TLabel;
  17.     DBEdit2: TDBEdit;
  18.     Label3: TLabel;
  19.     Panel5: TPanel;
  20.     DBGridEh1: TDBGridEh;
  21.     Label36: TLabel;
  22.     Label37: TLabel;
  23.     sz_bm: TDataSource;
  24.     Add1: TSpeedButton;
  25.     Edit1: TSpeedButton;
  26.     Dele1: TSpeedButton;
  27.     Save1: TSpeedButton;
  28.     Refresh1: TSpeedButton;
  29.     Quit1: TSpeedButton;
  30.     v_yggl: TDataSource;
  31.     DBLookupComboBox1: TDBLookupComboBox;
  32.     procedure Quit1Click(Sender: TObject);
  33.     procedure FormCreate(Sender: TObject);
  34.     procedure Add1Click(Sender: TObject);
  35.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  36.     procedure Dele1Click(Sender: TObject);
  37.     procedure Edit1Click(Sender: TObject);
  38.     procedure Refresh1Click(Sender: TObject);
  39.     procedure Save1Click(Sender: TObject);
  40.     procedure DBGridEh1CellClick(Column: TColumnEh);
  41.   private
  42.     { Private declarations }
  43.   public
  44.     { Public declarations }
  45.   end;
  47. var
  48.   sz_yggl: Tsz_yggl;
  50. implementation
  52. uses DMs;
  54. {$R *.dfm}
  56. procedure Tsz_yggl.Quit1Click(Sender: TObject);
  57. begin
  58.   close;
  59. end;
  61. procedure Tsz_yggl.FormCreate(Sender: TObject);
  62. begin
  63. //  refresh1.Click;
  64.   dm.sz_bm.Close;
  65.   dm.sz_bm.CommandText:='select * from sz_bm';
  66.   dm.sz_bm.Open;
  67.   dm.sz_yg.Close;
  68.   dm.sz_yg.CommandText:='select * from sz_yg';
  69.   dm.sz_yg.Open;
  70.   dm.v_yggl.Close;
  71.   dm.v_yggl.CommandText:='select * from v_yggl';
  72.   dm.v_yggl.Open;
  73. end;
  75. procedure Tsz_yggl.Add1Click(Sender: TObject);
  76. begin
  77.   dm.sz_yg.Close;
  78.   dm.sz_yg.CommandText:='select * from sz_yg where yg_dm='+''''+''''+'';
  79.   dm.sz_yg.Open;    
  80. end;
  82. procedure Tsz_yggl.FormClose(Sender: TObject; var Action: TCloseAction);
  83. begin
  84.   action:=cafree;
  85.   sz_yggl:=nil;
  86.   dm.sz_yg.Active:=false;
  87.   dm.sz_bm.Active:=false;
  88.   dm.v_yggl.active:=false;
  89. end;
  91. procedure Tsz_yggl.Dele1Click(Sender: TObject);
  92. var s:string;
  93. begin
  94.  s:=dm.v_yggl.fieldbyname('bm_dm').AsString;
  95.  if Dm.sz_yg.RecordCount=0 then
  96.  begin
  97.     application.MessageBox('表中没有数据不能删除!','提示',mb_iconquestion+mb_defbutton1);
  98.     Abort;
  99.   end
  100.   else
  101.    if application.MessageBox('您确定删除吗？','警告',mb_okcancel+mb_iconquestion)=idok then
  102.    begin
  103.        Dm.sz_yg.Close;
  104.        dm.sz_yg.CommandText:='select * from sz_yg where bm_dm='+''''+s+''''+'';
  105.        dm.sz_yg.Open;
  106.        Dm.sz_yg.Delete;
  107.        Dm.sz_yg.ApplyUpdates(0);
  108.        refresh1.Click;
  109.     end; 
  110. end;
  112. procedure Tsz_yggl.Edit1Click(Sender: TObject);
  113. var s:string;
  114. begin
  115.   s:=dm.v_yggl.fieldbyname('bm_dm').AsString;
  116.   dm.sz_yg.Close;
  117.   dm.sz_yg.CommandText:='select * from sz_yg where bm_dm='+''''+s+''''+'';
  118.   dm.sz_yg.Open;
  119.   dm.sz_yg.edit;
  120.   dbedit1.SetFocus;
  121. end;
  123. procedure Tsz_yggl.Refresh1Click(Sender: TObject);
  124. begin
  125.   dm.sz_bm.Close;
  126.   dm.sz_bm.CommandText:='select * from sz_bm';
  127.   dm.sz_bm.Open;
  128.   dm.sz_yg.Close;
  129.   dm.sz_yg.CommandText:='select * from sz_yg';
  130.   dm.sz_yg.Open;
  131.   dm.v_yggl.Close;
  132.   dm.v_yggl.CommandText:='select * from v_yggl';
  133.   dm.v_yggl.Open;
  134. end;
  136. procedure Tsz_yggl.Save1Click(Sender: TObject);
  137.  var i:integer;
  138. begin
  139.    if dbedit1.Text='' then
  140.    begin
  141.     application.MessageBox('员工代码不能为空!','提示',mb_ok+mb_iconinformation);
  142.     exit;
  143.    end;
  144.    if dbedit2.Text='' then
  145.    begin
  146.     application.MessageBox('员工姓名不能为空!','提示',mb_ok+mb_iconinformation);
  147.     exit;
  148.    end;//以上位验证数据是否完整
  149.    Dm.sz_yg.ApplyUpdates(0);
  150.    i:=Dm.sz_yg.ApplyUpdates(0);
  151.    if i=0 then
  152.    begin
  153.       application.MessageBox('数据保存成功','提示',mb_ok+mb_iconinformation);
  154.       refresh1.click;
  155.    end
  156.    else
  157.    begin
  158.      application.MessageBox('数据保存失败','提示',mb_ok+mb_iconinformation);
  159.      exit;
  160.    end;  
  161. end;
  162. procedure Tsz_yggl.DBGridEh1CellClick(Column: TColumnEh);
  163. var
  164.   s1,s2:string;
  165.   i:integer;
  166. begin//--1单击每一行时,使树形控件也变化
  167.   s1:=DBGridEh1.Columns[2].DisplayText;
  168.  // showmessage(s1);
  169.   //s2:=DBGridEh1.Columns[2].DisplayText;
  170.  // dm.v_yggl.Locate('bm_dm','+''''+s1+''''+',[]);
  171.   //过滤要搜索的数据
  172.   dm.sz_yg.Close;
  173.   dm.sz_yg.CommandText:='select * from sz_yg where yg_dm='+''''+s1+''''+'';
  174.   dm.sz_yg.Open;
  175.   { dbedit1.Text:=dm.v_yggl.fieldbyname('yg_dm').AsString;
  176.   dbedit2.Text:=dm.v_yggl.fieldbyname('yg_xm').AsString;
  177.   showmessage('yg_dm'+dm.v_yggl.fieldbyname('yg_dm').AsString);
  178.   DBLookupComboBox1.ListField:=dm.v_yggl.fieldbyname('bm_mc').AsString;
  179.  }
  180. end;
  182. end.