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 系統(tǒng)參數設置');
    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 系統(tǒng)參數設置 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.