xchangeform.pas

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

unit xchangeform;

interface

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

type
  Txchange = class(TForm)
    Label1: TLabel;
    Edit3: TEdit;
    btfind: TButton;
    Label2: TLabel;
    ComboBox2: TComboBox;
    btchange: TButton;
    DBGrid1: TDBGrid;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btfindClick(Sender: TObject);
    procedure btchangeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  xchange: Txchange;

implementation

uses mainform, DataM;

{$R *.dfm}

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

procedure Txchange.btfindClick(Sender: TObject);
begin
  if Edit3.Text<>'' then
  begin
    btChange.Enabled:=True;
    Edit3.Enabled:=False;
    Data.ADOLogin.Close;
    Data.ADOLogin.SQL.Clear;
    Data.ADOLogin.SQL.Add('select * from Users where Username="'+Edit3.Text+'"');
    Data.ADOLogin.Open;
    ComboBox2.Text:=Data.ADOLogin['Authorization'];
  end
  else
    MessageDlg('用户输入不能为空',mtError,[mbOK],0);
end;

procedure Txchange.btChangeClick(Sender: TObject);
var
  au:integer;
begin
    if ComboBox2.Text='6 缴费管理' then
      au:=6
    else if ComboBox2.Text='7 维修管理' then
            au:=7
          else if ComboBox2.Text='8 出入管理' then
                  au:=8
                else if ComboBox2.Text='9 户籍管理' then
                      au:=9
                      else if ComboBox2.Text='10 系统管理' then
                            au:=10
                            else au:=6;
    Data.ADOLogin.Edit;
    Data.ADOLogin['Authorization']:=au;
    Data.ADOLogin.Post;
    btChange.Enabled:=False;
    Edit3.Enabled:=True;
    Data.ADOLogin.Close;
    Data.ADOLogin.SQL.Clear;
    Data.ADOLogin.SQL.Add('select * from Users');
    Data.ADOLogin.Open;
end;

procedure Txchange.FormCreate(Sender: TObject);
begin
  Data.ADOLogin.Close;
  Data.ADOLogin.SQL.Clear;
  Data.ADOLogin.SQL.Add('Select * from Users');
  Data.DataSouLogin.DataSet:=Data.ADOLogin;
  data. ADOConnectLogin.Connected:=True;
  Data.ADOLogin.Open;

end;
procedure Txchange.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.