u_modify.pas

来自「以多个信息系统为例」· PAS 代码 · 共 67 行

unit u_modify;

interface

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

type
  TF_modify = class(TForm)
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    i_room_id: TMaskEdit;
    GroupBox1: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    i_id: TDBText;
    i_place: TDBEdit;
    i_level: TDBLookupComboBox;
    i_state: TDBLookupComboBox;
    i_remark: TDBMemo;
    o_price: TDBText;
    o_furnish: TDBMemo;
    o_roommate: TDBGrid;
    B_filter: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure B_filterClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_modify: TF_modify;

implementation

uses u_data, u_main;
{$R *.DFM}

procedure TF_modify.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM_main.OpenModifyRoom(False);
  Action:=caFree;
  F_main.RoomModify.Enabled:=True;
end;

procedure TF_modify.FormCreate(Sender: TObject);
begin
  DM_main.OpenModifyRoom(True);
end;

procedure TF_modify.B_filterClick(Sender: TObject);
begin
  DM_main.SetModifyFilter(Trim(i_room_id.Text));
end;

end.