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

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

Delphi控件源码

开发平台：

Delphi

AM_ajlb_cxs.~pas：源码内容
  1. unit AM_ajlb_cxs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, DBClient, Buttons, StdCtrls, Mask, DBCtrlsEh, ExtCtrls;
  9. type
  10.   Tam_ajlb_cx = class(TForm)
  11.     Panel1: TPanel;
  12.     Label1: TLabel;
  13.     Label2: TLabel;
  14.     Label3: TLabel;
  15.     Label4: TLabel;
  16.     ComboBox1: TComboBox;
  17.     ComboBox2: TComboBox;
  18.     DBDateTimeEditEh1: TDBDateTimeEditEh;
  19.     ComboBox3: TComboBox;
  20.     Edit1: TEdit;
  21.     Edit2: TEdit;
  22.     Panel2: TPanel;
  23.     BitBtn2: TSpeedButton;
  24.     BitBtn1: TSpeedButton;
  25.     SpeedButton1: TSpeedButton;
  26.     SpeedButton2: TSpeedButton;
  27.     ClientDataSet1: TClientDataSet;
  28.     procedure BitBtn2Click(Sender: TObject);
  29.     procedure SpeedButton2Click(Sender: TObject);
  30.     procedure ComboBox1Change(Sender: TObject);
  31.     procedure ComboBox2Change(Sender: TObject);
  32.     procedure SpeedButton1Click(Sender: TObject);
  33.     procedure BitBtn1Click(Sender: TObject);
  34.     procedure ComboBox3Change(Sender: TObject);
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   am_ajlb_cx: Tam_ajlb_cx;
  45.   str,s_zdm,s_logic,s_tj:string;//查找字符串,字段名
  46. Const ss:array [0..4] of string=('qz_dm','ajlb_sjlbdm','ajlb_dm','ajlb_mc','ajlb_js');
  47. implementation
  49. uses am_ajlb_xzs;
  51. {$R *.dfm}
  53. procedure Tam_ajlb_cx.BitBtn2Click(Sender: TObject);
  54. begin
  55.  close;
  56. end;
  58. procedure Tam_ajlb_cx.SpeedButton2Click(Sender: TObject);
  59. begin
  60.  combobox1.ItemIndex:=-1;
  61.  combobox2.ItemIndex:=-1;
  62.  edit1.Text:='';
  63.  combobox3.ItemIndex:=-1;
  64.  edit2.text:='';
  65. end;
  67. procedure Tam_ajlb_cx.ComboBox1Change(Sender: TObject);
  68. begin
  69.   s_zdm:=ss[combobox1.itemindex];//以上是获得下拉框中的值
  70.   combobox2.Clear;
  71.   combobox2.Items.Add('=');
  72.   combobox2.Items.Add('<>');
  73.   combobox2.Items.Add('模糊查询');
  74. end;
  76. procedure Tam_ajlb_cx.ComboBox2Change(Sender: TObject);
  77. begin
  78.  s_tj:='';
  79.  case combobox2.ItemIndex of
  80.   0:  s_tj:='=';
  81.   1:  s_tj:='<>';
  82.   2:  s_tj:='Like';
  83.  end; 
  84. end;
  86. procedure Tam_ajlb_cx.SpeedButton1Click(Sender: TObject);
  87. begin
  88. s_logic:='';
  89.  if trim(Combobox1.Text)='' then
  90.    begin
  91.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  92.     exit;
  93.    end;
  94.  if trim(Combobox2.Text)='' then
  95.    begin
  96.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  97.     exit;
  98.    end;
  99.    //有效性验证
  100.  case combobox3.ItemIndex of
  101.   0:  s_logic:=' and ';
  102.   1:  s_logic:=' or ';
  103.  end;
  104.  if Combobox2.Text='模糊查询' then
  105.    Edit2.Text:=Edit2.Text+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+s_logic+' '
  106.  else
  107.    Edit2.Text:=Edit2.Text+s_zdm+' '+s_tj+' '+''''+trim(edit1.Text)+''''+' '+s_logic+' ';
  108.  combobox1.ItemIndex:=-1;
  109.  combobox2.ItemIndex:=-1;
  110.  edit1.Text:='';
  111.  combobox3.ItemIndex:=-1;
  112.  SpeedButton1.Enabled:=false;
  113. end;
  115. procedure Tam_ajlb_cx.BitBtn1Click(Sender: TObject);
  116. var S_Edit,Hint:string;
  117. begin
  118.  S_Edit:=Edit2.Text;
  119.  if trim(Combobox1.Text)='' then
  120.    begin
  121.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  122.     exit;
  123.    end;
  124.  if trim(Combobox2.Text)='' then
  125.    begin
  126.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  127.     exit;
  128.    end;
  129.  //----------------------------------
  130.  if trim(Edit2.Text)='' then
  131.   begin
  132.     if Combobox2.Text='模糊查询' then
  133.      str:=s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  134.     else
  135.      str:=s_zdm+' '+s_tj+' '+''''+trim(edit1.Text)+'''';
  136.   end
  137.  else
  138.   begin
  139.     if Combobox2.Text='模糊查询' then
  140.      str:=s_Edit+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  141.     else
  142.      str:=s_Edit+s_zdm+' '+s_tj+' '+''''+trim(edit1.Text)+'''';
  143.   end;
  144.  //---------------------------------
  145.   Clientdataset1.Close;
  146.   Clientdataset1.CommandText:='select * from sz_ajlb where '+str;
  147.   Clientdataset1.Open;
  148.   am_ajlb_xz.ClientDataSet1.Data:=clientdataset1.Data;
  149.   if Clientdataset1.RecordCount=0 then
  150.      application.MessageBox('没有找到符合条件的纪录','提示',mb_ok+mb_iconinformation)
  151.   else
  152.    begin
  153.      Hint:='当前表中有'+IntToStr(Clientdataset1.RecordCount)+'条记录符合条件';
  154.      application.MessageBox(Pchar(hint),'提示',mb_ok+mb_iconinformation);
  155.    end;
  156. end;
  158. procedure Tam_ajlb_cx.ComboBox3Change(Sender: TObject);
  159. begin
  161. if trim(Combobox1.Text)='' then
  162.    begin
  163.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  164.     exit;
  165.    end;
  166.  if trim(Combobox2.Text)='' then
  167.    begin
  168.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  169.     exit;
  170.    end;
  171.  s_logic:='';
  172.  case combobox3.ItemIndex of
  173.   0:  s_logic:=' and ';
  174.   1:  s_logic:=' or ';
  175.  end;
  176.  SpeedButton1.Enabled:=true;
  177. end;
  179. procedure Tam_ajlb_cx.FormCreate(Sender: TObject);
  180. begin
  181.  combobox1.Items.Clear;
  182.  combobox1.Items.Add('全宗代码');
  183.  combobox1.Items.Add('上级类别代码');
  184.  combobox1.Items.Add('案卷类别代码');
  185.  combobox1.Items.Add('案卷类别名称');
  186.  Combobox1.Items.Add('案卷类别级数');
  187. end;
  189. procedure Tam_ajlb_cx.FormClose(Sender: TObject; var Action: TCloseAction);
  190. begin
  191.  action:=cafree;
  192.  am_ajlb_cx:=nil;
  193.  Clientdataset1.active:=false;
  194. end;
  196. end.