unit13.pas

用Delphi做一个公寓管理系统

unit Unit13;

interface

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

type
  TForm_vist_out2 = class(TForm)
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Edit4: TEdit;
    Timer1: TTimer;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    DBMemo1: TDBMemo;
    DBNavigator1: TDBNavigator;
    Query1: TQuery;
    DBEdit6: TDBEdit;
    Table1: TTable;
    DataSource1: TDataSource;
    procedure Timer1Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_vist_out2: TForm_vist_out2;

implementation

uses Unit12;

{$R *.dfm}

procedure TForm_vist_out2.Timer1Timer(Sender: TObject);
begin
  Edit4.Text:=datetostr(date())+'  '+timetostr(time());
end;

procedure TForm_vist_out2.Button2Click(Sender: TObject);
begin
  Form_vist_out2.Close;  
end;

procedure TForm_vist_out2.Button1Click(Sender: TObject);
begin
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add('update vist_log set time_out=:time_out ,is_out=1  where id=:id');
  query1.ParamByName('time_out').AsString:=Edit4.Text;
  query1.ParamByName('id').AsInteger:=DBEdit6.Field.Value;
  query1.ExecSQL;
  showmessage('登记完毕!');
  Form_vist_out2.Close;

end;

procedure TForm_vist_out2.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
   Form_vist_out.Table1.Active:=false;
   Form_vist_out.Table1.Active:=true;

end;

end.