u_room.pas

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

unit u_room;

interface

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

type
  TF_room = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    GroupBox1: TGroupBox;
    DBG_room_valid: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    RoomLevel: TListBox;
    Label3: TLabel;
    DBMemo1: TDBMemo;
    i_start_time: TDateTimePicker;
    i_end_time: TDateTimePicker;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    i_custom_id: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    o_name: TDBText;
    o_id_type: TDBText;
    o_addr: TDBMemo;
    o_remark: TDBMemo;
    GroupBox3: TGroupBox;
    B_new_book: TButton;
    Label10: TLabel;
    o_sheet_id: TLabel;
    DBG_book_list: TDBGrid;
    Label11: TLabel;
    o_sex: TDBRadioGroup;
    B_add_book: TButton;
    B_del_book: TButton;
    GroupBox4: TGroupBox;
    Label7: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    o_name2: TDBText;
    o_id_type2: TDBText;
    i_custom_id2: TEdit;
    o_addr2: TDBMemo;
    o_remark2: TDBMemo;
    o_sex2: TDBRadioGroup;
    Label16: TLabel;
    ScrollBox1: TScrollBox;
    o_id_copy: TDBImage;
    GroupBox5: TGroupBox;
    Label17: TLabel;
    o_sheet_id2: TLabel;
    Label19: TLabel;
    B_new_sheet: TButton;
    DBG_items: TDBGrid;
    B_add_sheet: TButton;
    B_del_sheet: TButton;
    DBG_book_list2: TDBGrid;
    Label20: TLabel;
    B_apply_book: TButton;
    Label18: TLabel;
    i_room: TEdit;
    Label21: TLabel;
    o_worksheet: TDBText;
    DBG_items_list: TDBGrid;
    procedure RoomLevelClick(Sender: TObject);
    procedure B_new_bookClick(Sender: TObject);
    procedure i_custom_idKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure B_del_bookClick(Sender: TObject);
    procedure B_add_bookClick(Sender: TObject);
    procedure i_custom_id2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure B_new_sheetClick(Sender: TObject);
    procedure B_add_sheetClick(Sender: TObject);
    procedure B_del_sheetClick(Sender: TObject);
    procedure B_apply_bookClick(Sender: TObject);
    procedure i_roomKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_room: TF_room;

implementation

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

procedure TF_room.RoomLevelClick(Sender: TObject);
begin
  DM_main.SetRoomValid(i_start_time.DateTime,
    i_end_time.DateTime, IntToStr(RoomLevel.ItemIndex));
end;

procedure TF_room.B_new_bookClick(Sender: TObject);
begin
  o_sheet_id.Caption:=DM_main.NewWorkSheet;
  DM_main.SetAddItemsFilter(o_sheet_id.Caption);
end;

procedure TF_room.i_custom_idKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
  begin
    if not DM_main.GetCustomInfo(i_custom_id.Text) then
    begin
      F_add_custom.SetID(i_custom_id.Text);
      F_add_custom.ShowModal;
    end;
  end;
end;

procedure TF_room.FormShow(Sender: TObject);
begin
  i_start_time.DateTime:=now;
  i_end_time.DateTime:=now;
  DM_main.GetRoomLevel(RoomLevel.Items);
  RoomLevel.ItemIndex:=0;
  RoomLevelClick(nil);
end;

procedure TF_room.B_del_bookClick(Sender: TObject);
begin
  DM_main.DeleteItems;
end;

procedure TF_room.B_add_bookClick(Sender: TObject);
begin
  DM_main.AddItems(o_sheet_id.Caption, i_custom_id.Text,
    i_start_time.DateTime, i_end_time.DateTime);
end;

procedure TF_room.i_custom_id2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=13 then
  begin
    if not DM_main.GetCustomInfo2(i_custom_id2.Text) then
    begin
      F_add_custom.SetID(i_custom_id2.Text);
      F_add_custom.ShowModal;
    end
    else
      DM_main.GetBookSheet(i_custom_id2.Text);
  end;
end;

procedure TF_room.B_new_sheetClick(Sender: TObject);
begin
  o_sheet_id2.Caption:=DM_main.NewWorkSheet;
  DM_main.SetAddItemsFilter2(o_sheet_id2.Caption);
end;

procedure TF_room.B_add_sheetClick(Sender: TObject);
begin
  DM_main.AddItems2(o_sheet_id2.Caption, i_custom_id2.Text,
    i_start_time.DateTime, i_end_time.DateTime);
end;

procedure TF_room.B_del_sheetClick(Sender: TObject);
begin
  DM_main.DeleteItems2;
end;

procedure TF_room.B_apply_bookClick(Sender: TObject);
var
  sheet_id:String;
begin
  sheet_id:=DM_main.ApplyBookSheet;
  o_sheet_id2.Caption:=sheet_id;
  DM_main.SetAddItemsFilter2(sheet_id);
end;

procedure TF_room.i_roomKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    DM_main.GetWorkSheet(i_room.Text);
end;

end.