car4ss101.pas

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

unit Car4ss101;

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_Car4ss101 = class(TForm)
    Button6: TButton;
    Button2: TButton;
    Panel3: TPanel;
    Label59: TLabel;
    Label60: TLabel;
    Label61: TLabel;
    Label62: TLabel;
    Label63: TLabel;
    Label65: TLabel;
    Label66: TLabel;
    Label78: TLabel;
    Label81: TLabel;
    Label84: TLabel;
    Label87: TLabel;
    Edit7: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit2: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit1: TEdit;
    Edit3: TEdit;
    Edit12: TEdit;
    Edit9: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Button6Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_Car4ss101: Tf_Car4ss101;


implementation

uses data, main;

{$R *.dfm}

//初始化
procedure Tf_Car4ss101.FormCreate(Sender: TObject);
var
    Query:TADOQuery;
begin
    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    Query.SQL.Add('select * from 系统参数设置');
    Query.Open ;
    if query.RecordCount>0 then
    begin
        Edit1.text:=Query.FieldByName('公司编号').Value;
        Edit2.text:=Query.FieldByName('公司名称').Value;
        Edit3.text:=Query.FieldByName('公司地址').Value;
        Edit4.text:=Query.FieldByName('邮政编码').Value;
        Edit5.text:=Query.FieldByName('联系电话').Value;
        Edit6.text:=Query.FieldByName('开户银行').Value;
        Edit7.text:=Query.FieldByName('帐号').Value;
        Edit9.text:=Query.FieldByName('打印表头').Value;
        Edit10.text:=Query.FieldByName('联系人').Value;
        Edit11.text:=Query.FieldByName('传真').Value;
        Edit12.text:=Query.FieldByName('税号').Value;
    end;

    query.Close ;
    query.Free ;
end;

//Tab
procedure Tf_Car4ss101.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_Car4ss101.Button2Click(Sender: TObject);
var
    Query:TADOQuery;
    s,s1:string;
begin
    If Edit2.Text = '' Then Edit2.Text := '-';
    If Edit3.Text = '' Then Edit3.Text := '-';
    If Edit4.Text = '' Then Edit4.Text := '-';
    If Edit5.Text = '' Then Edit5.Text := '-';
    If Edit6.Text = '' Then Edit6.Text := '-';
    If Edit7.Text = '' Then Edit7.Text := '-';
    If Edit9.Text = '' Then Edit9.Text := '-';
    If Edit10.Text = '' Then Edit10.Text := '-';
    If Edit11.Text = '' Then Edit11.Text := '-';
    If Edit12.Text = '' Then Edit12.Text := '-';

    s:='update 系统参数设置 set 公司名称='''+Edit2.Text;
    s:=s+''',公司地址='''+Edit3.text;
    s:=s+''',邮政编码='''+Edit4.text;
    s:=s+''',联系电话='''+Edit5.text;
    s:=s+''',开户银行='''+Edit6.text;
    s:=s+''',帐号='''+Edit7.text;
    s:=s+''',打印表头='''+Edit9.text;
    s:=s+''',联系人='''+Edit10.text;
    s:=s+''',传真='''+Edit11.text;
    s:=s+''',税号='''+Edit12.text;
    s:=s+''' where 公司编号='''+'01'+'''';

    Query:=TADOQuery.Create(nil);
    Query.Connection:=DataModuleADO.ADOConnection1;
    DataModuleADO.ADOConnection1.BeginTrans;
    Query.SQL.Text:=s;
    query.ExecSQL;
    DataModuleADO.ADOConnection1.CommitTrans;
    query.close;
    query.free;

    mainform.sCompany:=Edit9.text;

    showmessage('更新操作成功。');
end;

procedure Tf_Car4ss101.Button6Click(Sender: TObject);
begin
    Close;
end;



procedure Tf_Car4ss101.Button1Click(Sender: TObject);
begin
    mainform.ShowChmHelp('02-03-02.htm');  
end;

end.