unit4.pas

用Delphi做一个公寓管理系统

unit Unit4;

interface

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

type
  TForm_valuables_move = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Memo1: TMemo;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Query1: TQuery;
    Timer1: TTimer;
    Label6: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form_valuables_move: TForm_valuables_move;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm_valuables_move.Button2Click(Sender: TObject);
begin
  Form_valuables_move.Close;
end;

procedure TForm_valuables_move.Timer1Timer(Sender: TObject);
begin
  Label8.Caption:=datetostr(date())+'  '+timetostr(time());  
end;

procedure TForm_valuables_move.Button1Click(Sender: TObject);
begin
  if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and(Edit4.Text<>'') and(Edit5.Text<>'') then
  begin
    query1.Close;
    query1.ParamByName('name_res').AsString:=Edit1.Text;
    query1.ParamByName('name_man').AsString:=Edit2.Text;
    query1.ParamByName('type_cer').AsString:=Edit3.Text;
    query1.ParamByName('num_cer').AsString:=Edit4.Text;
    query1.ParamByName('reason').AsString:=Edit5.Text;
    query1.ParamByName('time_move').AsString:=Label8.Caption;
    query1.ParamByName('watch').AsString:=Label10.Caption;
    query1.ParamByName('remark').AsString:=Memo1.Text;
    query1.ExecSQL;
    showmessage('登记完成!');
    Form_valuables_move.Close;
  end
  else
  showmessage('请将内容填写完整!');
end;

procedure TForm_valuables_move.FormCreate(Sender: TObject);
begin
  Label10.Caption:=form_main.StatusBar1.Panels[1].Text;
end;

end.