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

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

Delphi控件源码

开发平台：

Delphi

am_Sdqcs.~pas：源码内容
  1. unit am_Sdqcs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, StdCtrls, Grids, DBGridEh, Buttons, DB, DBClient;
  9. type
  10.   Tam_Sdqc = class(TForm)
  11.     Panel1: TPanel;
  12.     Panel2: TPanel;
  13.     Edit1: TEdit;
  14.     Panel3: TPanel;
  15.     DBGridEh1: TDBGridEh;
  16.     SpeedButton1: TSpeedButton;
  17.     SpeedButton2: TSpeedButton;
  18.     ClientDataSet1: TClientDataSet;
  19.     DataSource1: TDataSource;
  20.     procedure SpeedButton1Click(Sender: TObject);
  21.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  22.     procedure SpeedButton2Click(Sender: TObject);
  23.     procedure DBGridEh1CellClick(Column: TColumnEh);
  24.     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  31. var
  32.   am_Sdqc: Tam_Sdqc;
  34. implementation
  36. uses ajgl_bjs,u_public, Am_wjbjs;
  38. {$R *.dfm}
  40. procedure Tam_Sdqc.SpeedButton1Click(Sender: TObject);
  41. var s:string;
  42. begin
  43.   s:=edit1.Text;
  44.   Clientdataset1.Close;
  45.   clientdataset1.CommandText:='select * from sz_ztck where ztck_ztc='+''''+s+''''+'';
  46.   Clientdataset1.Open;
  47.   if frm_name='am_ajgl_bj' then
  48.    begin
  49.     if (trim(am_ajgl_bj.DBEditEh9.Text)='') then
  50.        begin
  51.          am_ajgl_bj.DBEditEh9.Text:=dbgrideh1.Columns[0].DisplayText;
  52.          close;
  53.        end
  54.      else
  55.       begin
  56.         am_ajgl_bj.DBEditEh9.Text:=am_ajgl_bj.DBEditEh9.Text+','+dbgrideh1.Columns[0].DisplayText;
  57.         Close;
  58.       end;
  59.     end
  60.   //---
  61.  else 
  62.   if frm_name='am_Wjgl_bj' then
  63.    begin
  64.     if (trim(am_wjgl_bj.DBEditEh3.Text)='') then
  65.        begin
  66.          am_wjgl_bj.DBEditEh3.Text:=dbgrideh1.Columns[0].DisplayText;
  67.          close;
  68.        end
  69.      else
  70.       begin
  71.         am_wjgl_bj.DBEditEh3.Text:=am_wjgl_bj.DBEditEh3.Text+','+dbgrideh1.Columns[0].DisplayText;
  72.         Close;
  73.       end;
  74.    end;
  75. end;
  77. procedure Tam_Sdqc.FormClose(Sender: TObject; var Action: TCloseAction);
  78. begin
  79.  Clientdataset1.Active:=false;
  80.  action:=cafree;
  81.  am_sdqc:=Nil;
  82. end;
  84. procedure Tam_Sdqc.SpeedButton2Click(Sender: TObject);
  85. begin
  86.  Close;
  87. end;
  89. procedure Tam_Sdqc.DBGridEh1CellClick(Column: TColumnEh);
  90. var s,k:string;
  91. begin
  92.   s:=edit1.Text;
  93.   k:='ztck_ztc'+' like '+''''+s+'%'+'''';
  94.   Clientdataset1.Close;
  95.   clientdataset1.CommandText:='select * from sz_ztck where '+ k;
  96.   Clientdataset1.Open;
  97.   if frm_name='am_ajgl_bj' then
  98.     begin
  99.       if (trim(am_ajgl_bj.DBEditEh9.Text)='') then
  100.         begin
  101.          am_ajgl_bj.DBEditEh9.Text:=dbgrideh1.Columns[0].DisplayText;
  102.          close;
  103.         end
  104.      else
  105.       begin
  106.         am_ajgl_bj.DBEditEh9.Text:=am_ajgl_bj.DBEditEh9.Text+','+dbgrideh1.Columns[0].DisplayText;
  107.         Close;
  108.       end;
  109.    end
  110.   else
  111.   //---------------
  112.    if frm_name='am_Wjgl_bj' then
  113.     begin
  114.      if (trim(am_wjgl_bj.DBEditEh3.Text)='') then
  115.        begin
  116.          am_wjgl_bj.DBEditEh3.Text:=dbgrideh1.Columns[0].DisplayText;
  117.          close;
  118.        end
  119.      else
  120.       begin
  121.         am_wjgl_bj.DBEditEh3.Text:=am_wjgl_bj.DBEditEh3.Text+','+dbgrideh1.Columns[0].DisplayText;
  122.         Close;
  123.       end;
  124.     end;
  125. end;
  127. procedure Tam_Sdqc.Edit1KeyPress(Sender: TObject; var Key: Char);
  128. var s,k:string;
  129. begin
  130.  if key=#13 then
  131.  begin
  132.   s:=edit1.Text;
  133.   k:='ztck_ztc'+' like '+''''+s+'%'+'''';
  134.   Clientdataset1.Close;
  135.   clientdataset1.CommandText:='select * from sz_ztck where '+K;
  136.   Clientdataset1.Open;
  137.  end;  
  138. end;
  140. end.