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

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

Delphi控件源码

开发平台：

Delphi

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