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

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

Delphi控件源码

开发平台：

Delphi

am_ghgl_cxs.~pas：源码内容
  1. unit am_ghgl_cxs;
  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_ghgl_cx = 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.     Edit3: TEdit;
  29.     procedure ComboBox1Change(Sender: TObject);
  30.     procedure ComboBox2Change(Sender: TObject);
  31.     procedure ComboBox3Change(Sender: TObject);
  32.     procedure SpeedButton2Click(Sender: TObject);
  33.     procedure SpeedButton1Click(Sender: TObject);
  34.     procedure BitBtn1Click(Sender: TObject);
  35.     procedure BitBtn2Click(Sender: TObject);
  36.     procedure FormCreate(Sender: TObject);
  37.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  44. var
  45.   am_ghgl_cx: Tam_ghgl_cx;
  46.   str,s_zdm,s_logic,s_tj:string;//查找字符串,字段名
  47. Const ss:array[0..5] of string=('dz_dm','dz_xm','aj_dh','jy_jyrq','jy_yhrq','jy_jyzt');
  49. implementation
  51. uses DMs;
  53. {$R *.dfm}
  55. procedure Tam_ghgl_cx.ComboBox1Change(Sender: TObject);
  56. begin
  57.  s_zdm:=ss[combobox1.itemindex];//以上是获得下拉框中的值
  58.  if (combobox1.Text='借阅日期')or (Combobox1.Text='应还日期')then
  59.    begin
  60.     combobox2.Clear;
  61.     combobox2.Items.Add('=');
  62.     combobox2.Items.Add('<>');
  63.     combobox2.Items.Add('<');
  64.     combobox2.Items.Add('>');
  65.     combobox2.Items.Add('>=');
  66.     combobox2.Items.Add('<=');
  67.    end
  68.   else
  69.    begin
  70.     combobox2.Clear;
  71.     combobox2.Items.Add('=');
  72.     combobox2.Items.Add('<>');
  73.     combobox2.Items.Add('模糊查询');
  74.    end;
  75. end;
  77. procedure Tam_ghgl_cx.ComboBox2Change(Sender: TObject);
  78. begin
  79.   if (combobox1.Text='借阅日期')or (Combobox1.Text='应还日期')then
  80.    begin
  81.     DBDateTimeEditEh1.Visible:=true;
  82.     edit1.Visible:=false;
  83.    end
  84.  else
  85.    begin
  86.     DBDateTimeEditEh1.Visible:=false;
  87.     edit1.Visible:=true;
  88.    end;
  89. end;
  91. procedure Tam_ghgl_cx.ComboBox3Change(Sender: TObject);
  92. begin
  93. if trim(Combobox1.Text)='' then
  94.    begin
  95.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  96.     exit;
  97.    end;
  98.  if trim(Combobox2.Text)='' then
  99.    begin
  100.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  101.     exit;
  102.    end;
  103.  s_logic:='';
  104.  case combobox3.ItemIndex of
  105.   0:  s_logic:=' and ';
  106.   1:  s_logic:=' or ';
  107.  end;
  108.  SpeedButton1.Enabled:=true;
  109. end;
  111. procedure Tam_ghgl_cx.SpeedButton2Click(Sender: TObject);
  112. begin
  113.  combobox1.ItemIndex:=-1;
  114.  combobox2.ItemIndex:=-1;
  115.  combobox3.ItemIndex:=-1;
  116.  edit1.Text:='';edit2.text:='';edit3.Text:='';
  117. end;
  119. procedure Tam_ghgl_cx.SpeedButton1Click(Sender: TObject);
  120. begin
  121.  s_logic:='';
  122.  if trim(Combobox1.Text)='' then
  123.    begin
  124.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  125.     exit;
  126.    end;
  127.  if trim(Combobox2.Text)='' then
  128.    begin
  129.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  130.     exit;
  131.    end;
  132.    //有效性验证
  133.  case combobox3.ItemIndex of
  134.   0:  s_logic:=' and ';
  135.   1:  s_logic:=' or ';
  136.  end;
  137.  if Combobox2.Text='模糊查询' then
  138.   begin
  139.    Edit2.Text:=Edit2.Text+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+s_logic+' ';
  140.    Edit3.Text:=Edit3.Text+combobox1.Text+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+combobox3.Text+' ';
  141.   end
  142.  else if (combobox1.Text='借阅日期')or (Combobox1.Text='应还日期')then
  143.   begin
  144.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''+' '+s_logic+' ';
  145.    Edit3.Text:=Edit3.Text+combobox1.Text+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''+' '+combobox3.Text+' ';
  146.   end
  147.  else
  148.   begin
  149.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+s_logic+' ';
  150.    Edit3.Text:=Edit3.Text+combobox1.Text+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+combobox3.Text+' ';
  151.   end;
  152.  combobox1.ItemIndex:=-1;
  153.  combobox2.ItemIndex:=-1;
  154.  edit1.Text:='';
  155.  combobox3.ItemIndex:=-1;
  156.  SpeedButton1.Enabled:=false;
  157. end;
  159. procedure Tam_ghgl_cx.BitBtn1Click(Sender: TObject);
  160. var S_Edit,Hint:string;
  161. begin
  162.  S_Edit:=Edit2.Text;
  163.  if trim(Combobox1.Text)='' then
  164.    begin
  165.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  166.     exit;
  167.    end;
  168.  if trim(Combobox2.Text)='' then
  169.    begin
  170.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  171.     exit;
  172.    end;
  173.  //----------------------------------
  174.  if trim(Edit2.Text)='' then
  175.   begin
  176.     if Combobox2.Text='模糊查询' then
  177.      str:=s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  178.     else
  179.      str:=s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  180.   end
  181.  else
  182.   begin
  183.     if Combobox2.Text='模糊查询' then
  184.        str:=s_Edit+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  185.     else if (combobox1.Text='借阅日期')or (Combobox1.Text='应还日期')then
  186.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''
  187.     else
  188.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  189.   end;
  190.  //---------------------------------
  191.   showmessage(str);
  192.   ClientDataSet1.Close;
  193.   ClientDataSet1.CommandText:='select * from V_GH where '+str;
  194.   ClientDataSet1.Open;
  195.   dm.V_GH.active:=false;
  196.   dm.V_GH.active:=true;
  197.   dm.V_GH.Data:=ClientDataSet1.Data;
  198.   if Clientdataset1.RecordCount=0 then
  199.      application.MessageBox('没有找到符合条件的纪录','提示',mb_ok+mb_iconinformation)
  200.   else
  201.    begin
  202.      Hint:='当前表中有'+IntToStr(Clientdataset1.RecordCount)+'条记录符合条件';
  203.      application.MessageBox(Pchar(hint),'提示',mb_ok+mb_iconinformation);
  204.    end;
  205. end;
  207. procedure Tam_ghgl_cx.BitBtn2Click(Sender: TObject);
  208. begin
  209.  Close;
  210. end;
  212. procedure Tam_ghgl_cx.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. end;
  223. procedure Tam_ghgl_cx.FormClose(Sender: TObject; var Action: TCloseAction);
  224. begin
  225.  Action:=cafree;
  226.  am_ghgl_cx:=nil;
  227. end;
  229. end.