Delphi控件源码

开发平台：
Delphi

Am_Yjcxs.pas：源码内容
							unit Am_Yjcxs;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBClient, Buttons, StdCtrls, Mask, DBCtrlsEh, ExtCtrls;
type
  TAm_Yjcx = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    ComboBox3: TComboBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Panel2: TPanel;
    BitBtn2: TSpeedButton;
    BitBtn1: TSpeedButton;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    ClientDataSet1: TClientDataSet;
    procedure BitBtn2Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Am_Yjcx: TAm_Yjcx;
  str,s_zdm,s_logic,s_tj:string;//查找字符串,字段名
Const ss:array [0..6] of string=('aj_ndh','ajlb_mc','aj_dh','ajyj_yjr','ajyj_yjdw','ajyj_jsdw','ajyj_yjrq');
implementation
uses DMs;
{$R *.dfm}
procedure TAm_Yjcx.BitBtn2Click(Sender: TObject);
begin
 Close;
end;
procedure TAm_Yjcx.SpeedButton2Click(Sender: TObject);
begin
 combobox1.ItemIndex:=-1;
 combobox2.ItemIndex:=-1;
 edit1.Text:='';
 combobox3.ItemIndex:=-1;
 edit2.text:='';
end;
procedure TAm_Yjcx.BitBtn1Click(Sender: TObject);
var S_Edit,Hint:string;
begin
 S_Edit:=Edit2.Text;
 if trim(Combobox1.Text)='' then
   begin
    application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
    exit;
   end;
 if trim(Combobox2.Text)='' then
   begin
    application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
    exit;
   end;
 //----------------------------------
 if trim(Edit2.Text)='' then
  begin
    if Combobox2.Text='模糊查询' then
     str:=s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
    else
     str:=s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  end
 else
  begin
    if Combobox2.Text='模糊查询' then
       str:=s_Edit+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''
    else if (combobox1.Text='移交日期')then
       str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''
    else
       str:=s_Edit+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+'''';
  end;
 //---------------------------------
  ClientDataSet1.Close;
  ClientDataSet1.CommandText:='select * from V_YJDY where '+str;
  ClientDataSet1.Open;
  DM.V_YJDY.active:=false;
  DM.V_YJDY.active:=true;
  DM.V_YJDY.Data:=ClientDataSet1.Data;
  if Clientdataset1.RecordCount=0 then
     application.MessageBox('没有找到符合条件的纪录','提示',mb_ok+mb_iconinformation)
  else
   begin
     Hint:='当前表中有'+IntToStr(Clientdataset1.RecordCount)+'条记录符合条件';
     application.MessageBox(Pchar(hint),'提示',mb_ok+mb_iconinformation);
   end;
end;
procedure TAm_Yjcx.SpeedButton1Click(Sender: TObject);
begin
s_logic:='';
 if trim(Combobox1.Text)='' then
   begin
    application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
    exit;
   end;
 if trim(Combobox2.Text)='' then
   begin
    application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
    exit;
   end;
   //有效性验证
 case combobox3.ItemIndex of
  0:  s_logic:=' and ';
  1:  s_logic:=' or ';
 end;
 if Combobox2.Text='模糊查询' then
  begin
   Edit2.Text:=Edit2.Text+s_zdm+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+s_logic+' ';
   //Edit3.Text:=Edit3.Text+combobox1.Text+' '+' like '+' '+''''+trim(edit1.Text)+'%'+''''+' '+combobox3.Text+' ';
  end
 else if (combobox1.Text='移交日期')then
  begin
   Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''+' '+s_logic+' ';
   //Edit3.Text:=Edit3.Text+combobox1.Text+' '+combobox2.Text+' '+''''+DBDateTimeEditEh1.Text+''''+' '+combobox3.Text+' ';
  end
 else
  begin
   Edit2.Text:=Edit2.Text+s_zdm+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+s_logic+' ';
   //Edit3.Text:=Edit3.Text+combobox1.Text+' '+combobox2.Text+' '+''''+trim(edit1.Text)+''''+' '+combobox3.Text+' ';
  end;
 combobox1.ItemIndex:=-1;
 combobox2.ItemIndex:=-1;
 edit1.Text:='';
 combobox3.ItemIndex:=-1;
 SpeedButton1.Enabled:=false;
end;
procedure TAm_Yjcx.ComboBox1Change(Sender: TObject);
begin
  s_zdm:=ss[combobox1.itemindex];//以上是获得下拉框中的值
 if (combobox1.Text='年代号') or (combobox1.Text='移交日期')then
   begin
     Combobox2.Clear;
     Combobox2.Items.Add('=');
     Combobox2.Items.Add('<');
     Combobox2.Items.Add('<=');
     Combobox2.Items.Add('>=');
     Combobox2.Items.Add('>');
     Combobox2.Items.Add('<>');
   end
  else
   begin
    combobox2.Clear;
    combobox2.Items.Add('=');
    combobox2.Items.Add('<>');
    combobox2.Items.Add('模糊查询');
   end;  
end;
procedure TAm_Yjcx.ComboBox2Change(Sender: TObject);
begin
 s_tj:='';
 if (combobox1.Text='移交日期')then
   begin
    DBDateTimeEditEh1.Visible:=true;
    edit1.Visible:=false;
   end
 else
   begin
    DBDateTimeEditEh1.Visible:=false;
    edit1.Visible:=true;
   end;
end;
procedure TAm_Yjcx.ComboBox3Change(Sender: TObject);
begin
if trim(Combobox1.Text)='' then
   begin
    application.MessageBox('字段名称不能为空','提示',mb_ok+mb_iconinformation);
    exit;
   end;
 if trim(Combobox2.Text)='' then
   begin
    application.MessageBox('条件不能为空','提示',mb_ok+mb_iconinformation);
    exit;
   end;
 s_logic:='';
 case combobox3.ItemIndex of
  0:  s_logic:=' and ';
  1:  s_logic:=' or ';
 end;
 SpeedButton1.Enabled:=true;
end;
procedure TAm_Yjcx.FormCreate(Sender: TObject);
begin
 Combobox1.Clear;
 combobox1.Items.add('年代号');
 Combobox1.Items.Add('案卷类别');
 combobox1.Items.add('档号');
 Combobox1.Items.Add('移交人');
 combobox1.Items.add('移交单位');
 Combobox1.Items.Add('接收单位');
 combobox1.Items.add('移交日期');
end;
procedure TAm_Yjcx.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if combobox1.text='年代号' then
  begin
   if not(key in['0'..'9',#8,#13]) then
     begin
      key:=#0;
      application.MessageBox('请输入数据数字','提示',mb_ok+mb_iconinformation);
      exit;
     end;
  end;
end;
end.

						