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

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

Delphi控件源码

开发平台：

Delphi

Am_GdAjCxs.pas：源码内容
  1. unit Am_GdAjCxs;
  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_gdAjcx = 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 SpeedButton1Click(Sender: TObject);
  29.     procedure SpeedButton2Click(Sender: TObject);
  30.     procedure BitBtn1Click(Sender: TObject);
  31.     procedure BitBtn2Click(Sender: TObject);
  32.     procedure ComboBox1Change(Sender: TObject);
  33.     procedure ComboBox3Change(Sender: TObject);
  34.     procedure FormCreate(Sender: TObject);
  35.     procedure ComboBox2Change(Sender: TObject);
  36.     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  37.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44. var
  45.   am_gdAjcx: Tam_gdAjcx;
  46.   str,s_zdm,s_logic,s_tj:string;//查找字符串,字段名
  47. Const ss:array [0..16] of string=('ajzt_mc','ajlb_mc','aj_ndh','user_name','mj_mc','bgqx_mc','aj_dh',
  48.     'aj_bzqsrq','aj_bzjsrq','aj_gdqsrq','aj_gdjsrq','aj_ljr','aj_jcr','aj_wsh','aj_kwmc','aj_ztc','aj_bmmc');
  49. implementation
  51. uses am_dz_ajxzs, am_gdaj_cxs, DMs;
  53. {$R *.dfm}
  55. procedure Tam_gdAjcx.SpeedButton1Click(Sender: TObject);
  56. begin
  57.  s_logic:='';
  58.  if trim(Combobox1.Text)='' then
  59.    begin
  60.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  61.     exit;
  62.    end;
  63.  if trim(Combobox2.Text)='' then
  64.    begin
  65.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  66.     exit;
  67.    end;
  68.    //有效性验证
  69.  case combobox3.ItemIndex of
  70.   0:  s_logic:=' and ';
  71.   1:  s_logic:=' or ';
  72.  end;
  73.  if Combobox2.Text='模糊查询' then
  74.    Edit2.Text:=Edit2.Text+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+s_logic+' '
  75.  else if (combobox1.Text='编制起始日期')or(combobox1.Text='编制结束日期')
  76.      or(combobox1.Text='归档起始日期')or(combobox1.Text='归档结束日期') then
  77.   begin
  78.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''+' '+s_logic+' ';   end
  79.  else
  80.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+s_logic+' ';
  81.  combobox1.ItemIndex:=-1;
  82.  combobox2.ItemIndex:=-1;
  83.  edit1.Text:='';
  84.  combobox3.ItemIndex:=-1;
  85.  SpeedButton1.Enabled:=false;
  86. end;
  88. procedure Tam_gdAjcx.SpeedButton2Click(Sender: TObject);
  89. begin
  90.  combobox1.ItemIndex:=-1;
  91.  combobox2.ItemIndex:=-1;
  92.  edit1.Text:='';
  93.  combobox3.ItemIndex:=-1;
  94.  edit2.text:='';
  95. end;
  97. procedure Tam_gdAjcx.BitBtn1Click(Sender: TObject);
  98. var S_Edit,Hint:string;
  99. begin
  100.  S_Edit:=Edit2.Text;
  101.  if trim(Combobox1.Text)='' then
  102.    begin
  103.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  104.     exit;
  105.    end;
  106.  if trim(Combobox2.Text)='' then
  107.    begin
  108.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  109.     exit;
  110.    end;
  111.  //----------------------------------
  112.   if trim(Edit2.Text)='' then
  113.   begin
  114.     if Combobox2.Text='模糊查询' then
  115.      str:=s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  116.     else
  117.      str:=s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  118.   end
  119.  else
  120.   begin
  121.     if Combobox2.Text='模糊查询' then
  122.        str:=s_Edit+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  123.     else if (combobox1.Text='编制起始日期')or(combobox1.Text='编制结束日期')
  124.      or(combobox1.Text='归档起始日期')or(combobox1.Text='归档结束日期') then
  125.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''
  126.     else
  127.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  128.   end;
  129.  //---------------------------------
  130.   Clientdataset1.Close;
  131.   Clientdataset1.CommandText:='select * from V_Ajgd where '+str;
  132.   Clientdataset1.Open;
  133.   //dm.V_AJGD.Data:=Clientdataset1.Data;
  134.   am_gdaj_cx.ClientDataSet1.data:=Clientdataset1.Data;
  135.   if Clientdataset1.RecordCount=0 then
  136.      application.MessageBox('没有找到符合条件的纪录','提示',mb_ok+mb_iconinformation)
  137.   else
  138.    begin
  139.      //Hint:='当前表中有'+IntToStr(dm.V_Ajgd.RecordCount)+'条记录符合条件';
  140.      Hint:='当前表中有'+IntToStr(ClientDataSet1.RecordCount)+'条记录符合条件';
  141.      application.MessageBox(Pchar(hint),'提示',mb_ok+mb_iconinformation);
  142.    end;
  143. end;
  146. procedure Tam_gdAjcx.BitBtn2Click(Sender: TObject);
  147. begin
  148.  close;
  149. end;
  151. procedure Tam_gdAjcx.ComboBox1Change(Sender: TObject);
  152. begin
  153.   s_zdm:=ss[combobox1.itemindex];//以上是获得下拉框中的值
  154.  if (combobox1.Text='年代号')or(combobox1.Text='编制起始日期')or(combobox1.Text='编制结束日期')
  155.      or(combobox1.Text='归档起始日期')or(combobox1.Text='归档结束日期') then
  156.   begin
  157.     combobox2.Clear;
  158.     Combobox2.Items.Add('=');
  159.     combobox2.Items.Add('>');
  160.     combobox2.Items.Add('>=');
  161.     Combobox2.Items.Add('<');
  162.     combobox2.Items.Add('<=');
  163.     combobox2.Items.Add('<>');
  164.   end
  165.  else
  166.   begin
  167.    combobox2.Clear;
  168.    combobox2.Items.Add('=');
  169.    combobox2.Items.Add('<>');
  170.    combobox2.Items.Add('模糊查询');
  171.   end;
  172. end;
  174. procedure Tam_gdAjcx.ComboBox3Change(Sender: TObject);
  175. begin
  176. if trim(Combobox1.Text)='' then
  177.    begin
  178.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  179.     exit;
  180.    end;
  181.  if trim(Combobox2.Text)='' then
  182.    begin
  183.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  184.     exit;
  185.    end;
  186.  s_logic:='';
  187.  case combobox3.ItemIndex of
  188.   0:  s_logic:=' and ';
  189.   1:  s_logic:=' or ';
  190.  end;
  191.  SpeedButton1.Enabled:=true;
  192. end;
  193. procedure Tam_gdAjcx.FormCreate(Sender: TObject);
  194. begin
  195.   combobox1.Clear;
  196.   combobox1.Items.Add('案卷状态');
  197.   combobox1.Items.Add('案卷类别');
  198.   combobox1.Items.Add('年代号');
  199.   combobox1.Items.Add('用户名');
  200.   combobox1.Items.Add('密级');
  201.   combobox1.Items.Add('保管期限');
  202.   combobox1.Items.Add('档号');
  203.   combobox1.Items.Add('编制起始日期');
  204.   combobox1.Items.Add('编制结束日期');
  205.   combobox1.Items.Add('归档起始日期');
  206.   combobox1.Items.Add('归档结束日期');
  207.   combobox1.Items.Add('立卷人');
  208.   combobox1.Items.Add('检查人');
  209.   combobox1.Items.Add('微缩号');
  210.   combobox1.Items.Add('库位');
  211.   combobox1.Items.Add('主题词');
  212.   combobox1.Items.Add('责任者');
  213. end;
  215. procedure Tam_gdAjcx.ComboBox2Change(Sender: TObject);
  216. begin
  217.  if (combobox1.Text='编制起始日期')or(combobox1.Text='编制结束日期')
  218.      or(combobox1.Text='归档起始日期')or(combobox1.Text='归档结束日期') then
  219.    begin
  220.     DBDateTimeEditEh1.Visible:=true;
  221.     edit1.Visible:=false;
  222.    end
  223.  else
  224.    begin
  225.     DBDateTimeEditEh1.Visible:=false;
  226.     edit1.Visible:=true;
  227.    end;
  228. end;
  230. procedure Tam_gdAjcx.Edit1KeyPress(Sender: TObject; var Key: Char);
  231. begin
  232.  if combobox1.Text='年代号' then
  233.   begin
  234.     if not(key in ['0'..'9',#8,#13]) then
  235.      begin
  236.        key:=#0;
  237.        application.MessageBox('请输入整数','提示',mb_ok+mb_iconinformation);
  238.        exit;
  239.      end;
  240.   end;
  241. end;
  243. procedure Tam_gdAjcx.FormClose(Sender: TObject; var Action: TCloseAction);
  244. begin
  245.  action:=cafree;
  246.  am_gdajcx:=Nil;
  247.  Clientdataset1.Active:=false;
  248. end;
  250. end.