frmuserreg.~pas

毕业论文源码 毕业论文源码 毕业论文源码

unit frmUserReg;

interface

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

type
  TRegisterUser = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    btnOK: TButton;
    btnCancel: TButton;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit9: TEdit;
    Memo1: TMemo;
    Edit11: TEdit;
    Edit12: TEdit;
    ComboBox3: TComboBox;
    Edit13: TEdit;
    Edit10: TEdit;
    Edit14: TEdit;
    birthday: TDateTimePicker;
    DateTimePicker1: TDateTimePicker;
    Label21: TLabel;
    Edit15: TEdit;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    DataSource2: TDataSource;
    Table2: TTable;
    Query2: TQuery;
    procedure btnOKClick(Sender: TObject);
    procedure btnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  RegisterUser: TRegisterUser;

implementation

uses frmMain;

{$R *.dfm}

procedure TRegisterUser.btnOKClick(Sender: TObject);
var
    flag: boolean;
begin
    //控制是否填入数据库的变量
    flag := true;
    //必添项不能为空
    if edit1.Text='' then flag := false;
    if edit2.Text='' then flag := false;
    if edit8.Text='' then flag := false;
    if edit9.Text='' then flag := false;
    if ComboBox1.Text='' then flag := false;
    if ComboBox2.Text='' then flag := false;
    if flag then
    begin
        Table1.Append;
        Table1.FieldValues['姓名'] := edit1.Text;
        Table1.FieldValues['性别'] := ComboBox1.Text;
        Table1.FieldValues['年龄'] := edit2.Text;
        Table1.FieldValues['文化程度'] := edit3.Text;
        Table1.FieldValues['职业'] := edit4.Text;
        Table1.FieldValues['从何处来'] := edit5.Text;
        Table1.FieldValues['到何处去'] := edit6.Text;
        Table1.FieldValues['住宿理由'] := edit7.Text;
        Table1.FieldValues['证件名称'] := ComboBox2.Text;
        Table1.FieldValues['证件号码'] := edit8.Text;
        Table1.FieldValues['工作单位'] := edit9.Text;
        Table1.FieldValues['离店日期'] := DateTimePicker1.DateTime;
        Table1.FieldValues['备注'] := memo1.Text;
        Table1.FieldValues['房间号'] := strtoint(edit11.Text);
        Table1.Post;

        Table2.Append;
        Table2.FieldValues['房间号'] := strtoint(edit11.Text);
        Table2.FieldValues['住宿人数'] := strtoint(edit12.Text);
        Table2.FieldValues['登记员'] := ComboBox3.Text;
        Table2.FieldValues['登记时间'] := birthday.DateTime;
        Table2.FieldValues['房价折扣'] := strtoint(edit14.Text);
        Table2.FieldValues['旅客类别'] := edit15.Text;
        Table2.Post;

    end
    else begin
        showmessage('请补全信息!');
    end;
    close();
end;

procedure TRegisterUser.btnCancelClick(Sender: TObject);
begin
    //关闭窗口
    close();
end;

end.