unit2.pas

实现对手机用户及通话信息的管理。分为管理员和用户两部分功能。能进行查询、修改、添加、删除等。移动电话管理系统

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Menus,CLassesU,Config, DB, ADODB;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    Image1: TImage;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
   CurrentUser:TOperator;
    //通过用户的级别来设置主窗体中的主菜单
    procedure SetMmenu(OperatorLevel:string);
  end;

var
  Form2: TForm2;

implementation
   uses Control_UserU,Control_OperatorU,Unit4,Unit6,Unit7,Unit8,Unit1,frm_changePwdU;
{$R *.dfm}
procedure TForm2.SetMmenu(OperatorLevel:string);
begin
  if OperatorLevel='管理' then
    begin
      self.N6.Visible:=true;
      self.N3.Visible:=False;
    end;
end;

procedure TForm2.N2Click(Sender: TObject);
begin
Close;
end;

procedure TForm2.N4Click(Sender: TObject);

begin

Form4.CurrentUser:=self.CurrentUser;
Form4:=TForm4.Create(self);
Form4.ADODataSet2.Close;
Form4.ADODataSet2.CommandText:='Select 交费金额, 消费金额, 消费月份, 拖欠费用, 上月拖欠 from 交费信息 where 手机号码='+''''+self.CurrentUser.Operid+'''';
        Form4.ADODataSet2.ConnectionString:=Config.connectinStr;
Form4.ADODataSet2.Open;
Form4.ADODataSet1.Close;
Form4.ADODataSet1.CommandText:='Select * from 用户信息 where 用户号码='+''''+self.CurrentUser.Operid+'''';
 Form4.ADODataSet1.ConnectionString:=Config.connectinStr;
Form4.ADODataSet1.Open;
Form4.PageControl1.ActivePage:=Form4.Tab1;

Form4.ShowModal;
end;

procedure TForm2.N5Click(Sender: TObject);
begin
 Form4.CurrentUser:=self.CurrentUser;
Form4:=TForm4.Create(self);
 Form4.ADODataSet2.Close;
 Form4.ADODataSet2.ConnectionString:=Config.connectinStr;
Form4.ADODataSet2.CommandText:='Select 交费金额, 消费金额, 消费月份, 拖欠费用, 上月拖欠 from 交费信息 where 手机号码='+''''+self.CurrentUser.Operid+'''';

Form4.ADODataSet2.Open;
Form4.ADODataSet1.Close;
Form4.ADODataSet1.CommandText:='Select * from 用户信息 where 用户号码='+''''+self.CurrentUser.Operid+'''';
   Form4.ADODataSet1.ConnectionString:=Config.connectinStr;
Form4.ADODataSet1.Open;
 Form4.PageControl1.ActivePage:=Form4.Tab2;

Form4.ShowModal;
end;

procedure TForm2.N7Click(Sender: TObject);
begin
frm_changePwd:=Tfrm_changePwd.Create(self);
 frm_changePwd.currentUser:=self.CurrentUser;
frm_changePwd.ShowModal;
end;

procedure TForm2.N8Click(Sender: TObject);
begin
Form6:=TForm6.Create(self);
Form6.Query1.Close;
Form6.Query1.ConnectionString:= Config.connectinStr;
Form6.Query1.Open;
Form6.ShowModal;
end;

procedure TForm2.N9Click(Sender: TObject);
begin
Form7:=TForm7.Create(self);
Form7.ADODataSet1.Close;
Form7.ADODataSet1.ConnectionString:=Config.connectinStr;
Form7.ADODataSet1.Open;
Form7.ADODataSet2.Close;
Form7.ADODataSet2.ConnectionString:=Config.connectinStr;
Form7.ADODataSet2.Open;
Form7.ShowModal;
end;

procedure TForm2.N10Click(Sender: TObject);
var s1:string;
  year,month,day:word;
begin
 decodedate(now,year,month,day);
Form8:=TForm8.Create(self);
  Form8.ADODataSet1.Close;
  Form8.ADODataSet1.ConnectionString:=Config.connectinStr;
Form8.ADODataSet1.CommandText:='Select 手机号码,姓名,消费月份,拖欠费用 from 交费信息 where 拖欠费用>0 and 消费月份='+''''+inttostr(month)+'''';

Form8.ADODataSet1.Open;
Form8.ShowModal;
end;

end.