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

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

Delphi控件源码

开发平台：

Delphi

am_wjcxs.pas：源码内容
  1. unit am_wjcxs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, DB, DBClient, Buttons, Mask, DBCtrlsEh, StdCtrls, ExtCtrls;
  9. type
  10.   Tam_wjcx = 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 BitBtn2Click(Sender: TObject);
  42.     procedure ComboBox1Change(Sender: TObject);
  43.     procedure ComboBox3Change(Sender: TObject);
  44.     procedure ComboBox5Change(Sender: TObject);
  45.     procedure ComboBox7Change(Sender: TObject);
  46.     procedure ComboBox2Change(Sender: TObject);
  47.     procedure ComboBox4Change(Sender: TObject);
  48.     procedure ComboBox6Change(Sender: TObject);
  49.     procedure ComboBox8Change(Sender: TObject);
  50.     procedure DBDateTimeEditEh1Change(Sender: TObject);
  51.     procedure DBDateTimeEditEh2Change(Sender: TObject);
  52.     procedure DBDateTimeEditEh3Change(Sender: TObject);
  53.     procedure DBDateTimeEditEh4Change(Sender: TObject);
  54.     procedure Edit1Change(Sender: TObject);
  55.     procedure Edit2Change(Sender: TObject);
  56.     procedure Edit3Change(Sender: TObject);
  57.     procedure Edit4Change(Sender: TObject);
  58.     procedure ComboBox9Change(Sender: TObject);
  59.     procedure ComboBox10Change(Sender: TObject);
  60.     procedure ComboBox11Change(Sender: TObject);
  61.     procedure BitBtn1Click(Sender: TObject);
  62.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  63.     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  64.     procedure Edit2KeyPress(Sender: TObject; var Key: Char);
  65.     procedure Edit3KeyPress(Sender: TObject; var Key: Char);
  66.     procedure Edit4KeyPress(Sender: TObject; var Key: Char);
  67.   private
  68.     { Private declarations }
  69.   public
  70.     { Public declarations }
  71.   end;
  73. var
  74.   am_wjcx: Tam_wjcx;
  75.   Str1,Str3,Str5,Str7:string;//查询变量
  76.       i1,i3,i5,i7:string;//取下拉框中的值
  77. Const s_logic1:array[0..5] of string=('=','<>','>','<','>=','<=');
  78. const s_logic2:array[0..2] of string=('=','<>','like');
  79. const s_zdz:array[0..15] of string=('wj_ndh','ajlb_mc','wj_ys','wj_jnxh'
  80.  ,'wj_hh','wj_gdrq','wj_rq','bgqx_mc','mj_mc','wj_wsh','wj_dm','wj_yc'
  81.  ,'bm_mc','wjlb_mc','ztlb_mc','user_name');
  82. implementation
  84. uses am_wjjss;
  86. {$R *.dfm}
  88. procedure Tam_wjcx.BitBtn2Click(Sender: TObject);
  89. begin
  90.  close;
  91. end;
  93. procedure Tam_wjcx.ComboBox1Change(Sender: TObject);
  94. begin
  95.  i1:=s_zdz[combobox1.itemindex];//以上是获得下拉框中的值=
  96.     dbdatetimeediteh1.Visible:=false;
  97.     edit1.visible:=true; combobox2.Enabled:=true;
  98.  if (combobox1.text='归档日期')or(combobox1.text='形成日期') or (combobox1.text='文件页数')
  99.     or(combobox1.text='卷内序号')or(combobox1.Text='文件页次')or(combobox1.Text='年代号') then
  100.   begin
  101.    combobox2.Clear;
  102.    combobox2.Items.Add('=');
  103.    combobox2.Items.Add('<>');
  104.    combobox2.Items.Add('>');
  105.    combobox2.Items.Add('<');
  106.    combobox2.Items.Add('>=');
  107.    combobox2.Items.Add('<=');
  108.   end
  109.  else
  110.   begin
  111.    combobox2.Clear;
  112.    combobox2.Items.Add('=');
  113.    combobox2.Items.Add('<>');
  114.    combobox2.Items.Add('模糊查询');
  115.   end;
  116. end;
  118. procedure Tam_wjcx.ComboBox3Change(Sender: TObject);
  119. begin
  120.  i3:=s_zdz[combobox3.itemindex];//以上是获得下拉框中的值=
  121.     dbdatetimeediteh2.Visible:=false;
  122.     edit2.visible:=true; combobox4.Enabled:=true;
  123.  if (combobox3.text='归档日期')or(combobox3.text='形成日期')or (combobox3.text='文件页数')
  124.    or (combobox3.text='卷内序号')or(combobox3.Text='文件页次')or(combobox3.Text='年代号')then
  125.   begin
  126.    combobox4.Clear;
  127.    combobox4.Items.Add('=');
  128.    combobox4.Items.Add('<>');
  129.    combobox4.Items.Add('>');
  130.    combobox4.Items.Add('<');
  131.    combobox4.Items.Add('>=');
  132.    combobox4.Items.Add('<=');
  133.   end
  134.  else
  135.   begin
  136.    combobox4.Clear;
  137.    combobox4.Items.Add('=');
  138.    combobox4.Items.Add('<>');
  139.    combobox4.Items.Add('模糊查询');
  140.   end;
  141. end;
  143. procedure Tam_wjcx.ComboBox5Change(Sender: TObject);
  144. begin
  145.  i5:=s_zdz[combobox5.itemindex];//以上是获得下拉框中的值=
  146.     dbdatetimeediteh3.Visible:=false;
  147.     edit3.visible:=true; combobox6.Enabled:=true;
  148.  if (combobox5.text='归档日期')or(combobox5.text='形成日期')or (combobox5.text='文件页数')
  149.    or (combobox5.text='卷内序号')or(combobox5.Text='文件页次')or(combobox5.Text='年代号') then
  150.   begin
  151.    combobox6.Clear;
  152.    combobox6.Items.Add('=');
  153.    combobox6.Items.Add('<>');
  154.    combobox6.Items.Add('>');
  155.    combobox6.Items.Add('<');
  156.    combobox6.Items.Add('>=');
  157.    combobox6.Items.Add('<=');
  158.   end
  159.  else
  160.   begin
  161.    combobox6.Clear;
  162.    combobox6.Items.Add('=');
  163.    combobox6.Items.Add('<>');
  164.    combobox6.Items.Add('模糊查询');
  165.   end;
  166. end;
  168. procedure Tam_wjcx.ComboBox7Change(Sender: TObject);
  169. begin
  170.  i7:=s_zdz[combobox7.itemindex];//以上是获得下拉框中的值=
  171.     dbdatetimeediteh4.Visible:=false;
  172.     edit4.visible:=true; combobox8.Enabled:=true;
  173.  if (combobox7.text='归档日期')or(combobox7.text='形成日期')or (combobox7.text='文件页数')
  174.    or (combobox7.text='卷内序号')or(combobox7.Text='文件页次')or(combobox7.Text='年代号') then
  175.   begin
  176.    combobox8.Clear;
  177.    combobox8.Items.Add('=');
  178.    combobox8.Items.Add('<>');
  179.    combobox8.Items.Add('>');
  180.    combobox8.Items.Add('<');
  181.    combobox8.Items.Add('>=');
  182.    combobox8.Items.Add('<=');
  183.   end
  184.  else
  185.   begin
  186.    combobox8.Clear;
  187.    combobox8.Items.Add('=');
  188.    combobox8.Items.Add('<>');
  189.    combobox8.Items.Add('模糊查询');
  190.   end;
  191. end;
  193. procedure Tam_wjcx.ComboBox2Change(Sender: TObject);
  194. begin
  195.   combobox9.Clear;
  196.   combobox9.Items.Add('并且');
  197.   combobox9.Items.Add('或者');
  198.  if (combobox1.text='归档日期')or(combobox1.text='形成日期') then
  199.    begin
  200.       dbdatetimeediteh1.Enabled:=true;
  201.       dbdatetimeediteh1.Visible:=true;
  202.       edit1.Visible:=false;
  203.       dbdatetimeediteh1.Text:='    -  -  ';
  204.    end
  205.    else
  206.    begin
  207.        edit1.Enabled:=true;
  208.        edit1.Text:='';
  209.        dbdatetimeediteh1.Visible:=false;
  210.        dbdatetimeediteh1.Text:='    -  -  ';
  211.    end;
  212. end;
  214. procedure Tam_wjcx.ComboBox4Change(Sender: TObject);
  215. begin
  216.  combobox10.Clear;
  217.   combobox10.Items.Add('并且');
  218.   combobox10.Items.Add('或者');
  219.   edit2.Text:='';
  220.  if (combobox3.text='归档日期')or(combobox3.text='形成日期') then
  221.   begin
  222.       dbdatetimeediteh2.Enabled:=true;
  223.       dbdatetimeediteh2.Visible:=true;
  224.       edit2.Visible:=false;
  225.       dbdatetimeediteh2.Text:='    -  -  ';
  226.    end
  227.    else
  228.    begin
  229.        edit2.Enabled:=true;
  230.        edit2.Text:='';
  231.        dbdatetimeediteh2.Visible:=false;
  232.        dbdatetimeediteh2.Text:='    -  -  ';
  233.    end;
  234. end;
  236. procedure Tam_wjcx.ComboBox6Change(Sender: TObject);
  237. begin
  238.   combobox11.Clear;
  239.   combobox11.Items.Add('并且');
  240.   combobox11.Items.Add('或者');
  241.   edit3.Text:='';
  242.   if (combobox5.text='归档日期')or(combobox5.text='形成日期') then
  243.     begin
  244.       dbdatetimeediteh3.Enabled:=true;
  245.       dbdatetimeediteh3.Visible:=true;
  246.       edit3.Visible:=false;
  247.       dbdatetimeediteh3.Text:='    -  -  ';
  248.    end
  249.    else
  250.    begin
  251.        edit3.Enabled:=true;
  252.        edit3.Text:='';
  253.        dbdatetimeediteh3.Visible:=false;
  254.        dbdatetimeediteh3.Text:='    -  -  ';
  255.    end;
  256. end;
  258. procedure Tam_wjcx.ComboBox8Change(Sender: TObject);
  259. begin
  260.  edit4.Text:='';
  261.  if (combobox7.text='归档日期')or(combobox7.text='形成日期') then
  262.    begin
  263.       dbdatetimeediteh4.Enabled:=true;
  264.       dbdatetimeediteh4.Visible:=true;
  265.       edit4.Visible:=false;
  266.       dbdatetimeediteh4.Text:='    -  -  ';
  267.    end
  268.    else
  269.    begin
  270.        edit4.Enabled:=true;
  271.        edit4.Text:='';
  272.        dbdatetimeediteh4.Visible:=false;
  273.        dbdatetimeediteh4.Text:='    -  -  ';
  274.    end;
  275. end;
  277. procedure Tam_wjcx.DBDateTimeEditEh1Change(Sender: TObject);
  278. begin
  279.  combobox9.Enabled:=true;
  280. end;
  282. procedure Tam_wjcx.DBDateTimeEditEh2Change(Sender: TObject);
  283. begin
  284.   str3:='';
  285.   combobox10.Enabled:=true;combobox4.Enabled:=false;
  286.   if (combobox3.text='归档日期')or(combobox3.text='形成日期')then
  287.    begin
  288.      if dbdatetimeediteh2.Text<>'    -  -  ' then //trim(combobox4.Text)
  289.         str3:=str3+i3+' '+trim(combobox4.Text)+' '+''''+trim(dbdatetimeediteh2.Text)+''''
  290.      else
  291.         str3:=str3+i3+' '+trim(combobox4.Text)+' '+'''';
  292.    end;
  293. end;
  295. procedure Tam_wjcx.DBDateTimeEditEh3Change(Sender: TObject);
  296. begin
  297.  str5:='';
  298.  combobox11.Enabled:=true;
  299. if (combobox5.text='归档日期')or(combobox5.text='形成日期')then
  300.  begin
  301.    if dbdatetimeediteh3.Text<>'    -  -  'then
  302.       str5:=str5+i5+' '+trim(combobox6.Text)+' '+''''+trim(dbdatetimeediteh3.Text)+''''
  303.    else
  304.       str5:=str5+i5+' '+trim(combobox6.Text)+' '+'''';
  305.  end;
  306. end;
  308. procedure Tam_wjcx.DBDateTimeEditEh4Change(Sender: TObject);
  309. begin
  310.   str7:='';
  311.   IF (combobox7.text='归档日期')or(combobox7.text='形成日期')then
  312.     begin
  313.       if dbdatetimeediteh4.Text<>'    -  -  'then
  314.          str7:=str7+i7+' '+trim(combobox8.Text)+' '+''''+trim(DBDateTimeEditEh4.Text)+''''
  315.       else
  316.          str7:=str7+i7+' '+trim(combobox8.Text)+' '+'''';
  317.     end;
  318. end;
  320. procedure Tam_wjcx.Edit1Change(Sender: TObject);
  321. begin
  322.   if trim(edit1.Text)<>'' then
  323.   begin
  324.      combobox9.Enabled:=true;
  325.   end
  326.   else
  327.      combobox9.Enabled:=false;
  328. end;
  330. procedure Tam_wjcx.Edit2Change(Sender: TObject);
  331. begin
  332.    str3:='';
  333.    if trim(edit2.Text)<>'' then
  334.    begin
  335.        combobox10.Enabled:=true;
  336.    end
  337.    else
  338.    begin
  339.        combobox10.Enabled:=false;
  340.    end;
  341.    if combobox4.Text='模糊查询'then
  342.    begin
  343.      str3:=str3+i3+' '+' like '+' '+''''+trim(edit2.Text)+'%'+'''';
  344.    end
  345.   else
  346.   begin
  347.      str3:=str3+i3+' '+trim(combobox4.Text)+' '+''''+trim(edit2.text)+'''';
  348.   end;
  349. end;
  351. procedure Tam_wjcx.Edit3Change(Sender: TObject);
  352. begin
  353. if trim(edit3.Text)<>'' then
  354.    begin
  355.        combobox11.Enabled:=true;
  356.    end
  357.    else
  358.    begin
  359.        combobox11.Enabled:=false;
  360.    end;
  361.   str5:='';
  362.   if combobox6.Text='模糊查询'then
  363.   begin
  364.      str5:=str5+i5+' '+' like '+' '+''''+trim(edit3.Text)+'%'+'''';
  365.   end
  366.   else
  367.   begin
  368.      str5:=str5+i5+' '+trim(combobox6.Text)+' '+''''+trim(edit3.text)+'''';
  369.    end;
  370. end;
  372. procedure Tam_wjcx.Edit4Change(Sender: TObject);
  373. begin
  374.   str7:=' ';
  375.   if combobox8.Text='模糊查询'then
  376.   begin
  377.      str7:=str7+i7+' '+' like '+' '+''''+trim(edit4.Text)+'%'+'''';
  378.   end
  379.   else
  380.   begin
  381.      str7:=str7+i7+' '+trim(combobox8.Text)+' '+''''+trim(edit4.text)+'''';
  382.   end;
  383. end;
  385. procedure Tam_wjcx.ComboBox9Change(Sender: TObject);
  386. begin
  387.    COMBOBOX3.Enabled:=TRUE;combobox1.Enabled:=false;combobox2.Enabled:=false;
  388.   edit1.Enabled:=false;dbdatetimeediteh1.Enabled:=false;combobox9.Enabled:=false;
  389. end;
  391. procedure Tam_wjcx.ComboBox10Change(Sender: TObject);
  392. begin
  393.    combobox5.enabled:=true;combobox3.Enabled:=false;combobox4.enabled:=false;
  394.    edit2.Enabled:=false;dbdatetimeediteh2.Enabled:=false;combobox10.Enabled:=false;
  395.    //设置查询条件
  396.   str3:=' ';
  397.   if combobox4.Text='模糊查询' then
  398.   begin
  399.      str3:=i3+' '+' like '+' '+''''+trim(edit2.Text)+'%'+'''';
  400.   end
  401.   else
  402.   begin
  403.      str3:=i3+' '+trim(combobox4.Text)+' '+''''+trim(edit2.Text)+'''';
  404.   end;
  405.  if (combobox3.text='编制起始日期')or (combobox3.text='归档起始日期') or
  406.     (combobox3.text='编制结束日期')or (combobox3.text='归档结束日期') then
  407.   begin
  408.      str3:=i3+' '+trim(combobox4.Text)+' '+''''+trim(dbdatetimeediteh2.Text)+'''';
  409.   end;
  410.   case combobox10.ItemIndex of
  411.     0: str3:=str3+' and ';
  412.     1: str3:=STR3+' OR ';
  413.   END; 
  414. end;
  416. procedure Tam_wjcx.ComboBox11Change(Sender: TObject);
  417. begin
  418.  combobox7.enabled:=true;combobox5.enabled:=false;combobox6.enabled:=false;
  419.   edit3.Enabled:=false;dbdatetimeediteh3.Enabled:=false;combobox11.Enabled:=false;
  420.    str5:=' ';
  421.   if combobox6.Text='模糊查询' then
  422.   begin
  423.      str5:=i5+' '+' like '+' '+''''+trim(edit3.Text)+'%'+'''';
  424.   end
  425.   else
  426.   begin
  427.      str5:=i5+' '+trim(combobox6.Text)+' '+''''+trim(edit3.Text)+'''';
  428.   end;
  429.  if (combobox5.text='编制起始日期')or(combobox5.text='归档起始日期') or
  430.     (combobox5.text='编制结束日期')or (combobox5.text='归档结束日期') then
  431.   begin
  432.      str5:=i5+' '+trim(combobox6.Text)+' '+''''+trim(dbdatetimeediteh3.Text)+'''';
  433.   end;
  434.   case combobox11.ItemIndex of
  435.     0: str5:=str5+' and ';
  436.     1: str5:=STR5+' OR ';
  437.   END;
  438. end;
  440. procedure Tam_wjcx.BitBtn1Click(Sender: TObject);
  441. var k:string;
  442. begin
  443.   if (combobox1.Text='') then
  444.   begin
  445.     application.MessageBox('请输入查询条件','提示！',mb_ok);
  446.     exit;
  447.   end;
  448.   if (combobox9.Text<>'')and((combobox3.Text='')or (combobox4.text=''))then
  449.   begin
  450.      application.MessageBox('不符合多条查询的条件','提示！',mb_ok);
  451.      exit;
  452.   end;//---------------
  453.   if (combobox10.Text<>'')and((combobox5.Text='')or (combobox6.text=''))then
  454.   begin
  455.      application.MessageBox('不符合多条查询的条件','提示！',mb_ok);
  456.      exit;
  457.   end;//----------
  458.   if (combobox11.Text<>'')and ((combobox7.Text='')or (combobox8.Text=''))then
  459.   begin
  460.      application.MessageBox('不符合多条查询的条件','提示！',mb_ok);
  461.      exit;
  462.   end;//-------------
  463.   //----------------------------------------
  464.   if (combobox1.Text<>'') and
  465.     ((trim(edit1.Text)='') and (dbdatetimeediteh1.Text='    -  -  '))then
  466.      begin
  467.         application.MessageBox('查询条件不完全，请输入查询条件','提示！',mb_ok);
  468.         exit;
  469.      end;//---------------------------------------------------------------------
  470.   if (combobox3.Text<>'') and
  471.     ((trim(edit2.Text)='') and (dbdatetimeediteh2.Text='    -  -  '))then
  472.      begin
  473.         application.MessageBox('查询条件不完全，请输入查询条件','提示！',mb_ok);
  474.         exit;
  475.      end;//---------------------------------------------------------------------
  476.   if (combobox5.Text<>'') and
  477.    ((trim(edit3.Text)='') and (dbdatetimeediteh3.Text='    -  -  '))then
  478.      begin
  479.         application.MessageBox('查询条件不完全，请输入查询条件','提示！',mb_ok);
  480.         exit;
  481.      end;
  482.   if (combobox7.Text<>'') and
  483.    ((trim(edit4.Text)='') and (dbdatetimeediteh4.Text='    -  -  '))then
  484.      begin
  485.         application.MessageBox('查询条件不完全，请输入查询条件','提示！',mb_ok);
  486.         exit;
  487.      end;
  488.  //-----------------------------------------------------------------------------
  489.    str1:=' '; k:=' ';
  490.     if combobox2.Text='模糊查询' then
  491.     begin
  492.        str1:=i1+' '+' like '+' '+''''+trim(edit1.Text)+'%'+'''';
  493.     end
  494.     else
  495.     begin
  496.        str1:=i1+' '+trim(combobox2.Text)+' '+''''+trim(edit1.Text)+'''';
  497.     end;
  498.  if (combobox1.text='形成日期')or(combobox1.text='归档日期') then
  499.     begin
  500.        str1:=i1+' '+trim(combobox2.Text)+' '+''''+trim(dbdatetimeediteh1.Text)+'''';
  501.     end;
  502.    case combobox9.ItemIndex of
  503.     0: str1:=str1+' and ';
  504.     1: str1:=STR1+' or ';
  505.   end;//-----------------------
  506.   k:=str1+' '+str3+' '+str5+' '+str7;
  507.   ClientDataSet1.close; //好像只能查一遍
  508.   ClientDataSet1.CommandText:='select * from v_wjgl where '+ k;
  509.   ClientDataSet1.Open;
  510.   if ClientDataSet1.RecordCount=0 then
  511.   begin
  512.      if application.MessageBox('没有找到符合条件的记录'+#13#10+'是否重新搜索？','询问？',mb_okcancel+mb_iconquestion)=idok then
  513.      begin
  514.        Combobox1.ItemIndex:=-1;combobox3.ItemIndex:=-1;combobox5.ItemIndex:=-1;combobox7.ItemIndex:=-1;
  515.        combobox3.Enabled:=false;combobox5.Enabled:=false;combobox7.Enabled:=false;       
  516.      //-----------------------------------------------------------------------------
  517.        combobox2.Enabled:=false;combobox4.Enabled:=false;combobox6.Enabled:=false;combobox8.Enabled:=false;
  518.        combobox2.Clear;combobox4.Clear;combobox6.Clear;combobox8.Clear;
  519.     //--------------------------------------------------------------------------
  520.        edit1.Text:='';edit2.Text:='';edit3.Text:='';edit4.Text:='';
  521.        edit1.Visible:=true;edit2.Visible:=true;edit3.Visible:=true;edit4.Visible:=true;
  522.        edit1.Enabled:=false;edit2.Enabled:=false;edit3.Enabled:=false;edit4.Enabled:=false;
  523.    //-----------------------------------------------------------------------------
  524.        dbdatetimeediteh1.Visible:=false;dbdatetimeediteh2.Visible:=false;
  525.        dbdatetimeediteh3.Visible:=false;dbdatetimeediteh4.Visible:=false;
  526.        dbdatetimeediteh1.Text:='    -  -  ';dbdatetimeediteh2.Text:='    -  -  ';
  527.        dbdatetimeediteh3.Text:='    -  -  ';dbdatetimeediteh4.Text:='    -  -  ';
  528.    //------------------------------------------------------------------------------
  529.        combobox9.Enabled:=false;combobox10.Enabled:=false;combobox11.Enabled:=false;
  530.        combobox9.Clear;combobox10.Clear;combobox11.Clear;
  531.    //---------------------------------------------------------------------------
  532.        str1:='';str3:='';str5:='';str7:='';
  533.        i1:='';i3:='';i5:='';i7:='';
  534.        combobox1.Enabled:=true;
  535.        exit;
  536.      end
  537.      else close;
  538.   end else
  539.     begin
  540.       am_wjjs.ClientDataSet1.Data:=Clientdataset1.Data;
  541.       am_wjjs.StatusBar1.Panels[0].Text:='符合条件的记录有：'+inttostr(ClientDataSet1.RecordCount)+'条';
  542.       close;
  543.     end;
  544. end;
  546. procedure Tam_wjcx.FormClose(Sender: TObject; var Action: TCloseAction);
  547. begin
  548.   ClientDataset1.Active:=false;
  549.   am_wjcx:=Nil;
  550.   action:=cafree;
  551. end;
  553. procedure Tam_wjcx.Edit1KeyPress(Sender: TObject; var Key: Char);
  554. begin
  555.  if (combobox1.Text='年代号')or(combobox1.Text='文件页数')or (combobox1.Text='卷内序号') or (combobox1.Text='文件页次') then
  556.  if not (key in ['0'..'9',#8,#13]) then
  557.    begin
  558.      key:=#0;
  559.      messagebeep(1);
  560.      application.MessageBox('请输入数字!','提示',mb_ok);
  561.    end;
  562. end;
  564. procedure Tam_wjcx.Edit2KeyPress(Sender: TObject; var Key: Char);
  565. begin
  566.  if (combobox3.Text='年代号')or(combobox3.Text='文件页数')or(combobox3.Text='卷内序号') or (combobox3.Text='文件页次') then
  567.  if not (key in ['0'..'9',#8,#13]) then
  568.    begin
  569.      key:=#0;
  570.      messagebeep(1);
  571.      application.MessageBox('请输入数字!','提示',mb_ok);
  572.    end;
  573. end;
  575. procedure Tam_wjcx.Edit3KeyPress(Sender: TObject; var Key: Char);
  576. begin
  577.  if (combobox5.Text='年代号')or(combobox5.Text='文件页数')or(combobox5.Text='卷内序号') or (combobox5.Text='文件页次') then
  578.  if not (key in ['0'..'9',#8,#13]) then
  579.    begin
  580.      key:=#0;
  581.      messagebeep(1);
  582.      application.MessageBox('请输入数字!','提示',mb_ok);
  583.    end;
  584. end;
  586. procedure Tam_wjcx.Edit4KeyPress(Sender: TObject; var Key: Char);
  587. begin
  588.  if (combobox7.Text='年代号')or(combobox7.Text='文件页数')or(combobox7.Text='卷内序号') or (combobox7.Text='文件页次') then
  589.  if not (key in ['0'..'9',#8,#13]) then
  590.    begin
  591.      key:=#0;
  592.      messagebeep(1);
  593.      application.MessageBox('请输入数字!','提示',mb_ok);
  594.    end;
  595. end;
  597. end.