⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit9.pas

📁 一个小型的职工管理系统希望大家多多指教!基本功能已经实现
💻 PAS
字号:
🔍 
unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ADODB, ComCtrls;

type
  TForm9 = class(TForm)
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    GroupBox1: TGroupBox;
    RadioGroup1: TRadioGroup;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit16: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    Button2: TButton;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    ComboBox3: TComboBox;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    StatusBar1: TStatusBar;
    ADOQuery1jnum: TStringField;
    ADOQuery1jname: TStringField;
    ADOQuery1jsex: TStringField;
    ADOQuery1jbron: TStringField;
    ADOQuery1jadr: TStringField;
    ADOQuery1jnation: TStringField;
    ADOQuery1jshen: TStringField;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;
  temp:longint;

implementation

{$R *.dfm}

procedure TForm9.RadioButton1Click(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='select * from t_jiben ';
ADOquery1.Close;
ADoquery1.SQL.Clear;
ADOquery1.SQL.Add(sqlstr);
ADOquery1.Open;
edit1.Enabled :=true;
edit2.Enabled :=true;
ComboBox1.Enabled :=true;
edit4.Enabled :=true;
edit5.Enabled :=true;
edit6.Enabled :=true;
edit7.Enabled :=true;
ComboBox2.Enabled :=false;
edit9.Enabled :=false;
edit10.Enabled :=false;
edit11.Enabled :=false;
ComboBox3.Enabled :=false;
edit13.Enabled :=false;
edit14.Enabled :=false;
ComboBox3.Enabled :=false;
edit16.Enabled :=false;
ComboBox4.Enabled :=false;
edit1.Color :=clWindow;
edit2.Color :=clWindow;
ComboBox1.Color :=clWindow;
edit4.Color :=clWindow;
edit5.Color :=clWindow;
edit6.Color :=clWindow;
edit7.Color :=clWindow;
ComboBox2.Color :=clMenuBar;
edit9.Color :=clMenuBar;
edit10.Color :=clMenuBar;
edit11.Color :=clMenuBar;
ComboBox3.Color :=clMenuBar;
edit13.Color :=clMenuBar;
edit14.Color :=clMenuBar;
ComboBox4.Color :=clMenuBar;
edit16.Color :=clMenuBar;
ComboBox5.Color :=clMenuBar;
temp:=1;
end ;

procedure TForm9.RadioButton2Click(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='select * from t_xueli ';
ADOquery1.Close;
ADoquery1.SQL.Clear;
ADOquery1.SQL.Add(sqlstr);
ADOquery1.Open;
edit1.Enabled :=true;
edit2.Enabled :=false;
ComboBox1.Enabled :=false;
edit4.Enabled :=false;
edit5.Enabled :=false;
edit6.Enabled :=false;
edit7.Enabled :=false;
ComboBox2.Enabled :=true;
edit9.Enabled :=true;
edit10.Enabled :=true;
edit11.Enabled :=true;
ComboBox3.Enabled :=false;
edit13.Enabled :=false;
edit14.Enabled :=false;
ComboBox4.Enabled :=false;
edit16.Enabled :=false;
ComboBox5.Enabled :=false;
edit1.Color :=clWindow;
edit2.Color :=clMenuBar;
ComboBox1.Color :=clMenuBar;
edit4.Color :=clMenuBar;
edit5.Color :=clMenuBar;
edit6.Color :=clMenuBar;
edit7.Color :=clMenuBar;
ComboBox2.Color :=clWindow;
edit9.Color :=clWindow;
edit10.Color :=clWindow;
edit11.Color :=clWindow;
ComboBox3.Color :=clMenuBar;
edit13.Color :=clMenuBar;
edit14.Color :=clMenuBar;
ComboBox4.Color :=clMenuBar;
edit16.Color :=clMenuBar;
ComboBox5.Color :=clMenuBar;
temp:=2;
end ;

procedure TForm9.RadioButton3Click(Sender: TObject);

var
sqlstr:string;
begin
sqlstr:='select * from t_zhigong ';
ADOquery1.Close;
ADoquery1.SQL.Clear;
ADOquery1.SQL.Add(sqlstr);
ADOquery1.Open;
edit1.Enabled :=true;
edit2.Enabled :=false;
ComboBox1.Enabled :=false;
edit4.Enabled :=false;
edit5.Enabled :=false;
edit6.Enabled :=false;
edit7.Enabled :=false;
ComboBox2.Enabled :=false;
edit9.Enabled :=false;
edit10.Enabled :=false;
edit11.Enabled :=false;
ComboBox3.Enabled :=true;
edit13.Enabled :=true;
edit14.Enabled :=true;
ComboBox4.Enabled :=false;
edit16.Enabled :=false;
ComboBox5.Enabled :=false;
edit1.Color :=clWindow;
edit2.Color :=clMenuBar;
ComboBox1.Color :=clMenuBar;
edit4.Color :=clMenuBar;
edit5.Color :=clMenuBar;
edit6.Color :=clMenuBar;
edit7.Color :=clMenuBar;
ComboBox2.Color :=clMenuBar;
edit9.Color :=clMenuBar;
edit10.Color :=clMenuBar;
edit11.Color :=clMenuBar;
ComboBox3.Color :=clWindow;
edit13.Color :=clWindow;
edit14.Color :=clWindow;
ComboBox4.Color :=clMenuBar;
edit16.Color :=clMenuBar;
ComboBox5.Color :=clMenuBar;
temp:=3;
end ;


procedure TForm9.RadioButton4Click(Sender: TObject);
var
sqlstr:string;
begin
sqlstr:='select * from t_home ';
ADOquery1.Close;
ADoquery1.SQL.Clear;
ADOquery1.SQL.Add(sqlstr);
ADOquery1.Open;
edit1.Enabled :=true;
edit2.Enabled :=false;
ComboBox1.Enabled :=false;
edit4.Enabled :=false;
edit5.Enabled :=false;
edit6.Enabled :=false;
edit7.Enabled :=false;
ComboBox2.Enabled :=false;
edit9.Enabled :=false;
edit10.Enabled :=false;
edit11.Enabled :=false;
ComboBox3.Enabled :=false;
edit13.Enabled :=false;
edit14.Enabled :=false;
ComboBox4.Enabled :=true;
edit16.Enabled :=true;
ComboBox5.Enabled :=true;
edit1.Color :=clWindow;
edit2.Color :=clMenuBar;
ComboBox1.Color :=clMenuBar;
edit4.Color :=clMenuBar;
edit5.Color :=clMenuBar;
edit6.Color :=clMenuBar;
edit7.Color :=clMenuBar;
ComboBox2.Color :=clMenuBar;
edit9.Color :=clMenuBar;
edit10.Color :=clMenuBar;
edit11.Color :=clMenuBar;
ComboBox3.Color :=clMenuBar;
edit13.Color :=clMenuBar;
edit14.Color :=clMenuBar;
ComboBox4.Color :=clWindow;
edit16.Color :=clWindow;
ComboBox5.Color :=clWindow;
temp:=4;
end ;




procedure TForm9.Button1Click(Sender: TObject);
var
sql:String;
begin

if temp=1 then
begin
form9.Caption:= '1';
 if(edit1.Text='')and(edit2.Text='')and(ComboBox1.Text='')and(edit4.Text='')and(edit5.Text='')and(edit6.Text='')and(edit7.Text='')then
 begin
 application.MessageBox('请输入查询内容','提示',mb_ok);
 exit;
 end
 else
 begin
 sql:='where(jnum like '''+'%'+edit1.Text+'%'')and(jname like '''+'%'+edit2.Text+'%'') and (jsex like '''+'%'+ComboBox1.Text+'%'') and (jbron like '''+'%'+edit4.Text+'%'') and( jadr like '''+'%'+edit5.Text+'%'')and( jnation like '''+'%'+edit6.Text+'%'')and( jshen like '''+'%'+edit7.Text+'%'')';
 ADOquery1.SQL.Clear;
 ADOquery1.Close;
 ADOquery1.SQL.Add('select * from t_jiben ');
 ADOquery1.SQL.Add(sql);
 MessageBox(handle,'查询完毕!','提示',MB_OK or MB_ICONINFORMATION);
 ADoquery1.Open;
 dbgrid1.Font.Color:=clteal;
end;
end

else if temp=2 then
begin
form9.Caption:= '2';
if(edit1.Text='')and(ComboBox2.Text='')and(edit9.Text='')and(edit10.Text='')and(edit11.Text='') then
 begin
 application.MessageBox('请输入查询内容','提示',mb_ok);
 exit;
 end
 else
 begin
 sql:='where(jnum like '''+'%'+edit1.Text+'%'')and(jxue like '''+'%'+ComboBox2.Text+'%'') and (jscho like '''+'%'+edit9.Text+'%'') and (jzh like '''+'%'+edit10.Text+'%'') and( jdate like '''+'%'+edit11.Text+'%'')';
 ADOquery1.SQL.Clear;
 ADOquery1.Close;
 ADOquery1.SQL.Add('select * from t_xueli ');
 ADOquery1.SQL.Add(sql);
 MessageBox(handle,'查询完毕!','提示',MB_OK or MB_ICONINFORMATION);
 ADoquery1.Open;
 dbgrid1.Font.Color:=clteal;
end;


end

else if temp=3 then
begin
form9.Caption:= '3';

if(edit1.Text='')and(ComboBox3.Text='')and(edit13.Text='')and(edit14.Text='') then
 begin
 application.MessageBox('请输入查询内容','提示',mb_ok);
 exit;
 end
 else
 begin
 sql:='where(jnum like '''+'%'+edit1.Text+'%'')and(jzhic like '''+'%'+ComboBox3.Text+'%'') and (jgongz like '''+'%'+edit13.Text+'%'') and (jcri like '''+'%'+edit14.Text+'%'')';
 ADOquery1.SQL.Clear;
 ADOquery1.Close;
 ADOquery1.SQL.Add('select * from t_zhigong ');
 ADOquery1.SQL.Add(sql);
 MessageBox(handle,'查询完毕!','提示',MB_OK or MB_ICONINFORMATION);
 ADoquery1.Open;
 dbgrid1.Font.Color:=clteal;
end;

end

else if temp=4 then
begin
form9.Caption:= '4';

if(edit1.Text='')and(ComboBox4.Text='')and(edit16.Text='')and(ComboBox5.Text='') then
 begin
 application.MessageBox('请输入查询内容','提示',mb_ok);
 exit;
 end
 else
 begin
 sql:='where(jnum like '''+'%'+edit1.Text+'%'')and(jma like '''+'%'+ComboBox4.Text+'%'') and (jpa like '''+'%'+edit16.Text+'%'') and (jsd like '''+'%'+ComboBox5.Text+'%'')';
 ADOquery1.SQL.Clear;
 ADOquery1.Close;
 ADOquery1.SQL.Add('select * from t_home ');
 ADOquery1.SQL.Add(sql);
 MessageBox(handle,'查询完毕!','提示',MB_OK or MB_ICONINFORMATION);
 ADoquery1.Open;
 dbgrid1.Font.Color:=clteal;
 end;

 end ;




end;




procedure TForm9.Button2Click(Sender: TObject);
begin
Close;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -