companyquery.pas

本系统为演示Delphi的功能而开发设计

unit companyquery;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls;

type
  TFormdanwei = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit1: TEdit;
    ButtonStatic: TButton;
    ButtonClose: TButton;
    DBGrid1: TDBGrid;
    procedure ButtonCloseClick(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure ButtonStaticClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Formdanwei: TFormdanwei;
  company:string;

implementation
uses huaxia;

{$R *.DFM}

procedure TFormdanwei.ButtonCloseClick(Sender: TObject);
begin
   close;
end;

procedure TFormdanwei.RadioButton3Click(Sender: TObject);
begin
   label1.caption:='单位名称';
end;

procedure TFormdanwei.RadioButton4Click(Sender: TObject);
begin
   label1.caption:='单位代码';
end;

procedure TFormdanwei.ButtonStaticClick(Sender: TObject);
begin
   Huaxiadata.QueryDanWei.active:=False;
   with  Huaxiadata.QueryDanWei do
     begin
       parambyname('company').asstring:=edit1.text;
     end;
   huaxiadata.queryDanWei.prepare;
   huaxiadata.queryDanWei.active:=True;
end;

procedure TFormdanwei.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   huaxiadata.queryDanWei.active:=False;
   edit1.text:='';
   label1.caption:='单位名称';
   radiobutton3.checked:=True;
end;

procedure TFormdanwei.FormKeyPress(Sender: TObject; var Key: Char);
begin
If key=#13 then { 判断是按执行键}
 Begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 End;
end;

end.