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

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