xtjform.~pas

简单的小区物业管理系统,户籍管理,出入管理,系统管理,收费管理,

unit xtjform;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids,ComCtrls;

type
  Txtj = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Edit5: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    btaddu: TButton;
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btadduClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xtj: Txtj;

implementation

uses mainform, DataM;

{$R *.dfm}

procedure Txtj.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmmain.show;
end;


procedure Txtj.btadduClick(Sender: TObject);
var
  au:integer;
begin
  if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit5.Text<>'') and (Edit2.Text=Edit5.Text) then
    begin
    Data.ADOLogin.Append;
    Data.ADOLogin['Username']:=Edit1.Text;
    Data.ADOLogin['Password']:=Edit2.Text;
    if ComboBox1.Text='6 缴费管理' then
      au:=6
    else if ComboBox1.Text='7 维修管理' then
            au:=7
          else if ComboBox1.Text='8 出入管理' then
                  au:=8
                else if ComboBox1.Text='9 户籍管理' then
                      au:=9
                      else if ComboBox1.Text='10 系统管理' then
                            au:=10;
    Data.ADOLogin['Authorization']:=au;
    Data.ADOLogin['LastLogin']:=Now;
    Data.ADOLogin.Post;
    end
  else
    MessageDlg('错误! 输入值不能为空. 或者密码不正确',mtError,[mbOK],0);
end;


procedure Txtj.FormActivate(Sender: TObject);
begin
  Data.ADOLogin.Close;
  Data.ADOLogin.SQL.Clear;
  Data.ADOLogin.SQL.Add('Select * from Users');
  Data.DataSouLogin.DataSet:=Data.ADOLogin;
  Data.ADOLogin.Open;
end;

end.