danweichaxun.pas

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

unit DanWeiChaXun;

interface

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

type
  TFormdanwei = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Edit1: TEdit;
    ButtonStatic: TButton;
    ButtonClose: TButton;
    DBGrid1: TDBGrid;
    QueryDanwei: TQuery;
    QueryDanweilease_comp_name: TStringField;
    QueryDanweicar_type: TStringField;
    QueryDanweibegin_date: TDateTimeField;
    QueryDanweireal_return_date: TDateTimeField;
    QueryDanweireturn_date: TDateTimeField;
    QueryDanweinote: TStringField;
    DataSourceDanWei: TDataSource;
    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
{$R *.DFM}
Uses Login;

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
   QueryDanWei.active:=False;
   with  QueryDanWei do
     begin
       parambyname('company').asstring:=edit1.text;
       parambyname('code').asstring:=Login.CodeComp;
     end;
   queryDanWei.prepare;
   queryDanWei.active:=True;
end;

procedure TFormdanwei.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   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.