userinfo1.pas

物业管理系统系统特点 一、 实现集中式管理 系统将集团公司、各分公司、各物业管理处连接到一起

unit UserInfo1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dbcgrids, Grids, DBGrids, DB, ADODB, StdCtrls, Buttons, ExtCtrls,
  StrUtils, ExtDlgs, ComCtrls, math;

type
    Tf_UserInfo1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    GroupBox1: TGroupBox;
    Image1: TImage;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label2: TLabel;
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
       bOK:bool;
  end;

var
  f_UserInfo1: Tf_UserInfo1;
  sNum:string;

implementation

uses data,main;

{$R *.dfm}

procedure Tf_UserInfo1.FormCreate(Sender: TObject);
var
    Query1:TADOQuery;
begin
    Query1:=TADOQuery.Create(nil);
    Query1.Connection:=DataModuleADO.ADOConnection1;
    Query1.SQL.Add('select * from ptemp1');
    Query1.Open ;
    while not query1.Eof do
    begin
        if trim(Query1.FieldByName('列1').AsString) ='代理商名称' then
            sg1:= trim(Query1.FieldByName('列2').AsString);
        if trim(Query1.FieldByName('列1').AsString) ='代理商电话' then
            sg2:= trim(Query1.FieldByName('列2').AsString);
        if trim(Query1.FieldByName('列1').AsString) ='代理商地址' then
            sg3:= trim(Query1.FieldByName('列2').AsString);
        query1.Next;
    end;
end;

//Tab
procedure Tf_UserInfo1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    if key=13 then
        Begin
            key:=0;
            perform(WM_NEXTDLGCTL,0,0);
        end
    else if key=VK_ESCAPE then close;
end;

procedure Tf_UserInfo1.Button2Click(Sender: TObject);
begin
    close;
end;

procedure Tf_UserInfo1.Button1Click(Sender: TObject);
var
    s:string;
    Query:TADOQuery;
begin
    If Edit1.Text = '' Then
    begin
        ShowMessage('请输入公司名称。');
        Edit1.SetFocus;
        Exit;
    End;

    If Edit1.Text = '-' Then
    begin
        ShowMessage('请输入正确的公司名称。');
        Edit1.SetFocus;
        Exit;
    End;

    If Edit2.Text = '' Then
    begin
        ShowMessage('请输入公司电话。');
        Edit2.SetFocus;
        Exit;
    End;

    If Edit3.Text = '' Then
    begin
        ShowMessage('请输入公司地址。');
        Edit3.SetFocus;
        Exit;
    End;

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    s:='update ptemp1 set 列2='''+Edit1.text+'''';
    s:=s+' where 列1=''代理商名称''';
    DataModuleADO.ADOConnection1.BeginTrans;
    Query.SQL.Text:=s;
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;

    s:='update ptemp1 set 列2='''+Edit2.text+'''';
    s:=s+' where 列1=''代理商电话''';
    DataModuleADO.ADOConnection1.BeginTrans;
    Query.SQL.Text:=s;
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;

    s:='update ptemp1 set 列2='''+Edit3.text+'''';
    s:=s+' where 列1=''代理商地址''';
    DataModuleADO.ADOConnection1.BeginTrans;
    Query.SQL.Text:=s;
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;

    ShowMessage('修改成功。');
end;



end.