unit4.pas

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

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    PageControl1: TPageControl;
    Tab1: TTabSheet;
    Tab2: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    Button2: TButton;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    DBGrid1: TDBGrid;
    DataSource2: TDataSource;
    ADODataSet2: TADODataSet;
    Button3: TButton;
    Label7: TLabel;
    ComboBox1: TComboBox;
    Button4: TButton;
    Image1: TImage;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Image2: TImage;
    Label14: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
  CurrentUser:TOperator;
    { Public declarations }
  end;

var
  Form4: TForm4;

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

procedure TForm4.Button1Click(Sender: TObject);
begin
if((self.ADODataSet1.State=dsInsert)or(self.ADODataSet1.State=dsEdit)) then
 self.ADODataSet1.Post;
 MessageBox(Handle, '修改成功', '信息', MB_ICONEXCLAMATION);
end;

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

procedure TForm4.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm4.Button4Click(Sender: TObject);
begin
ADODataSet2.Close;
ADODataSet2.CommandText:=ADODataSet2.CommandText+'and 消费月份='+''''+ComboBox1.Text+'''';
ADODataSet2.Open;
end;

end.