frmusermodify.~pas

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

unit frmUserModify;

interface

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

type
  TUserModifyForm = class(TForm)
    GroupBox1: 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;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit9: TEdit;
    Memo1: TMemo;
    DateTimePicker1: TDateTimePicker;
    GroupBox2: TGroupBox;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    Edit11: TEdit;
    ComboBox3: TComboBox;
    Edit13: TEdit;
    Edit10: TEdit;
    Edit14: TEdit;
    birthday: TDateTimePicker;
    Edit15: TEdit;
    Button1: TButton;
    Button2: TButton;
    DataSource1: TDataSource;
    Table1: TTable;
    Query1: TQuery;
    DataSource2: TDataSource;
    Table2: TTable;
    Query2: TQuery;
    Edit12: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  UserModifyForm: TUserModifyForm;

implementation

uses frmMain;

{$R *.dfm}

procedure TUserModifyForm.FormCreate(Sender: TObject);
var
    str: string;
begin
    if mainform.tmp<>'' then
    begin
        str := 'select * from roominfo where roominfo.房间号='+MainForm.tmp;
        Query2.Close;
        Query2.SQL.Clear;
        Query2.SQL.Add(str);
        query2.Open;

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

        edit10.ReadOnly := true;
        edit10.Enabled := false;
        edit10.Color := clMENU;
        edit11.ReadOnly := true;
        edit11.Enabled := false;
        edit11.Color := clMENU;
        edit12.ReadOnly := true;
        edit12.Enabled := false;
        edit12.Color := clMENU;
        edit13.ReadOnly := true;
        edit13.Enabled := false;
        edit13.Color := clMENU;
        edit14.ReadOnly := true;
        edit14.Enabled := false;
        edit14.Color := clMENU;
        edit15.ReadOnly := true;
        edit15.Enabled := false;
        edit15.Color := clMENU;
        ComboBox3.Enabled := false;
        ComboBox3.Color := clMENU;
        birthday.Enabled := false;
        birthday.Color := clMENU;
    end;
end;

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

procedure TUserModifyForm.Button1Click(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;
    end
    else begin
        showmessage('请补全信息!');
    end;
    close();
end;

end.