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

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

Delphi控件源码

开发平台：

Delphi

xt_user_cxs.pas：源码内容
  1. unit xt_user_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.   Txt_user_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.     procedure ComboBox1Change(Sender: TObject);
  29.     procedure ComboBox3Change(Sender: TObject);
  30.     procedure SpeedButton1Click(Sender: TObject);
  31.     procedure SpeedButton2Click(Sender: TObject);
  32.     procedure BitBtn1Click(Sender: TObject);
  33.     procedure BitBtn2Click(Sender: TObject);
  34.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  35.     procedure FormCreate(Sender: TObject);
  36.   private
  37.     { Private declarations }
  38.   public
  39.     { Public declarations }
  40.   end;
  42. var
  43.   xt_user_cx: Txt_user_cx;
  44.   str,s_zdm,s_logic,s_tj:string;//查找字符串,字段名  
  45. Const ss:array[0..3] of string=('user_dm','user_name','user_ygdm','yg_xm');
  46. implementation
  48. uses DMs,U_public;
  50. {$R *.dfm}
  52. procedure Txt_user_cx.ComboBox1Change(Sender: TObject);
  53. begin
  54.   s_zdm:=ss[combobox1.itemindex];//以上是获得下拉框中的值
  55.   Combobox2.Clear;
  56.   combobox2.Items.add('=');
  57.   Combobox2.Items.add('<>');
  58.   Combobox2.Items.Add('模糊查询');
  59. end;
  61. procedure Txt_user_cx.ComboBox3Change(Sender: TObject);
  62. begin
  63. if trim(Combobox1.Text)='' then
  64.    begin
  65.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  66.     exit;
  67.    end;
  68.  if trim(Combobox2.Text)='' then
  69.    begin
  70.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  71.     exit;
  72.    end;
  73.  s_logic:='';
  74.  case combobox3.ItemIndex of
  75.   0:  s_logic:=' and ';
  76.   1:  s_logic:=' or ';
  77.  end;
  78.  SpeedButton1.Enabled:=true;
  79. end;
  81. procedure Txt_user_cx.SpeedButton1Click(Sender: TObject);
  82. begin
  83.  s_logic:='';
  84.  if trim(Combobox1.Text)='' then
  85.    begin
  86.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  87.     exit;
  88.    end;
  89.  if trim(Combobox2.Text)='' then
  90.    begin
  91.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  92.     exit;
  93.    end;
  94.    //有效性验证
  95.  case combobox3.ItemIndex of
  96.   0:  s_logic:=' and ';
  97.   1:  s_logic:=' or ';
  98.  end;
  99.  if Combobox2.Text='模糊查询' then
  100.    Edit2.Text:=Edit2.Text+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+s_logic+' '
  101.  else
  102.    Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+s_logic+' ';
  103.  combobox1.ItemIndex:=-1;
  104.  combobox2.ItemIndex:=-1;
  105.  edit1.Text:='';
  106.  combobox3.ItemIndex:=-1;
  107.  SpeedButton1.Enabled:=false;
  108. end;
  110. procedure Txt_user_cx.SpeedButton2Click(Sender: TObject);
  111. begin
  112.  combobox1.ItemIndex:=-1;
  113.  combobox2.ItemIndex:=-1;
  114.  edit1.Text:='';
  115.  combobox3.ItemIndex:=-1;
  116.  edit2.text:='';
  117. end;
  119. procedure Txt_user_cx.BitBtn1Click(Sender: TObject);
  120. var S_Edit,Hint:string;
  121. begin
  122.  S_Edit:=Edit2.Text;
  123.  if trim(Combobox1.Text)='' then
  124.    begin
  125.     application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
  126.     exit;
  127.    end;
  128.  if trim(Combobox2.Text)='' then
  129.    begin
  130.     application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
  131.     exit;
  132.    end;
  133.  //----------------------------------
  134.  if trim(Edit2.Text)='' then
  135.   begin
  136.     if Combobox2.Text='模糊查询' then
  137.      str:=s_zdm+' '+' like '+' '+''''+Encrypt(trim(edit1.Text))+'%'+''''
  138.     else
  139.      str:=s_zdm+' '+combobox2.Text+' '+''''+Encrypt(trim(edit1.Text))+'''';
  140.   end//单条查询
  141.  else
  142.   begin
  143.     if Combobox2.Text='模糊查询' then
  144.        str:=s_Edit+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
  145.     else
  146.        str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  147.   end;//多条查询
  148.  //---------------------------------
  149.   ClientDataSet1.Close;
  150.   ClientDataSet1.CommandText:='select * from Xt_User where '+str;
  151.   ClientDataSet1.Open;
  152.   dm.Xt_User.active:=false;
  153.   dm.Xt_User.active:=true;
  154.   dm.Xt_User.Data:=ClientDataSet1.Data;
  155.   if Clientdataset1.RecordCount=0 then
  156.      application.MessageBox('没有找到符合条件的纪录','提示',mb_ok+mb_iconinformation)
  157.   else
  158.    begin
  159.      Hint:='当前表中有'+IntToStr(Clientdataset1.RecordCount)+'条记录符合条件';
  160.      application.MessageBox(Pchar(hint),'提示',mb_ok+mb_iconinformation);
  161.    end;
  162. end;
  164. procedure Txt_user_cx.BitBtn2Click(Sender: TObject);
  165. begin
  166.  Close;
  167. end;
  169. procedure Txt_user_cx.FormClose(Sender: TObject; var Action: TCloseAction);
  170. begin
  171.  Clientdataset1.Active:=false;
  172.  action:=cafree;
  173.  xt_user_cx:=Nil;
  174. end;
  176. procedure Txt_user_cx.FormCreate(Sender: TObject);
  177. begin
  178.  Combobox1.Clear;
  179.  Combobox1.Items.add('用户代码');
  180.  Combobox1.Items.add('用户名');
  181.  Combobox1.Items.add('员工代码');
  182.  Combobox1.Items.add('员工姓名');
  183. end;
  185. end.