unit6.pas

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

unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DBCtrls, Mask, Grids, DBGrids, jpeg, ExtCtrls, DB,
  ADODB,ClassesU,Config;

type
  TForm6 = class(TForm)
    DataSource1: TDataSource;
    Image1: TImage;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Query1: TADOQuery;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit2: TDBEdit;
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form6: TForm6;

implementation
     uses Control_UserU,Control_OperatorU,Unit4,Unit7,Unit8,Unit1,frm_changePwdU,
          Unit5;
{$R *.dfm}

procedure TForm6.Button3Click(Sender: TObject);
begin
Form5:=TForm5.Create(self);
Form5.Edit1.Text:= DBEdit1.Text;

 Form5.Edit3.Text:= DBEdit5.Text;
 Form5.Edit4.Text:= DBEdit3.Text;
 Form5.Edit5.Text:= DBEdit4.Text;
Form5.ShowModal;


 end;

procedure TForm6.Button4Click(Sender: TObject);
begin

Close;
end;

procedure TForm6.Button1Click(Sender: TObject);
//var s1:string;
//Jiao:Tjiao;

begin

//  sql:='select 用户号码,姓名,类型,地址,开户时间,备注 from 用户信息'+
  //     ' where 用户号码='+''''+pno+'''';

//Jiao.jtime:=DBEdit2.Text;
//Jiao.jprice:=StrToInt(DBEdit3.Text);
//Jiao.chprice:=StrToInt(DBEdit4.Text);
//Jiao.chmonth:=StrToInt(DBComboBox1.Text);
//s1:= 'insert into 交费信息(手机号码,交费时间,交费月份,交费金额,'+
//       '消费金额)'+' values('+''''+Jiao.pno+''''+','+''''+DBEdit2.Text+''''+
//       ','+''''+IntToStr(Jiao.chmonth)+''''+','+''''+IntToStr(Jiao.jprice)+''''+
 //      ','+''''+IntToStr(Jiao.chprice)+''''+ ')';
 // Query1.Close;
// Query1.SQL.Clear;
 // Query1.SQL.Add(s1);
 //QUery1.Open;
 if ((Query1.State = dsInsert) or
      (Query1.State = dsEdit)) then Query1.Post;;
	if not Query1.Active then
  begin
  	Query1.Close;
  	Query1.sql.Add ( 'Select * from 交费信息 where 1<>1');
   Query1.Open;
    Query1.Append;
  end else
    Query1.Append;
Form5:=TForm5.Create(self);
Form5.Edit1.Text:= DBEdit1.Text;

 Form5.Edit3.Text:= DBEdit5.Text;
 Form5.Edit4.Text:= DBEdit3.Text;
 Form5.Edit5.Text:= DBEdit4.Text;

Form5.ShowModal;


 Query1.Active:=false;
Query1.Active:=true;
end;

procedure TForm6.Button5Click(Sender: TObject);
var s1:string;
begin
s1:='select 手机号码,姓名,消费月份,交费金额,'+
      '消费金额 from 交费信息 where 手机号码= '+''''+DBEdit1.Text+'''';
    Query1.Close;
 Query1.SQL.Clear;
  Query1.SQL.Add(s1);
QUery1.ExecSQL;
Query1.Active:=false;
Query1.Active:=true;

end;

procedure TForm6.Button2Click(Sender: TObject);
var s1:string;
begin
if MessageBox(Handle,'你确定要删除吗','信息',MB_ICONQUESTION or MB_OKCANCEL)=IDOK then
begin

QUery1.Delete;

Query1.Active:=false;
Query1.Active:=true;
end
else
exit ;
//s1:='delete from 交费信息 where 手机号码='+''''+DBEdit1.Text+'''';
 // Query1.Close;
 //Query1.SQL.Clear;
 // Query1.SQL.Add(s1);
 //QUery1.ExecSQL;
end;

end.