uroomsetupfrm.pas

来自「很不错的客房管理软件.第9次改版正式开通.每日更新.」· PAS 代码 · 共 108 行

unit URoomSetupFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
  TRoomSetupFrm = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Label2: TLabel;
    Edit1: TEdit;
    Label3: TLabel;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel1: TBevel;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    FRType: Integer;
    FDWMCh: string;
    { Private declarations }
  public
    { Public declarations }
  end;

  function GetRoomInfo(var iID: Integer; var sName, sDesc: string):Boolean;

var
  RoomSetupFrm: TRoomSetupFrm;

implementation

uses UDM, ItsLibrary;

{$R *.dfm}

function GetRoomInfo(var iID: Integer; var sName, sDesc: string):Boolean;
begin
  Result:=False;
  with TRoomSetupFrm.Create(nil) do begin
    try
      FRType:=iID;
      Edit1.Text:=sName;
      Edit2.Text:=sDesc;
      Caption:=Format(Frm3Str, [FDWMCh]);
      if ShowModal=mrOK then begin
        iId:=Integer(ComboBox1.Items.Objects[ComboBox1.ItemIndex]);
        sName:=Edit1.Text;
        sDesc:=Edit2.Text;
        Result:=True;
      end;
    finally
      Free;
    end;
  end;
end;

procedure TRoomSetupFrm.FormShow(Sender: TObject);
var
  aStrings:TStrings;
  I, II:Integer;
begin
  I:=0;
  II:=0;
  aStrings:=ComboBox1.Items;
  aStrings.BeginUpdate;
  try
    aStrings.Clear;
    with TADOQuery.Create(Self) do begin
      try
        Connection:=DM.DataConn;
        SQL.Add('SELECT ID, RTYPE');
        SQL.Add('FROM TYPETAB');
        Active:=True;
        while not Eof do begin
          aStrings.AddObject(FieldByName('Rtype').AsString, TObject(Pointer(FieldByName('ID').AsInteger)));
          if FieldByName('ID').AsInteger=FRType then
            II:=I;
          Inc(I);
          Next;
        end;
      finally
        Free;
      end;
    end;
  finally
    aStrings.EndUpdate;
  end;
  ComboBox1.ItemIndex:=II;
end;

procedure TRoomSetupFrm.BitBtn1Click(Sender: TObject);
begin
  Edit1.Text:=Trim(Edit1.Text);
  if Edit1.Text='' then begin
    Application.MessageBox('客房名称不能为空。', '系统提示', 0 or MB_ICONINFORMATION);
    Edit1.SetFocus;
    Exit;
  end;
  ModalResult:=mrOK;
end;

end.