subscribe.~pas

结于初学者来说这对数据库是一个很好的例子

unit subscribe;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Mask;

type
  TSubscribeRoom = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label14: TLabel;
    Label15: TLabel;
    RoomID: TEdit;
    Label13: TLabel;
    YD_name: TEdit;
    YD_sex: TComboBox;
    YD_zjlx: TComboBox;
    YD_zjbh: TEdit;
    YD_add: TEdit;
    Label16: TLabel;
    YD_rs: TMaskEdit;
    YD_time: TMaskEdit;
    YD_lxff: TEdit;
    Table1: TTable;
    Q_RoomInfo: TQuery;
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RoomIDKeyPress(Sender: TObject; var Key: Char);
    procedure YD_nameKeyPress(Sender: TObject; var Key: Char);
    procedure YD_sexKeyPress(Sender: TObject; var Key: Char);
    procedure YD_zjlxKeyPress(Sender: TObject; var Key: Char);
    procedure YD_zjbhKeyPress(Sender: TObject; var Key: Char);
    procedure YD_addKeyPress(Sender: TObject; var Key: Char);
    procedure YD_rsKeyPress(Sender: TObject; var Key: Char);
    procedure YD_timeKeyPress(Sender: TObject; var Key: Char);
    procedure YD_lxffKeyPress(Sender: TObject; var Key: Char);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  SubscribeRoom: TSubscribeRoom;

implementation

uses main, RoomInInfo, logotest;

{$R *.dfm}

procedure TSubscribeRoom.Button2Click(Sender: TObject);
begin
    subscribeRoom.close;
end;

procedure TSubscribeRoom.FormCreate(Sender: TObject);
begin
//   YD_name.Focused:=True;
    YD_time.Text:=DateToStr(now);
end;

procedure TSubscribeRoom.Button1Click(Sender: TObject);
  var RoomName,opera:string;
begin
    RoomName:=RoomID.Text;
//判断输入是否有空
 if (length(YD_name.Text)=0) or (length(YD_sex.Text)=0) or (length(YD_rs.Text)=0) or (length(YD_lxff.Text)=0) or (length(YD_zjlx.Text)=0)  or (length(YD_zjbh.Text)=0)then
  begin
   MessageDlg('输入不能为空，请重新输入！',mtError,[mbok],0);
   end
  else
   begin
//更改房间状态
   Q_RoomInfo.SQL.Clear;
   Q_RoomInfo.SQL.Add('Select * from RoomInfo where RoomName='''+RoomName+'''');
   Q_RoomInfo.Open;
   Q_RoomInfo.Edit;
   Q_RoomInfo['RoomStatus']:=1;
   Q_RoomInfo.Post;
   Q_RoomInfo.Close;
//结束
//读出房间信息
  opera:=form36.sys_username;
  Q_RoomInfo.SQL.Clear;
  Q_RoomInfo.SQL.Add('select * from RoomInfo where RoomName='''+RoomName+'''');
  Q_RoomInfo.open;
//结束
//插入信息
  Table1.Open;
  Table1.AppendRecord([Q_RoomInfo.FieldByName('RoomStatus').asinteger,RoomName,Q_RoomInfo.FieldByName('RoomType').asinteger,Q_RoomInfo.FieldByName('TypeName').asstring,0,Q_RoomInfo.FieldByName('DayFee').asinteger,YD_name.text,YD_sex.text,YD_zjlx.text,YD_zjbh.text,YD_add.text,StrToInt(YD_rs.text),now,StrToDate(YD_time.text),YD_lxff.text,2,opera,now]);
  Table1.close;
//结束
  SubscribeRoom.Close;
  form1.refe;
  //  SubscribeRoom.Free;
  end;
end;

procedure TSubscribeRoom.RoomIDKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TSubscribeRoom.YD_nameKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TSubscribeRoom.YD_sexKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TSubscribeRoom.YD_zjlxKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TSubscribeRoom.YD_zjbhKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TSubscribeRoom.YD_addKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TSubscribeRoom.YD_rsKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TSubscribeRoom.YD_timeKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TSubscribeRoom.YD_lxffKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
 begin
    key:=#0;
    perform(WM_NEXTDLGCTL,0,0);
 end;
end;

procedure TSubscribeRoom.FormShow(Sender: TObject);
begin
 Yd_name.setfocus;
end;

end.