zhgl.pas.~1~

来自「Delphi数据库开发毕业设计指导及实例 一书的源码」· ~1~ 代码 · 共 68 行

unit zhgl;

interface

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

type
  Tzhgl_Form = class(TForm)
    Panel1: TPanel;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Table1: TTable;
    DataSource1: TDataSource;
    MPH_LEdit: TLabeledEdit;
    cmdok: TButton;
    cmdclose: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhgl_Form: Tzhgl_Form;

implementation

uses main;

{$R *.dfm}

procedure Tzhgl_Form.FormCreate(Sender: TObject);
begin
    Table1.Open;    
end;

procedure Tzhgl_Form.cmdokClick(Sender: TObject);
var
    mph:string;
begin
    mph:=trim(mph_ledit.Text);
    if length(mph) > 0 then
    begin
        table1.First;
        if not table1.Locate('mph', VarArrayOf([mph]), [loPartialKey]) then
            ShowMessage('没有找到对应门牌号的住户信息');
    end;
end;

procedure Tzhgl_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
    mainform.N31.Enabled:=true;
end;

procedure Tzhgl_Form.cmdcloseClick(Sender: TObject);
begin
    close;
end;

end.