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

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

Delphi控件源码

开发平台：

Delphi

am_jygl_cxs.~pas：源码内容
  1. unit am_jygl_cxs;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, PZXQuery, DB, DBClient, Buttons, Mask, DBCtrlsEh,
  8.   ExtCtrls, ComCtrls;
  10. type
  11.   Tam_jygl_cx = class(TForm)
  12.     Panel1: TPanel;
  13.     Label1: TLabel;
  14.     Label2: TLabel;
  15.     Label3: TLabel;
  16.     Label4: TLabel;
  17.     ComboBox1: TComboBox;
  18.     ComboBox2: TComboBox;
  19.     DBDateTimeEditEh1: TDBDateTimeEditEh;
  20.     ComboBox3: TComboBox;
  21.     Edit1: TEdit;
  22.     Edit2: TEdit;
  23.     Panel2: TPanel;
  24.     BitBtn2: TSpeedButton;
  25.     BitBtn1: TSpeedButton;
  26.     SpeedButton1: TSpeedButton;
  27.     SpeedButton2: TSpeedButton;
  28.     procedure SpeedButton2Click(Sender: TObject);
  29.     procedure BitBtn1Click(Sender: TObject);
  30.     procedure BitBtn2Click(Sender: TObject);
  31.     procedure SpeedButton1Click(Sender: TObject);
  32.     procedure ComboBox3Change(Sender: TObject);
  33.     procedure ComboBox1Change(Sender: TObject);
  34.     procedure FormCreate(Sender: TObject);
  35.     procedure ComboBox2Change(Sender: TObject);
  36.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  37.     procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44. var
  45.   am_jygl_cx: Tam_jygl_cx;
  46.   str,s_zdm,s_logic,s_tj:string;//查找字符串,字段名
  47. Const ss:array [0..4] of string=('aj_xh','dz_dm','jy_jyrq','jy_jsr','jy_jyzt');
  48. implementation
  50. uses am_dz_ajxzs, DMs, am_jygls;
  52. {$R *.dfm}
  54. procedure Tam_jygl_cx.SpeedButton2Click(Sender: TObject);
  55. begin
  56.  combobox1.ItemIndex:=-1;
  57.  combobox2.ItemIndex:=-1;
  58.  edit1.Text:='';
  59.  combobox3.ItemIndex:=-1;
  60.  edit2.text:='';
  61. end;
  63. procedure Tam_jygl_cx.BitBtn1Click(Sender: TObject);
  64. var S_Edit,Hint:string;
  65. begin
  66.  S_Edit:=Edit2.Text;
  67.  if trim(Combobox1.Text)='' then
  68.    begin
  69.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  70.     exit;
  71.    end;
  72.  if trim(Combobox2.Text)='' then
  73.    begin
  74.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  75.     exit;
  76.    end;
  77.  //----------------------------------
  78.  if trim(Edit2.Text)='' then
  79.   begin
  80.     if Combobox2.Text='模糊查询' then
  81.      str:=s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  82.     else
  83.      str:=s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  84.   end
  85.  else
  86.   begin
  87.     if Combobox2.Text='模糊查询' then
  88.        str:=s_Edit+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  89.     else if combobox1.Text='借阅日期' then
  90.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''
  91.     else
  92.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  93.   end;
  94.  //---------------------------------
  95.   dm.v_jy.Close;
  96.   dm.v_jy.CommandText:='select * from V_Jy where '+str;
  97.   dm.v_jy.Open;
  98.   if dm.v_jy.RecordCount=0 then
  99.      application.MessageBox('没有找到符合条件的纪录','提示',mb_ok+mb_iconinformation)
  100.   else
  101.    begin
  102.      Hint:='当前表中有'+IntToStr(dm.v_jy.RecordCount)+'条记录符合条件';
  103.      application.MessageBox(Pchar(hint),'提示',mb_ok+mb_iconinformation);
  104.    end;
  105. end;
  107. procedure Tam_jygl_cx.BitBtn2Click(Sender: TObject);
  108. begin
  109.  Close;
  110. end;
  112. procedure Tam_jygl_cx.SpeedButton1Click(Sender: TObject);
  113. begin
  114.  s_logic:='';
  115.  if trim(Combobox1.Text)='' then
  116.    begin
  117.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  118.     exit;
  119.    end;
  120.  if trim(Combobox2.Text)='' then
  121.    begin
  122.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  123.     exit;
  124.    end;
  125.    //有效性验证
  126.  case combobox3.ItemIndex of
  127.   0:  s_logic:=' and ';
  128.   1:  s_logic:=' or ';
  129.  end;
  130.  if Combobox2.Text='模糊查询' then
  131.    Edit2.Text:=Edit2.Text+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+s_logic+' '
  132.  else if combobox1.Text='借阅日期' then
  133.   begin
  134.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''+' '+s_logic+' ';   end
  135.  else
  136.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+s_logic+' ';
  137.  combobox1.ItemIndex:=-1;
  138.  combobox2.ItemIndex:=-1;
  139.  edit1.Text:='';
  140.  combobox3.ItemIndex:=-1;
  141.  SpeedButton1.Enabled:=false;
  142. end;
  144. procedure Tam_jygl_cx.ComboBox3Change(Sender: TObject);
  145. begin
  146.  if trim(Combobox1.Text)='' then
  147.    begin
  148.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  149.     exit;
  150.    end;
  151.  if trim(Combobox2.Text)='' then
  152.    begin
  153.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  154.     exit;
  155.    end;
  156.  s_logic:='';
  157.  case combobox3.ItemIndex of
  158.   0:  s_logic:=' and ';
  159.   1:  s_logic:=' or ';
  160.  end;
  161.  SpeedButton1.Enabled:=true;
  162. end;
  164. procedure Tam_jygl_cx.ComboBox1Change(Sender: TObject);
  165. begin
  166.   s_zdm:=ss[combobox1.itemindex];//以上是获得下拉框中的值
  167.  if combobox1.Text='借阅日期' then
  168.    begin
  169.     combobox2.Clear;
  170.     combobox2.Items.Add('=');
  171.     combobox2.Items.Add('<>');
  172.     combobox2.Items.Add('<');
  173.     combobox2.Items.Add('>');
  174.     combobox2.Items.Add('>=');
  175.     combobox2.Items.Add('<=');
  176.    end
  177.   else
  178.    begin
  179.     combobox2.Clear;
  180.     combobox2.Items.Add('=');
  181.     combobox2.Items.Add('<>');
  182.     combobox2.Items.Add('模糊查询');
  183.    end;
  184. end;
  186. procedure Tam_jygl_cx.FormCreate(Sender: TObject);
  187. begin
  188.  Combobox1.Clear;
  189.  Combobox1.Items.Add('案卷序号');
  190.  Combobox1.Items.Add('读者代码');
  191.  Combobox1.Items.Add('借阅日期');
  192.  Combobox1.Items.Add('经手人');
  193.  Combobox1.Items.Add('归还状态');
  194. end;
  196. procedure Tam_jygl_cx.ComboBox2Change(Sender: TObject);
  197. begin
  198.  if combobox1.Text='借阅日期' then
  199.    begin
  200.     DBDateTimeEditEh1.Visible:=true;
  201.     edit1.Visible:=false;
  202.    end
  203.  else
  204.    begin
  205.     DBDateTimeEditEh1.Visible:=false;
  206.     edit1.Visible:=true;
  207.    end;
  208. end;
  210. procedure Tam_jygl_cx.FormClose(Sender: TObject; var Action: TCloseAction);
  211. begin
  212.  action:=cafree;
  213.  am_jygl_cx:=Nil;
  214. end;
  216. procedure Tam_jygl_cx.Edit1KeyPress(Sender: TObject; var Key: Char);
  217. begin
  218.  if combobox1.Text='案卷序号' then
  219.   begin
  220.     if not(key in ['0'..'9',#8,#13]) then
  221.      begin
  222.        key:=#0;
  223.        application.MessageBox('请输入整数','提示',mb_ok+mb_iconinformation);
  224.        exit;
  225.      end;
  226.   end;
  227. end;
  229. end.