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

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

Delphi控件源码

开发平台：

Delphi

am_dz_cxs.pas：源码内容
  1. unit am_dz_cxs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Buttons, StdCtrls, Mask, DBCtrlsEh, ExtCtrls, DB, DBClient;
  9. type
  10.   Tam_dz_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 FormClose(Sender: TObject; var Action: TCloseAction);
  30.     procedure FormCreate(Sender: TObject);
  31.     procedure SpeedButton2Click(Sender: TObject);
  32.     procedure SpeedButton1Click(Sender: TObject);
  33.     procedure ComboBox1Change(Sender: TObject);
  34.     procedure ComboBox2Change(Sender: TObject);
  35.     procedure ComboBox3Change(Sender: TObject);
  36.     procedure BitBtn1Click(Sender: TObject);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   am_dz_cx: Tam_dz_cx;
  45.   str,s_zdm,s_logic,s_tj:string;//查找字符串,字段名
  46. Const ss:array [0..7] of string=('dz_dm','dz_xm','dz_dw','dz_lxdh','dz_lxdz','zjlb_mc','dz_zjh','dz_djsj');
  48. implementation
  50. uses DMs;
  52. {$R *.dfm}
  54. procedure Tam_dz_cx.BitBtn2Click(Sender: TObject);
  55. begin
  56.  close;
  57. end;
  59. procedure Tam_dz_cx.FormClose(Sender: TObject; var Action: TCloseAction);
  60. begin
  61.  action:=cafree;
  62.  am_dz_cx:=nil;
  63. end;
  65. procedure Tam_dz_cx.FormCreate(Sender: TObject);
  66. begin
  67.   Combobox1.Clear;
  68.   Combobox1.Items.add('读者代码');
  69.   Combobox1.Items.add('姓名');
  70.   Combobox1.Items.add('读者单位');
  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_dz_cx.SpeedButton2Click(Sender: TObject);
  79. begin
  80.  combobox1.ItemIndex:=-1;
  81.  combobox2.ItemIndex:=-1;
  82.  edit1.Text:='';
  83.  combobox3.ItemIndex:=-1;
  84.  edit2.text:='';
  85. end;
  87. procedure Tam_dz_cx.SpeedButton1Click(Sender: TObject);
  88. begin
  89.  s_logic:='';
  90.  if trim(Combobox1.Text)='' then
  91.    begin
  92.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  93.     exit;
  94.    end;
  95.  if trim(Combobox2.Text)='' then
  96.    begin
  97.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  98.     exit;
  99.    end;
  100.    //有效性验证
  101.  case combobox3.ItemIndex of
  102.   0:  s_logic:=' and ';
  103.   1:  s_logic:=' or ';
  104.  end;
  105.  if Combobox2.Text='模糊查询' then
  106.    Edit2.Text:=Edit2.Text+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+s_logic+' '
  107.  else if combobox1.Text='登记时间' then
  108.   begin
  109.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''+' '+s_logic+' ';   end
  110.  else
  111.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+s_logic+' ';
  112.  combobox1.ItemIndex:=-1;
  113.  combobox2.ItemIndex:=-1;
  114.  edit1.Text:='';
  115.  combobox3.ItemIndex:=-1;
  116.  SpeedButton1.Enabled:=false;
  117. end;
  119. procedure Tam_dz_cx.ComboBox1Change(Sender: TObject);
  120. begin
  121.   s_zdm:=ss[combobox1.itemindex];//以上是获得下拉框中的值
  122.  if combobox1.Text='登记时间' then
  123.    begin
  124.     combobox2.Clear;
  125.     combobox2.Items.Add('=');
  126.     combobox2.Items.Add('<>');
  127.     combobox2.Items.Add('<');
  128.     combobox2.Items.Add('>');
  129.     combobox2.Items.Add('>=');
  130.     combobox2.Items.Add('<=');
  131.    end
  132.   else
  133.    begin
  134.     combobox2.Clear;
  135.     combobox2.Items.Add('=');
  136.     combobox2.Items.Add('<>');
  137.     combobox2.Items.Add('模糊查询');
  138.    end;
  139. end;
  141. procedure Tam_dz_cx.ComboBox2Change(Sender: TObject);
  142. begin
  143.  if combobox1.Text='登记时间' then
  144.    begin
  145.     DBDateTimeEditEh1.Visible:=true;
  146.     edit1.Visible:=false;
  147.    end
  148.  else
  149.    begin
  150.     DBDateTimeEditEh1.Visible:=false;
  151.     edit1.Visible:=true;
  152.    end;
  153. end;
  154. procedure Tam_dz_cx.ComboBox3Change(Sender: TObject);
  155. begin
  156.  if trim(Combobox1.Text)='' then
  157.    begin
  158.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  159.     exit;
  160.    end;
  161.  if trim(Combobox2.Text)='' then
  162.    begin
  163.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  164.     exit;
  165.    end;
  166.  s_logic:='';
  167.  case combobox3.ItemIndex of
  168.   0:  s_logic:=' and ';
  169.   1:  s_logic:=' or ';
  170.  end;
  171.  SpeedButton1.Enabled:=true;
  172. end;
  174. procedure Tam_dz_cx.BitBtn1Click(Sender: TObject);
  175. var S_Edit,Hint:string;
  176. begin
  177.  S_Edit:=Edit2.Text;
  178.  if trim(Combobox1.Text)='' then
  179.    begin
  180.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  181.     exit;
  182.    end;
  183.  if trim(Combobox2.Text)='' then
  184.    begin
  185.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  186.     exit;
  187.    end;
  188.  //----------------------------------
  189.  if trim(Edit2.Text)='' then
  190.   begin
  191.     if Combobox2.Text='模糊查询' then
  192.      str:=s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  193.     else
  194.      str:=s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  195.   end
  196.  else
  197.   begin
  198.     if Combobox2.Text='模糊查询' then
  199.        str:=s_Edit+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  200.     else if combobox1.Text='登记时间' then
  201.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''
  202.     else
  203.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  204.   end;
  205.  //---------------------------------
  206.   ClientDataSet1.Close;
  207.   ClientDataSet1.CommandText:='select * from V_DZ where '+str;
  208.   ClientDataSet1.Open;
  209.   dm.v_dz.active:=false;
  210.   dm.v_dz.active:=true;
  211.   dm.V_DZ.Data:=ClientDataSet1.Data;
  212.   if Clientdataset1.RecordCount=0 then
  213.      application.MessageBox('没有找到符合条件的纪录','提示',mb_ok+mb_iconinformation)
  214.   else
  215.    begin
  216.      Hint:='当前表中有'+IntToStr(Clientdataset1.RecordCount)+'条记录符合条件';
  217.      application.MessageBox(Pchar(hint),'提示',mb_ok+mb_iconinformation);
  218.    end;
  219. end;
  221. end.