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

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

Delphi控件源码

开发平台：

Delphi

sb_azjl_cxs.pas：源码内容
  1. unit sb_azjl_cxs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, Buttons, Mask, DBCtrlsEh, StdCtrls, ExtCtrls, DB, DBClient;
  9. type
  10.   Tam_Ajcx = class(TForm)
  11.     Panel1: TPanel;
  12.     GroupBox1: TGroupBox;
  13.     GroupBox2: TGroupBox;
  14.     Label1: TLabel;
  15.     Label2: TLabel;
  16.     Label3: TLabel;
  17.     Label4: TLabel;
  18.     ComboBox1: TComboBox;
  19.     ComboBox2: TComboBox;
  20.     ComboBox3: TComboBox;
  21.     ComboBox5: TComboBox;
  22.     ComboBox7: TComboBox;
  23.     ComboBox4: TComboBox;
  24.     ComboBox6: TComboBox;
  25.     ComboBox8: TComboBox;
  26.     Edit1: TEdit;
  27.     Edit2: TEdit;
  28.     Edit3: TEdit;
  29.     Edit4: TEdit;
  30.     DBDateTimeEditEh2: TDBDateTimeEditEh;
  31.     DBDateTimeEditEh3: TDBDateTimeEditEh;
  32.     DBDateTimeEditEh4: TDBDateTimeEditEh;
  33.     ComboBox9: TComboBox;
  34.     ComboBox10: TComboBox;
  35.     ComboBox11: TComboBox;
  36.     DBDateTimeEditEh1: TDBDateTimeEditEh;
  37.     GroupBox3: TGroupBox;
  38.     BitBtn1: TSpeedButton;
  39.     BitBtn2: TSpeedButton;
  40.     ClientDataSet1: TClientDataSet;
  41.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  42.     procedure quitClick(Sender: TObject);
  43.     procedure Edit1Change(Sender: TObject);
  44.     procedure Edit2Change(Sender: TObject);
  45.     procedure Edit3Change(Sender: TObject);
  46.     procedure Edit4Change(Sender: TObject);
  47.     procedure ComboBox9Change(Sender: TObject);
  48.     procedure DBDateTimeEditEh1Change(Sender: TObject);
  49.     procedure ComboBox8Change(Sender: TObject);
  50.     procedure ComboBox6Change(Sender: TObject);
  51.     procedure ComboBox4Change(Sender: TObject);
  52.     procedure ComboBox2Change(Sender: TObject);
  53.     procedure ComboBox10Change(Sender: TObject);
  54.     procedure ComboBox11Change(Sender: TObject);
  55.     procedure BitBtn1Click(Sender: TObject);
  56.     procedure BitBtn2Click(Sender: TObject);
  57.     procedure ComboBox1Change(Sender: TObject);
  58.     procedure FormCreate(Sender: TObject);
  59.     procedure ComboBox3Change(Sender: TObject);
  60.     procedure ComboBox5Change(Sender: TObject);
  61.     procedure ComboBox7Change(Sender: TObject);
  62.     procedure DBDateTimeEditEh4Change(Sender: TObject);
  63.     procedure DBDateTimeEditEh3Change(Sender: TObject);
  64.     procedure DBDateTimeEditEh2Change(Sender: TObject);
  65.     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  66.     procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  67.     procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  68.     procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  69.   private
  70.     { Private declarations }
  71.   public
  72.     { Public declarations }
  73.   end;
  75. var
  76.   am_Ajcx: Tam_Ajcx;
  77.       Str1,Str3,Str5,Str7:string;//查询变量
  78.       i1,i3,i5,i7:string;//取下拉框中的值
  79. Const s_logic1:array[0..5] of string=('=','<>','>','<','>=','<=');
  80. const s_logic2:array[0..2] of string=('=','<>','like');
  81. const s_zdz:array[0..16] of string=('aj_dm','bgqx_mc','mj_mc','ajlb_mc'
  82.  ,'aj_ndh','aj_dh','aj_ys','aj_bzqsrq','aj_bzjsrq','aj_gdqsrq','aj_gdjsrq','aj_ljr'
  83.  ,'aj_jcr','aj_ztc','user_name','aj_wsh','aj_bmmc');
  84. implementation
  86. uses mainfrms, am_ajjss;
  88. {$R *.dfm}
  90. procedure Tam_Ajcx.FormClose(Sender: TObject; var Action: TCloseAction);
  91. begin
  92.   Clientdataset1.Active:=false;
  93.   action:=cafree;
  94.   am_ajcx:=nil;
  95. end;
  97. procedure Tam_Ajcx.quitClick(Sender: TObject);
  98. begin
  99.  close;
  100. end;
  102. procedure Tam_Ajcx.Edit1Change(Sender: TObject);
  103. begin
  104.  if trim(edit1.Text)<>'' then
  105.   begin
  106.      combobox9.Enabled:=true;
  107.   end
  108.   else
  109.      combobox9.Enabled:=false;
  110. end;
  112. procedure Tam_Ajcx.Edit2Change(Sender: TObject);
  113. begin
  114.    str3:='';
  115.    if trim(edit2.Text)<>'' then
  116.    begin
  117.        combobox10.Enabled:=true;
  118.    end
  119.    else
  120.    begin
  121.        combobox10.Enabled:=false;
  122.    end;
  123.    if combobox4.Text='模糊查询'then
  124.    begin
  125.      str3:=str3+i3+' '+' like '+' '+''''+trim(edit2.Text)+'%'+'''';
  126.    end
  127.   else
  128.   begin
  129.      str3:=str3+i3+' '+trim(combobox4.Text)+' '+''''+trim(edit2.text)+'''';
  130.   end;
  131. end;
  133. procedure Tam_Ajcx.Edit3Change(Sender: TObject);
  134. begin
  135.   if trim(edit3.Text)<>'' then
  136.    begin
  137.        combobox11.Enabled:=true;
  138.    end
  139.    else
  140.    begin
  141.        combobox11.Enabled:=false;
  142.    end;
  143.   str5:='';
  144.   if combobox6.Text='模糊查询'then
  145.   begin
  146.      str5:=str5+i5+' '+' like '+' '+''''+trim(edit3.Text)+'%'+'''';
  147.   end
  148.   else
  149.   begin
  150.      str5:=str5+i5+' '+trim(combobox6.Text)+' '+''''+trim(edit3.text)+'''';
  151.    end;
  152. end;
  154. procedure Tam_Ajcx.Edit4Change(Sender: TObject);
  155. begin
  156.   str7:=' ';
  157.   if combobox8.Text='模糊查询'then
  158.   begin
  159.      str7:=str7+i7+' '+' like '+' '+''''+trim(edit4.Text)+'%'+'''';
  160.   end
  161.   else
  162.   begin
  163.      str7:=str7+i7+' '+trim(combobox8.Text)+' '+''''+trim(edit4.text)+'''';
  164.   end;
  165. end;
  167. procedure Tam_Ajcx.ComboBox9Change(Sender: TObject);
  168. begin
  169.   COMBOBOX3.Enabled:=TRUE;combobox1.Enabled:=false;combobox2.Enabled:=false;
  170.   edit1.Enabled:=false;dbdatetimeediteh1.Enabled:=false;combobox9.Enabled:=false;
  171. end;
  173. procedure Tam_Ajcx.DBDateTimeEditEh1Change(Sender: TObject);
  174. begin
  175.  combobox9.Enabled:=true;
  176. end;
  178. procedure Tam_Ajcx.ComboBox8Change(Sender: TObject);
  179. begin
  180.   edit4.Text:='';
  181.  if (combobox7.text='编制起始日期')or(combobox7.text='归档起始日期') or
  182.     (combobox7.text='编制结束日期')or(combobox7.text='归档结束日期') then
  183.   begin
  184.       dbdatetimeediteh4.Enabled:=true;
  185.       dbdatetimeediteh4.Visible:=true;
  186.       edit4.Visible:=false;
  187.       dbdatetimeediteh4.Text:='    -  -  ';
  188.    end
  189.    else
  190.    begin
  191.        edit4.Enabled:=true;
  192.        edit4.Text:='';
  193.        dbdatetimeediteh4.Visible:=false;
  194.        dbdatetimeediteh4.Text:='    -  -  ';
  195.    end;
  196. end;
  198. procedure Tam_Ajcx.ComboBox6Change(Sender: TObject);
  199. begin
  200.   combobox11.Clear;
  201.   combobox11.Items.Add('并且');
  202.   combobox11.Items.Add('或者');
  203.   edit3.Text:='';
  204.  if (combobox5.text='编制起始日期')or(combobox5.text='归档起始日期') or
  205.     (combobox5.text='编制结束日期')or (combobox5.text='归档结束日期') then
  206.   begin
  207.       dbdatetimeediteh3.Enabled:=true;
  208.       dbdatetimeediteh3.Visible:=true;
  209.       edit3.Visible:=false;
  210.       dbdatetimeediteh3.Text:='    -  -  ';
  211.    end
  212.    else
  213.    begin
  214.        edit3.Enabled:=true;
  215.        edit3.Text:='';
  216.        dbdatetimeediteh3.Visible:=false;
  217.        dbdatetimeediteh3.Text:='    -  -  ';
  218.    end;
  219. end;
  221. procedure Tam_Ajcx.ComboBox4Change(Sender: TObject);
  222. begin
  223.   combobox10.Clear;
  224.   combobox10.Items.Add('并且');
  225.   combobox10.Items.Add('或者');
  226.   edit2.Text:='';
  227.  if (combobox3.text='编制起始日期')or(combobox3.text='归档起始日期') or
  228.     (combobox3.text='编制结束日期')or(combobox3.text='归档结束日期') then
  229.   begin
  230.       dbdatetimeediteh2.Enabled:=true;
  231.       dbdatetimeediteh2.Visible:=true;
  232.       edit2.Visible:=false;
  233.       dbdatetimeediteh2.Text:='    -  -  ';
  234.    end
  235.    else
  236.    begin
  237.        edit2.Enabled:=true;
  238.        edit2.Text:='';
  239.        dbdatetimeediteh2.Visible:=false;
  240.        dbdatetimeediteh2.Text:='    -  -  ';
  241.    end;
  242. end;
  244. procedure Tam_Ajcx.ComboBox2Change(Sender: TObject);
  245. begin
  246.   combobox9.Clear;
  247.   combobox9.Items.Add('并且');
  248.   combobox9.Items.Add('或者');
  249.  if (combobox1.text='编制起始日期')or(combobox1.text='归档起始日期') or
  250.     (combobox1.text='编制结束日期')or(combobox1.text='归档结束日期')  then
  251.    begin
  252.       dbdatetimeediteh1.Enabled:=true;
  253.       dbdatetimeediteh1.Visible:=true;
  254.       edit1.Visible:=false;
  255.       dbdatetimeediteh1.Text:='    -  -  ';
  256.    end
  257.  else
  258.    begin
  259.        edit1.Enabled:=true;
  260.        edit1.Text:='';
  261.        dbdatetimeediteh1.Visible:=false;
  262.        dbdatetimeediteh1.Text:='    -  -  ';
  263.    end;
  264. end;
  266. procedure Tam_Ajcx.ComboBox10Change(Sender: TObject);
  267. begin
  268.    combobox5.enabled:=true;combobox3.Enabled:=false;combobox4.enabled:=false;
  269.    edit2.Enabled:=false;dbdatetimeediteh2.Enabled:=false;combobox10.Enabled:=false;
  270.    //设置查询条件
  271.   str3:=' ';
  272.   if combobox4.Text='模糊查询' then
  273.   begin
  274.      str3:=i3+' '+' like '+' '+''''+trim(edit2.Text)+'%'+'''';
  275.   end
  276.   else
  277.   begin
  278.      str3:=i3+' '+trim(combobox4.Text)+' '+''''+trim(edit2.Text)+'''';
  279.   end;
  280.  if (combobox3.text='编制起始日期')or (combobox3.text='归档起始日期') or
  281.     (combobox3.text='编制结束日期')or (combobox3.text='归档结束日期') then
  282.   begin
  283.      str3:=i3+' '+trim(combobox4.Text)+' '+''''+trim(dbdatetimeediteh2.Text)+'''';
  284.   end;
  285.   case combobox10.ItemIndex of
  286.     0: str3:=str3+' and ';
  287.     1: str3:=STR3+' OR ';
  288.   END;
  289. end;
  291. procedure Tam_Ajcx.ComboBox11Change(Sender: TObject);
  292. begin
  293.   combobox7.enabled:=true;combobox5.enabled:=false;combobox6.enabled:=false;
  294.   edit3.Enabled:=false;dbdatetimeediteh3.Enabled:=false;combobox11.Enabled:=false;
  295.    str5:=' ';
  296.   if combobox6.Text='模糊查询' then
  297.   begin
  298.      str5:=i5+' '+' like '+' '+''''+trim(edit3.Text)+'%'+'''';
  299.   end
  300.   else
  301.   begin
  302.      str5:=i5+' '+trim(combobox6.Text)+' '+''''+trim(edit3.Text)+'''';
  303.   end;
  304.  if (combobox5.text='编制起始日期')or(combobox5.text='归档起始日期') or
  305.     (combobox5.text='编制结束日期')or (combobox5.text='归档结束日期') then
  306.   begin
  307.      str5:=i5+' '+trim(combobox6.Text)+' '+''''+trim(dbdatetimeediteh3.Text)+'''';
  308.   end;
  309.   case combobox11.ItemIndex of
  310.     0: str5:=str5+' and ';
  311.     1: str5:=STR5+' OR ';
  312.   END;
  313. end;
  315. procedure Tam_Ajcx.BitBtn1Click(Sender: TObject);
  316. var k:string;
  317. begin
  318.   if (combobox1.Text='') then
  319.   begin
  320.     application.MessageBox('请输入查询条件','提示！',mb_ok);
  321.     exit;
  322.   end;
  323.   if (combobox9.Text<>'')and((combobox3.Text='')or (combobox4.text=''))then
  324.   begin
  325.      application.MessageBox('不符合多条查询的条件','提示！',mb_ok);
  326.      exit;
  327.   end;//---------------
  328.   if (combobox10.Text<>'')and((combobox5.Text='')or (combobox6.text=''))then
  329.   begin
  330.      application.MessageBox('不符合多条查询的条件','提示！',mb_ok);
  331.      exit;
  332.   end;//----------
  333.   if (combobox11.Text<>'')and ((combobox7.Text='')or (combobox8.Text=''))then
  334.   begin
  335.      application.MessageBox('不符合多条查询的条件','提示！',mb_ok);
  336.      exit;
  337.   end;//-------------
  338.   //----------------------------------------
  339.   if (combobox1.Text<>'') and
  340.     ((trim(edit1.Text)='') and (dbdatetimeediteh1.Text='    -  -  '))then
  341.      begin
  342.         application.MessageBox('查询条件不完全，请输入查询条件','提示！',mb_ok);
  343.         exit;
  344.      end;//---------------------------------------------------------------------
  345.   if (combobox3.Text<>'') and
  346.     ((trim(edit2.Text)='') and (dbdatetimeediteh2.Text='    -  -  '))then
  347.      begin
  348.         application.MessageBox('查询条件不完全，请输入查询条件','提示！',mb_ok);
  349.         exit;
  350.      end;//---------------------------------------------------------------------
  351.   if (combobox5.Text<>'') and
  352.    ((trim(edit3.Text)='') and (dbdatetimeediteh3.Text='    -  -  '))then
  353.      begin
  354.         application.MessageBox('查询条件不完全，请输入查询条件','提示！',mb_ok);
  355.         exit;
  356.      end;
  357.   if (combobox7.Text<>'') and
  358.    ((trim(edit4.Text)='') and (dbdatetimeediteh4.Text='    -  -  '))then
  359.      begin
  360.         application.MessageBox('查询条件不完全，请输入查询条件','提示！',mb_ok);
  361.         exit;
  362.      end;
  363.  //-----------------------------------------------------------------------------
  364.    str1:=' '; k:=' ';
  365.     if combobox2.Text='模糊查询' then
  366.     begin
  367.        str1:=i1+' '+' like '+' '+''''+trim(edit1.Text)+'%'+'''';
  368.     end
  369.     else
  370.     begin
  371.        str1:=i1+' '+trim(combobox2.Text)+' '+''''+trim(edit1.Text)+'''';
  372.     end;
  373.  if (combobox1.text='编制起始日期')or(combobox1.text='归档起始日期') or
  374.     (combobox1.text='编制结束日期')or (combobox1.text='归档结束日期') then
  375.     begin
  376.        str1:=i1+' '+trim(combobox2.Text)+' '+''''+trim(dbdatetimeediteh1.Text)+'''';
  377.     end;
  378.    case combobox9.ItemIndex of
  379.     0: str1:=str1+' and ';
  380.     1: str1:=STR1+' or ';
  381.   end;//-----------------------
  382.   k:=str1+' '+str3+' '+str5+' '+str7;
  383.   ClientDataSet1.close;//好像只能查一遍
  384.   ClientDataSet1.CommandText:='select * from v_ajgl where '+ k;
  385.   ClientDataSet1.Open;
  386.   if ClientDataSet1.RecordCount=0 then
  387.   begin
  388.      if application.MessageBox('没有找到符合条件的记录'+#13#10+'是否重新搜索？','询问？',mb_okcancel+mb_iconquestion)=idok then
  389.      begin
  390.        Combobox1.ItemIndex:=-1;combobox3.ItemIndex:=-1;combobox5.ItemIndex:=-1;combobox7.ItemIndex:=-1;
  391.        combobox3.Enabled:=false;combobox5.Enabled:=false;combobox7.Enabled:=false;
  392.      //-----------------------------------------------------------------------------
  393.        combobox2.Enabled:=false;combobox4.Enabled:=false;combobox6.Enabled:=false;combobox8.Enabled:=false;
  394.        combobox2.Clear;combobox4.Clear;combobox6.Clear;combobox8.Clear;
  395.     //--------------------------------------------------------------------------
  396.        edit1.Text:='';edit2.Text:='';edit3.Text:='';edit4.Text:='';
  397.        edit1.Visible:=true;edit2.Visible:=true;edit3.Visible:=true;edit4.Visible:=true;
  398.        edit1.Enabled:=false;edit2.Enabled:=false;edit3.Enabled:=false;edit4.Enabled:=false;
  399.    //-----------------------------------------------------------------------------
  400.        dbdatetimeediteh1.Visible:=false;dbdatetimeediteh2.Visible:=false;
  401.        dbdatetimeediteh3.Visible:=false;dbdatetimeediteh4.Visible:=false;
  402.        dbdatetimeediteh1.Text:='    -  -  ';dbdatetimeediteh2.Text:='    -  -  ';
  403.        dbdatetimeediteh3.Text:='    -  -  ';dbdatetimeediteh4.Text:='    -  -  ';
  404.    //------------------------------------------------------------------------------
  405.        combobox9.Enabled:=false;combobox10.Enabled:=false;combobox11.Enabled:=false;
  406.        combobox9.Clear;combobox10.Clear;combobox11.Clear;
  407.    //---------------------------------------------------------------------------
  408.        str1:='';str3:='';str5:='';str7:='';
  409.        i1:='';i3:='';i5:='';i7:='';
  410.        combobox1.Enabled:=true;
  411.        exit;
  412.      end
  413.      else close;
  414.   end else
  415.     begin
  416.       am_ajjs.ClientDataSet1.Data:=Clientdataset1.Data;
  417.       am_ajjs.StatusBar1.Panels[0].Text:='符合条件的记录有：'+inttostr(ClientDataSet1.RecordCount)+'条';
  418.       close;
  419.     end;
  420. end;
  422. procedure Tam_Ajcx.BitBtn2Click(Sender: TObject);
  423. begin
  424.   close;
  425. end;
  427. procedure Tam_Ajcx.ComboBox1Change(Sender: TObject);
  428. begin
  429.  i1:=s_zdz[combobox1.itemindex];//以上是获得下拉框中的值=
  430.     dbdatetimeediteh1.Visible:=false;
  431.     edit1.visible:=true; combobox2.Enabled:=true;
  432.  if (combobox1.text='编制起始日期')or(combobox1.text='归档起始日期')or(combobox1.text='页数')
  433.    or(combobox1.text='编制结束日期')or (combobox1.text='归档结束日期')or(combobox1.Text='年代号') then
  434.   begin
  435.    combobox2.Clear;
  436.    combobox2.Items.Add('=');
  437.    combobox2.Items.Add('<>');
  438.    combobox2.Items.Add('>');
  439.    combobox2.Items.Add('<');
  440.    combobox2.Items.Add('>=');
  441.    combobox2.Items.Add('<=');
  442.   end
  443.  else
  444.   begin
  445.    combobox2.Clear;
  446.    combobox2.Items.Add('=');
  447.    combobox2.Items.Add('<>');
  448.    combobox2.Items.Add('模糊查询');
  449.   end;
  450. end;
  452. procedure Tam_Ajcx.FormCreate(Sender: TObject);
  453. begin
  454.    str1:=' ';str3:=' ';str5:=' ';str7:=' ';//连接字符串置为空
  455.    i1:=' ';i3:=' ';i5:=' ';i7:=' ';//字段名置为空
  456. end;
  458. procedure Tam_Ajcx.ComboBox3Change(Sender: TObject);
  459. begin
  460.     i3:=s_zdz[combobox3.itemindex];//以上是获得下拉框中的值=
  461.     dbdatetimeediteh2.Visible:=false;
  462.     edit2.visible:=true;combobox4.Enabled:=true;
  463.  if (combobox3.text='编制起始日期')or(combobox3.text='归档起始日期')or(combobox3.text='序号')
  464.    or(combobox3.text='编制结束日期')or (combobox3.text='归档结束日期')or(combobox3.Text='年代号') then
  465.   begin
  466.    combobox4.Clear;
  467.    combobox4.Items.Add('=');
  468.    combobox4.Items.Add('<>');
  469.    combobox4.Items.Add('>');
  470.    combobox4.Items.Add('<');
  471.    combobox4.Items.Add('>=');
  472.    combobox4.Items.Add('<=');
  473.   end
  474.  else
  475.   begin
  476.    combobox4.Clear;
  477.    combobox4.Items.Add('=');
  478.    combobox4.Items.Add('<>');
  479.    combobox4.Items.Add('模糊查询');
  480.   end;
  481. end;
  483. procedure Tam_Ajcx.ComboBox5Change(Sender: TObject);
  484. begin
  485.     i5:=s_zdz[combobox5.itemindex];//以上是获得下拉框中的值=
  486.     dbdatetimeediteh3.Visible:=false;
  487.     edit3.visible:=true;combobox6.Enabled:=true;
  488.  if   (combobox5.text='编制起始日期')or(combobox5.text='归档起始日期')or(combobox5.text='页数')
  489.    or(combobox5.text='编制结束日期')or (combobox5.text='归档结束日期')or(combobox5.Text='年代号') then
  490.   begin
  491.    combobox6.Clear;
  492.    combobox6.Items.Add('=');
  493.    combobox6.Items.Add('<>');
  494.    combobox6.Items.Add('>');
  495.    combobox6.Items.Add('<');
  496.    combobox6.Items.Add('>=');
  497.    combobox6.Items.Add('<=');
  498.   end
  499.  else
  500.   begin
  501.    combobox6.Clear;
  502.    combobox6.Items.Add('=');
  503.    combobox6.Items.Add('<>');
  504.    combobox6.Items.Add('模糊查询');
  505.   end;
  506. end;
  508. procedure Tam_Ajcx.ComboBox7Change(Sender: TObject);
  509. begin
  510.     i7:=s_zdz[combobox7.itemindex];//以上是获得下拉框中的值=
  511.     dbdatetimeediteh4.Visible:=false;
  512.     edit4.visible:=true;combobox8.Enabled:=true;
  513.  if   (combobox7.text='编制起始日期')or(combobox7.text='归档起始日期')or(combobox7.text='页数')
  514.    or(combobox7.text='编制结束日期')or (combobox7.text='归档结束日期')or(combobox7.Text='年代号') then
  515.   begin
  516.    combobox8.Clear;
  517.    combobox8.Items.Add('=');
  518.    combobox8.Items.Add('<>');
  519.    combobox8.Items.Add('>');
  520.    combobox8.Items.Add('<');
  521.    combobox8.Items.Add('>=');
  522.    combobox8.Items.Add('<=');
  523.   end
  524.  else
  525.   begin
  526.    combobox8.Clear;
  527.    combobox8.Items.Add('=');
  528.    combobox8.Items.Add('<>');
  529.    combobox8.Items.Add('模糊查询');
  530.   end;
  531. end;
  533. procedure Tam_Ajcx.DBDateTimeEditEh4Change(Sender: TObject);
  534. begin
  535.  str7:='';
  536.  if (pos('日期',combobox7.Text)>0) then
  537.    begin
  538.      if dbdatetimeediteh4.Text<>'    -  -  'then
  539.         str7:=str7+i7+' '+trim(combobox8.Text)+' '+''''+trim(DBDateTimeEditEh4.Text)+''''
  540.      else
  541.         str7:=str7+i7+' '+trim(combobox8.Text)+' '+'''';
  542.    end;
  543. end;
  545. procedure Tam_Ajcx.DBDateTimeEditEh3Change(Sender: TObject);
  546. begin
  547.  str5:='';
  548.  combobox11.Enabled:=true;
  549.   if (pos('日期',combobox5.Text)>0) then
  550.  begin
  551.    if dbdatetimeediteh3.Text<>'    -  -  'then
  552.       str5:=str5+i5+' '+trim(combobox6.Text)+' '+''''+trim(dbdatetimeediteh3.Text)+''''
  553.    else
  554.       str5:=str5+i5+' '+trim(combobox6.Text)+' '+'''';
  555.  end;
  556. end;
  558. procedure Tam_Ajcx.DBDateTimeEditEh2Change(Sender: TObject);
  559. begin
  560.   str3:='';
  561.   combobox10.Enabled:=true;combobox4.Enabled:=false;
  562.   if (pos('日期',combobox3.Text)>0) then
  563.    begin
  564.      if dbdatetimeediteh2.Text<>'    -  -  ' then //trim(combobox4.Text)
  565.         str3:=str3+i3+' '+trim(combobox4.Text)+' '+''''+trim(dbdatetimeediteh2.Text)+''''
  566.      else
  567.         str3:=str3+i3+' '+trim(combobox4.Text)+' '+'''';
  568.    end;
  569. end;
  571. procedure Tam_Ajcx.Edit1KeyPress(Sender: TObject; var Key: Char);
  572. begin
  573.  if (combobox1.Text='页数')or(combobox1.Text='年代号') then
  574.   if not (key in ['0'..'9',#8,#13]) then
  575.    begin
  576.      key:=#0;
  577.      messagebeep(1);
  578.      application.MessageBox('请输入数字!','提示',mb_ok);
  579.    end;
  580. end;
  582. procedure Tam_Ajcx.Edit2KeyPress(Sender: TObject; var Key: Char);
  583. begin
  584.  if (combobox3.Text='页数')or(combobox3.Text='年代号') then
  585.   if not (key in ['0'..'9',#8,#13]) then
  586.    begin
  587.      key:=#0;
  588.      messagebeep(1);
  589.      application.MessageBox('请输入数字!','提示',mb_ok);
  590.    end;
  591. end;
  593. procedure Tam_Ajcx.Edit3KeyPress(Sender: TObject; var Key: Char);
  594. begin
  595.  if (combobox5.Text='页数')or(combobox5.Text='年代号') then
  596.   if not (key in ['0'..'9',#8,#13]) then
  597.    begin
  598.      key:=#0;
  599.      messagebeep(1);
  600.      application.MessageBox('请输入数字!','提示',mb_ok);
  601.    end;
  602. end;
  604. procedure Tam_Ajcx.Edit4KeyPress(Sender: TObject; var Key: Char);
  605. begin
  606.  if (combobox7.Text='页数')or(combobox7.Text='年代号') then
  607.   if not (key in ['0'..'9',#8,#13]) then
  608.    begin
  609.      key:=#0;
  610.      messagebeep(1);
  611.      application.MessageBox('请输入数字!','提示',mb_ok);
  612.    end;
  613. end;
  615. end.