unt_roomform.pas

酒店资源管理的软件

unit unt_RoomForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, Grids, DBGrids, DB, ADODB, Buttons,
  ExtCtrls,Jpeg;

type
  TRoomForm = class(TForm)
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    GroupBox1: TGroupBox;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    Panel1: TPanel;
    Image1: TImage;
    Label10: TLabel;
    ComboBox1: TComboBox;
    procedure BitBtn5Click(Sender: TObject);
    procedure ADOTable1AfterScroll(DataSet: TDataSet);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure Edit7Change(Sender: TObject);
    procedure Edit8Change(Sender: TObject);
    procedure Edit9Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure LoadFromTable();
  end;

var
  RoomForm: TRoomForm;

implementation
uses Main, unt_CheckUser;
{$R *.dfm}

procedure TRoomForm.LoadFromTable();
var
  cPicture,cPath: String;
begin
  Edit1.Text := mainForm.query1.fieldbyname('roomno').AsString;
  Edit2.Text := mainForm.query1.fieldbyname('roomplace').AsString;
  Edit3.Text := mainForm.query1.fieldbyname('roomclass').AsString;
  Edit4.Text := mainForm.query1.fieldbyname('roomprice').AsString;
  Edit5.Text := mainForm.query1.fieldbyname('roomgoods').AsString;
  Edit6.Text := mainForm.query1.fieldbyname('oper_date').AsString;
  Edit7.Text := mainForm.query1.fieldbyname('operator').AsString;
  Edit8.Text := mainForm.query1.fieldbyname('note1').AsString;
  Edit9.Text := mainForm.query1.fieldbyname('number1').AsString;
  CheckBox1.Checked := mainForm.query1.fieldbyname('keep_id').AsBoolean;
  CheckBox2.Checked := mainForm.query1.fieldbyname('use_id').AsBoolean;
  CheckBox3.Checked := mainForm.query1.fieldbyname('hour_id').AsBoolean;
  ComboBox1.Text := mainForm.query1.fieldbyname('roompicture').AsString;
  cPath := ExtractFilePath(ParamStr(0));
  cPath := ExpandFileName(cPATH + 'JPEG\'); //当前路径
  if ComboBox1.Text <> '' then
  begin
    cPicture:=cPath + TRIM(ComboBox1.Text);
    if FileExists(cPicture) then
     Image1.Picture.LoadFromFile(cPicture);
  end
  else
    Image1.Picture:=nil;
end;

procedure TRoomForm.BitBtn5Click(Sender: TObject);
begin
  RoomForm.Close;
end;

procedure TRoomForm.ADOTable1AfterScroll(DataSet: TDataSet);
var
  sSql: String;
begin
  sSql := 'select * from Room_manager where roomno=''' + DBGrid1.Fields[0].AsString + '''';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  LoadFromTable;
end;

procedure TRoomForm.FormShow(Sender: TObject);
var
  cPath,sSql:String;
  SearchREc:TSearchrec;
begin
  ADOTable1.Active := True;
  cPath := ExtractFilePath(ParamStr(0));
  cPath := ExpandFileName(cPATH + 'JPEG\'); //当前路径
  ComboBox1.Items.Clear;
  FindFirst(cPath + '*.*',faAnyFile,SearchRec);
  if (SearchREc.Name <> '.') and (SearchREc.Name<>'..') then
    ComboBox1.Items.Add(SearchRec.Name);
  while FindNext(SearchREc)=0 do
  begin
    if (SearchREc.Name <> '.') and (SearchREc.Name<>'..') then
      ComboBox1.Items.Add(SearchRec.Name);
  end;
  FindClose(SearchREc);
  sSql := 'select * from Room_manager';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  if mainForm.query1.RecordCount = 0 then
    BitBtn4.Enabled := False;
  BitBtn2.Enabled := False;
end;

procedure TRoomForm.ComboBox1Change(Sender: TObject);
var
  cPicture,cPath: String;
begin
  BitBtn2.Enabled := True;
  cPath := ExtractFilePath(ParamStr(0));
  cPath := ExpandFileName(cPATH + 'JPEG\'); //当前路径
  if ComboBox1.Text <> '' then
  begin
    cPicture:=cPath + TRIM(ComboBox1.Text);
    if FileExists(cPicture) then
     Image1.Picture.LoadFromFile(cPicture);
  end
  else
    Image1.Picture:=nil;
end;

procedure TRoomForm.BitBtn3Click(Sender: TObject);
begin
  Edit1.Text := '';
  Edit2.Text := '';
  Edit3.Text := '';
  Edit4.Text := '';
  Edit5.Text := '';
  Edit6.Text := '';
  Edit7.Text := '';
  Edit8.Text := '';
  Edit9.Text := '';
  CheckBox1.Checked := False;
  CheckBox2.Checked := False;
  CheckBox3.Checked := False;
  ComboBox1.Text := '';
  Image1.Picture := nil;
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.BitBtn4Click(Sender: TObject);
var
  sSql: String;
begin
  sSql := 'delete from Room_manager where roomno=''' + Edit1.Text + '''';
  mainForm.exeSql(mainForm.query1,sSql,'2');
  ShowMessage('删除记录成功');
  ADOTable1.Active := False;
  ADOTable1.Active := True;
end;

procedure TRoomForm.Edit1Change(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.Edit2Change(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.Edit3Change(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.Edit4Change(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.Edit5Change(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.Edit6Change(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.Edit7Change(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.Edit8Change(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.Edit9Change(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.CheckBox1Click(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.CheckBox2Click(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.CheckBox3Click(Sender: TObject);
begin
  BitBtn2.Enabled := True;
end;

procedure TRoomForm.BitBtn2Click(Sender: TObject);
var
  sSql,i,j,k: String;
begin
  i := '0';
  j := '0';
  k := '0';
  if CheckBox1.Checked then
    i := '1';
  if CheckBox2.Checked then
    j := '1';
  if CheckBox3.Checked then
    k := '1';
  sSql := 'select * from Room_manager where roomno=''' + Edit1.Text + '''';
  mainForm.exeSql(mainForm.query1,sSql,'1');
  if mainForm.query1.RecordCount = 0 then
  begin
    sSql := 'insert into Room_manager values(' + Edit1.Text + ',''' + Edit2.Text
          + ''',''' + Edit3.Text + ''',' + Edit4.Text + ',''' + ComboBox1.Text
          + ''',''' + Edit5.Text + ''',' + Edit9.Text + ',''' + Edit8.Text
          + ''',' + i + ',' + j + ',' + k + ',#' + FormatDateTime('yyyy-mm-dd',Now)
          + '#,''' + Main.username + ''')';
  end
  else
  begin
    sSql := 'update Room_manager set roomplace=''' + Edit2.Text + ''',roomclass='''
          + Edit3.Text + ''',roomprice=' + Edit4.Text + ',roompicture='''
          + ComboBox1.Text + ''',roomgoods=''' + Edit5.Text + ''',number1='
          + Edit9.Text + ',note1=''' + Edit8.Text + ''',keep_id=' + i +',use_id='
          + j + ',hour_id=' + k + ',oper_date=''' + FormatDateTime('yyyy-mm-dd',Now)
          + ''',operator=''' + Main.username
          + ''' where roomno=''' + Edit1.Text + '''';
  end;
  mainForm.exeSql(mainForm.query1,sSql,'2');
  ShowMessage('修改成功');
  ADOTable1.Active := False;
  ADOTable1.Active := True;
end;

end.