inqure.pas

职工信息管理系统的源代码

unit inqure;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, DB, DBTables, StdCtrls, jpeg, ExtCtrls, Buttons;

type
  Tinqure1 = class(TForm)
    GroupBox2: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DataSource2: TDataSource;
    zgb: TTable;
    zgbBDEDesigner: TStringField;
    zgbBDEDesigner2: TStringField;
    zgbBDEDesigner3: TStringField;
    zgbDate: TDateField;
    zgbBDEDesigner4: TStringField;
    zgbBDEDesigner5: TStringField;
    DataSource4: TDataSource;
    zc: TTable;
    DataSource1: TDataSource;
    gzb: TTable;
    chang: TTable;
    changSj: TFloatField;
    changKg: TFloatField;
    changCd: TFloatField;
    DataSource3: TDataSource;
    bmb: TTable;
    bmbBDEDesigner: TStringField;
    bmbBDEDesigner2: TStringField;
    DBGrid4: TDBGrid;
    DBGrid3: TDBGrid;
    DBGrid2: TDBGrid;
    DBGrid1: TDBGrid;
    button2: TBitBtn;
    button3: TBitBtn;
    button1: TBitBtn;
    gzbBDEDesigner: TStringField;
    gzbBDEDesigner2: TStringField;
    gzbBDEDesigner3: TStringField;
    gzbBDEDesigner4: TStringField;
    gzbBDEDesigner5: TStringField;
    zcBDEDesigner: TStringField;
    zcBDEDesigner2: TStringField;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  inqure1: Tinqure1;

implementation
 uses quan;
{$R *.dfm}

procedure Tinqure1.RadioButton1Click(Sender: TObject);
begin
zgb.IndexName:='name';
end;

procedure Tinqure1.RadioButton2Click(Sender: TObject);
begin
zgb.IndexName:='';
end;

procedure Tinqure1.FormCreate(Sender: TObject);
begin
zgb.Active:=false;
zgb.DatabaseName:=s;
zgb.TableName:='zgb.db';
zgb.Active:=true;
zc.Active:=false;
zc.DatabaseName:=s;
zc.TableName:='zc.db';
zc.Active:=true;
gzb.Active:=false;
gzb.DatabaseName:=s;
gzb.TableName:='gzb.db';
gzb.Active:=true;
bmb.Active:=false;
bmb.DatabaseName:=s;
bmb.TableName:='bmb.db';
bmb.Active:=true;
chang.Active:=false;
chang.DatabaseName:=s;
chang.TableName:='chang.db';
chang.Active:=true;
RadioButton2.Checked:=true;
zgb.IndexName:='';
RadioButton3.Checked:=true;
end;

procedure Tinqure1.RadioButton4Click(Sender: TObject);
begin
RadioButton4.Checked:=true;
end;

procedure Tinqure1.RadioButton3Click(Sender: TObject);
begin
RadioButton3.Checked:=true;
end;

procedure Tinqure1.Button3Click(Sender: TObject);
begin
close;
end;

procedure Tinqure1.Button1Click(Sender: TObject);
var str:string;
begin
if RadioButton3.Checked=true then
begin
if RadioButton2.Checked=true then
begin
str:=inputbox('精确查询','请输入要查找的编号','');
if not zgb.FindKey([str]) then
 application.MessageBox('查找失败','信息',mb_ok+mb_iconinformation);
end
else
begin
str:=inputbox('精确查询','请输入要查找的姓名','');
if not zgb.FindKey([str]) then
 application.MessageBox('查找失败','信息',mb_ok+mb_iconinformation);
end;
end
else
begin
if RadioButton2.Checked=true then
begin
str:=inputbox('模糊查询','请输入要查找的编号','');
zgb.FindNearest([str]);
end
else
begin
str:=inputbox('模糊查询','请输入要查找的姓名','');
zgb.FindNearest([str]);
end;
end;
end;
procedure Tinqure1.Button2Click(Sender: TObject);
begin
qu.N26.Click;
end;

procedure Tinqure1.FormShow(Sender: TObject);
begin
zgb.Active:=false;
zgb.DatabaseName:=s;
zgb.TableName:='zgb.db';
zgb.Active:=true;
zc.Active:=false;
zc.DatabaseName:=s;
zc.TableName:='zc.db';
zc.Active:=true;
gzb.Active:=false;
gzb.DatabaseName:=s;
gzb.TableName:='gzb.db';
gzb.Active:=true;
bmb.Active:=false;
bmb.DatabaseName:=s;
bmb.TableName:='bmb.db';
bmb.Active:=true;
chang.Active:=false;
chang.DatabaseName:=s;
chang.TableName:='chang.db';
chang.Active:=true;
RadioButton2.Checked:=true;
zgb.IndexName:='';
RadioButton3.Checked:=true;
end;

procedure Tinqure1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 bmb.Active:=false;
 chang.Active:=false;
 zc.Active:=false;
 zgb.Active:=false;
end;

procedure Tinqure1.FormPaint(Sender: TObject);
var a,b:real;
i:integer;
begin
a:=clientheight/256;
b:=0;
for i:=255 downto 0 do
begin
canvas.Brush.Color:=$000000000+i*$10000;
canvas.FillRect(rect(0,round(b),clientwidth,round(a+b)));
b:=b+a;
end;
end;

end.