sysform.pas

基本的物业管理系统

unit SysForm;

interface

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

type
  TFrmSys = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit2: TEdit;
    ComboBox1: TComboBox;
    Label3: TLabel;
    DBGrid1: TDBGrid;
    btAddU: TButton;
    Label4: TLabel;
    btFind: TButton;
    Label5: TLabel;
    btChange: TButton;
    Edit3: TEdit;
    DBGrid2: TDBGrid;
    Label6: TLabel;
    Edit4: TEdit;
    btDel: TButton;
    DBGrid3: TDBGrid;
    Edit5: TEdit;
    Label7: TLabel;
    ComboBox2: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure btAddUClick(Sender: TObject);
    procedure btFindClick(Sender: TObject);
    procedure btChangeClick(Sender: TObject);
    procedure btDelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSys: TFrmSys;

implementation
uses DataM,MainFrm;
{$R *.dfm}

procedure TFrmSys.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FrmMain.Show;
end;

procedure TFrmSys.FormCreate(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;

procedure TFrmSys.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('Error! Not Null Allowed. OR Password not Right',mtError,[mbOK],0);
end;

procedure TFrmSys.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('UserName Not Null',mtError,[mbOK],0);
end;

procedure TFrmSys.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 TFrmSys.btDelClick(Sender: TObject);
begin
  if Edit4.Text<>'' then
  begin
  Data.ADOLogin.Close;
  Data.ADOLogin.SQL.Clear;
  Data.ADOLogin.SQL.Add('select * from Users where Username="'+Edit4.Text+'"');
  Data.ADOLogin.Open;
  Data.ADOLogin.Delete;
  Data.ADOLogin.Close;
  Data.ADOLogin.SQL.Clear;
  Data.ADOLogin.SQL.Add('select * from Users');
  Data.ADOLogin.Open;
  end
  else
    MessageDlg('UserName Is Null',mtError,[mbOK],0);
end;

end.