【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了Fjsr.pas提供大家参考,希望对大家有所帮助!
unit Fjsr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Fbase, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, ToolWin,
ComCtrls;
type
TF_jsr = class(TF_base)
ToolBar1: TToolBar;
SpeedButton2: TSpeedButton;
SpeedButton1: TSpeedButton;
ComboBox1: TComboBox;
Edit1: TEdit;
DBGrid1: TDBGrid;
SpeedButton3: TSpeedButton;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_jsr: TF_jsr;
implementation
uses Fusers,Fdm,Fjhd,Fzct, Fjhthd,Fxsd, Fxsthd, Fzyxx,Ffk, Fsk,Fxjfy,Fybfy;
{$R *.dfm}
procedure TF_jsr.SpeedButton2Click(Sender: TObject);
begin
inherited;
if F_zct.wf=1 then
F_jhd.Edit4.Text:=Adoquery1.Fields[1].AsString;
if F_zct.wf=2 then
F_jhthd.Edit4.Text:=Adoquery1.Fields[1].AsString;
if F_zct.wf=3 then
F_xsd.Edit4.Text:=adoquery1.Fields[1].AsString;
if F_zct.wf=4 then
F_xsthd.Edit4.Text:=adoquery1.Fields[1].AsString;
if F_zct.wf=5 then
F_zyxx.Edit2.Text:=adoquery1.Fields[1].AsString;
if F_zct.wf=6 then
F_fk.Edit4.Text:=adoquery1.Fields[1].AsString;
if F_zct.wf=7 then
F_sk.Edit4.Text:=adoquery1.Fields[1].AsString;
if F_zct.wf=8 then
F_xjfy.Edit3.Text:=Adoquery1.Fields[1].AsString;
if F_zct.wf=9 then
F_ybfy.Edit4.Text:=Adoquery1.Fields[1].AsString;
if F_zct.wf=10 then
begin
F_users.Edit1.Text:=Adoquery1.Fields[0].AsString;
F_users.Edit2.Text:=Adoquery1.Fields[1].AsString;
end;
Close;
end;
procedure TF_jsr.SpeedButton3Click(Sender: TObject);
var
searchwhat:string;
begin
inherited;
searchwhat:='';
case combobox1.ItemIndex of
0: searchwhat:='employecode';
1: searchwhat:='fullname';
2: searchwhat:='name';
3: searchwhat:='shortcode';
end;
try
with ADoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from tb_employ ');
SQL.Add('where '+''+searchwhat+''+' like :a');
parameters.ParamByName('a').Value:='%'+Trim(Edit1.Text)+'%';
open;
end;
if Application.MessageBox('是否刷新表?','提示',mb_yesno)=Id_yes then
with ADoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from tb_employ order by employecode asc');
open;
end;
except
Application.MessageBox('请正确输入条件','提示',mb_ok);
end;
end;
procedure TF_jsr.FormShow(Sender: TObject);
begin
inherited;
with ADoquery1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from tb_employ order by employecode asc');
open;
end;
end;
procedure TF_jsr.SpeedButton1Click(Sender: TObject);
begin
inherited;
close;
end;
procedure TF_jsr.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
inherited;
if key=13 then speedbutton2.Click;
end;
end.