unit5.pas

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

unit Unit5;

interface

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

type
  TForm5 = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button1: TButton;
    Button2: TButton;
    Edit1: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit3: TComboBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
     uses Control_UserU,DAHelper;
{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var q1,q2:integer;
sq1:string;
 user1:TUser;
 ADOQuery:TADOQuery;
begin
  Config.ADOCon:=TADOConnection.Create(nil);
  Config.ADOCon.LoginPrompt:=false;
  Config.ADOCon.KeepConnection:=true;
  begin
    Config.ADOCon.ConnectionString:=Config.connectinStr;
    Config.ADOCon.Open;
  end;
  ADOQuery:=TADOQuery.Create(nil);
user1:=TUser.Create;
 user1:=Control_UserU.GetUserBypno(Edit1.Text);

 if user1=nil then
 begin
   MessageBox(Handle, '没有这个用户！', '信息', MB_ICONEXCLAMATION);
   exit;
   end;

Form6.DBEdit1.Text:=Edit1.Text ;

 Form6.DBEdit5.Text:=Edit3.Text ;
 Form6. DBEdit3.Text:=Edit4.Text;
 Form6.DBEdit4.Text:= Edit5.Text;
     q2:=StrToInt(Edit3.Text);
    q2:=q2-1;
  sq1:='select 拖欠费用 from 交费信息'+
       ' where 手机号码='+''''+Edit1.Text+''''+'and 消费月份='+''''+IntToStr(q2)+'''';
       ADOQuery:=DAHelper.ExeSqlQuery(sq1);
       if(ADOQuery.RecordCount<1) then
    begin
     Form6. DBEdit2.Text:='0';
    end
    else
    begin
       Form6. DBEdit2.Text:=ADOQuery.Fields[0].Value;
    end;
 q1:=StrToInt(Edit4.Text);
 q2:=StrToInt(Edit5.Text);
 q1:=q2-q1;
 q2:=StrToInt(Form6. DBEdit2.Text);
 q1:=q1+q2;

   Form6.DBEdit7.Text:=user1.name;
  Form6.DBEdit6.Text:= IntToStr(q1);

 if((Form6.Query1.State=dsInsert)or(Form6.Query1.State=dsEdit)) then

Unit6.Form6.Query1.Post;
Unit6.Form6.Query1.Active:=false;
 Unit6.Form6.Query1.Active:=true;
    MessageBox(Handle, '修改成功', '信息', MB_ICONEXCLAMATION);
Close;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
Close;
end;

end.