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

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

Delphi控件源码

开发平台：

Delphi

Am_Yjcxs.~pas：源码内容
  1. unit Am_Yjcxs;
  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_Yjcx = 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 SpeedButton2Click(Sender: TObject);
  30.     procedure BitBtn1Click(Sender: TObject);
  31.     procedure SpeedButton1Click(Sender: TObject);
  32.     procedure ComboBox1Change(Sender: TObject);
  33.     procedure ComboBox2Change(Sender: TObject);
  34.     procedure ComboBox3Change(Sender: TObject);
  35.     procedure FormCreate(Sender: TObject);
  36.     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  37.   private
  38.     { Private declarations }
  39.   public
  40.     { Public declarations }
  41.   end;
  43. var
  44.   Am_Yjcx: TAm_Yjcx;
  45.   str,s_zdm,s_logic,s_tj:string;//查找字符串,字段名
  46. Const ss:array [0..6] of string=('aj_ndh','ajlb_mc','aj_dh','ajyj_yjr','ajyj_yjdw','ajyj_jsdw','ajyj_yjrq');
  47. implementation
  49. uses DMs;
  51. {$R *.dfm}
  53. procedure TAm_Yjcx.BitBtn2Click(Sender: TObject);
  54. begin
  55.  Close;
  56. end;
  58. procedure TAm_Yjcx.SpeedButton2Click(Sender: TObject);
  59. begin
  60.  combobox1.ItemIndex:=-1;
  61.  combobox2.ItemIndex:=-1;
  62.  edit1.Text:='';
  63.  combobox3.ItemIndex:=-1;
  64.  edit2.text:='';
  65. end;
  67. procedure TAm_Yjcx.BitBtn1Click(Sender: TObject);
  68. var S_Edit,Hint:string;
  69. begin
  70.  S_Edit:=Edit2.Text;
  71.  if trim(Combobox1.Text)='' then
  72.    begin
  73.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  74.     exit;
  75.    end;
  76.  if trim(Combobox2.Text)='' then
  77.    begin
  78.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  79.     exit;
  80.    end;
  81.  //----------------------------------
  82.  if trim(Edit2.Text)='' then
  83.   begin
  84.     if Combobox2.Text='模糊查询' then
  85.      str:=s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  86.     else
  87.      str:=s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  88.   end
  89.  else
  90.   begin
  91.     if Combobox2.Text='模糊查询' then
  92.        str:=s_Edit+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  93.     else if (combobox1.Text='移交日期')then
  94.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''
  95.     else
  96.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  97.   end;
  98.  //---------------------------------
  99.   showmessage(str);
  100.   ClientDataSet1.Close;
  101.   ClientDataSet1.CommandText:='select * from V_YJDY where '+str;
  102.   ClientDataSet1.Open;
  103.   DM.V_YJDY.active:=false;
  104.   DM.V_YJDY.active:=true;
  105.   DM.V_YJDY.Data:=ClientDataSet1.Data;
  106.   if Clientdataset1.RecordCount=0 then
  107.      application.MessageBox('没有找到符合条件的纪录','提示',mb_ok+mb_iconinformation)
  108.   else
  109.    begin
  110.      Hint:='当前表中有'+IntToStr(Clientdataset1.RecordCount)+'条记录符合条件';
  111.      application.MessageBox(Pchar(hint),'提示',mb_ok+mb_iconinformation);
  112.    end;
  113. end;
  115. procedure TAm_Yjcx.SpeedButton1Click(Sender: TObject);
  116. begin
  117. s_logic:='';
  118.  if trim(Combobox1.Text)='' then
  119.    begin
  120.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  121.     exit;
  122.    end;
  123.  if trim(Combobox2.Text)='' then
  124.    begin
  125.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  126.     exit;
  127.    end;
  128.    //有效性验证
  129.  case combobox3.ItemIndex of
  130.   0:  s_logic:=' and ';
  131.   1:  s_logic:=' or ';
  132.  end;
  133.  if Combobox2.Text='模糊查询' then
  134.   begin
  135.    Edit2.Text:=Edit2.Text+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+s_logic+' ';
  136.    //Edit3.Text:=Edit3.Text+combobox1.Text+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+combobox3.Text+' ';
  137.   end
  138.  else if (combobox1.Text='移交日期')then
  139.   begin
  140.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''+' '+s_logic+' ';
  141.    //Edit3.Text:=Edit3.Text+combobox1.Text+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''+' '+combobox3.Text+' ';
  142.   end
  143.  else
  144.   begin
  145.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+s_logic+' ';
  146.    //Edit3.Text:=Edit3.Text+combobox1.Text+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+combobox3.Text+' ';
  147.   end;
  148.  combobox1.ItemIndex:=-1;
  149.  combobox2.ItemIndex:=-1;
  150.  edit1.Text:='';
  151.  combobox3.ItemIndex:=-1;
  152.  SpeedButton1.Enabled:=false;
  153. end;
  155. procedure TAm_Yjcx.ComboBox1Change(Sender: TObject);
  156. begin
  157.   s_zdm:=ss[combobox1.itemindex];//以上是获得下拉框中的值
  158.  if (combobox1.Text='年代号') or (combobox1.Text='移交日期')then
  159.    begin
  160.      Combobox2.Clear;
  161.      Combobox2.Items.Add('=');
  162.      Combobox2.Items.Add('<');
  163.      Combobox2.Items.Add('<=');
  164.      Combobox2.Items.Add('>=');
  165.      Combobox2.Items.Add('>');
  166.      Combobox2.Items.Add('<>');
  167.    end
  168.   else
  169.    begin
  170.     combobox2.Clear;
  171.     combobox2.Items.Add('=');
  172.     combobox2.Items.Add('<>');
  173.     combobox2.Items.Add('模糊查询');
  174.    end;  
  175. end;
  177. procedure TAm_Yjcx.ComboBox2Change(Sender: TObject);
  178. begin
  179.  s_tj:='';
  180.  if (combobox1.Text='移交日期')then
  181.    begin
  182.     DBDateTimeEditEh1.Visible:=true;
  183.     edit1.Visible:=false;
  184.    end
  185.  else
  186.    begin
  187.     DBDateTimeEditEh1.Visible:=false;
  188.     edit1.Visible:=true;
  189.    end;
  190. end;
  192. procedure TAm_Yjcx.ComboBox3Change(Sender: TObject);
  193. begin
  194. if trim(Combobox1.Text)='' then
  195.    begin
  196.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  197.     exit;
  198.    end;
  199.  if trim(Combobox2.Text)='' then
  200.    begin
  201.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  202.     exit;
  203.    end;
  204.  s_logic:='';
  205.  case combobox3.ItemIndex of
  206.   0:  s_logic:=' and ';
  207.   1:  s_logic:=' or ';
  208.  end;
  209.  SpeedButton1.Enabled:=true;
  210. end;
  212. procedure TAm_Yjcx.FormCreate(Sender: TObject);
  213. begin
  214.  Combobox1.Clear;
  215.  combobox1.Items.add('年代号');
  216.  Combobox1.Items.Add('案卷类别');
  217.  combobox1.Items.add('档号');
  218.  Combobox1.Items.Add('移交人');
  219.  combobox1.Items.add('移交单位');
  220.  Combobox1.Items.Add('接收单位');
  221.  combobox1.Items.add('移交日期');
  222. end;
  225. procedure TAm_Yjcx.Edit1KeyPress(Sender: TObject; var Key: Char);
  226. begin
  227.  if combobox1.text='年代号' then
  228.   begin
  229.    if not(key in['0'..'9',#8,#13]) then
  230.      begin
  231.       key:=#0;
  232.       application.MessageBox('请输入数据数字','提示',mb_ok+mb_iconinformation);
  233.       exit;
  234.      end;
  235.   end;
  236. end;
  238. end.