u_room_base.pas

超信人力资源管理系统,一个用Delphi编写的人事管理系统

unit U_Room_base;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, U_base, DB, ADODB, StdCtrls, Buttons, ExtCtrls, Mask, DBCtrls,
  Grids, DBGridEh, wwdbedit, Wwdotdot, Wwdbcomb;

type
  TF_Room_base = class(TF_base)
    Panel2: TPanel;
    DBGridEh1: TDBGridEh;
    Q_mainRooID: TStringField;
    Q_maintype: TStringField;
    Q_mainMantype: TStringField;
    Q_mainPlace: TStringField;
    Q_mainRoommanager: TStringField;
    Q_mainBedcount: TIntegerField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    DBEdit6: TDBEdit;
    Label7: TLabel;
    DBEdit7: TDBEdit;
    wwDBComboBox1: TwwDBComboBox;
    wwDBComboBox2: TwwDBComboBox;
    procedure FormShow(Sender: TObject);
    procedure wwDBComboBox1Enter(Sender: TObject);
    procedure wwDBComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Room_base: TF_Room_base;

implementation

uses U_data;

{$R *.dfm}



procedure TF_Room_base.FormShow(Sender: TObject);
begin
  inherited;
Q_main.Open;
end;

procedure TF_Room_base.wwDBComboBox1Enter(Sender: TObject);
begin
  inherited;
SET_WWCOM(TwwDBCOMBOBOX(sender), name + '-' + TwwDBCOMBOBOX(sender).NAME);
end;

procedure TF_Room_base.wwDBComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  inherited;
  if key <> 112 then EXIT;
SET_COM_ITEM(name + '-' + TWWDBCOMBOBOX(sender).NAME, 'TB_Employ', TWWDBCOMBOBOX(SENDER).DATAFIELD);
SET_WWCOM(TwwDBCOMBOBOX(sender), name + '-' + TwwDBCOMBOBOX(sender).NAME);
end;

initialization
  RegisterClass(TF_Room_base);

end.