ffrmsystemset.pas

财务软件:功能尚可,基于UML设计开发的delphi系统,文档齐全

unit FfrmSystemSet;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ComCtrls, jpeg, ExtCtrls,DBGrids, RXSpin,printers,mxOutlookBarPro,adoDB;

type
  TfrmSystemSet = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    edtApplicationTitle: TEdit;
    TabSheet2: TTabSheet;
    Label6: TLabel;
    Label5: TLabel;
    Bevel1: TBevel;
    ledtPrinterInfo: TLabeledEdit;
    SpeedButton1: TSpeedButton;
    Label9: TLabel;
    edtUnit: TEdit;
    edtConnString: TLabeledEdit;
    SpeedButton2: TSpeedButton;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSystemSet: TfrmSystemSet;

implementation

uses  FfrmMain, BaseVar, FdmMain;

{$R *.DFM}

procedure TfrmSystemSet.BitBtn1Click(Sender: TObject);
begin
  AppConfig.WriteSetting('ApplicationTitle',edtApplicationTitle.Text);
  AppConfig.WriteSetting('ConnString',edtConnString.Text);


end;

procedure TfrmSystemSet.FormCreate(Sender: TObject);
begin
  edtApplicationTitle.Text:=AppConfig.ReadSetting('ApplicationTitle','PowerQuery');
  edtConnString.Text:=AppConfig.ReadSetting('ConnString','Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Finance;Data Source=.');
end;

procedure TfrmSystemSet.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    if (ActiveControl is TDBGrid) Then
        key:=#9
    else
    begin
      Key:=#0;
      perform(WM_NEXTDLGCTL,0,0);
    end;
  end;
end;

procedure TfrmSystemSet.SpeedButton1Click(Sender: TObject);
begin
  ledtPrinterInfo.text:='水平分辨率'+inttostr(GetDeviceCaps(printer.Handle,LOGPIXELSX))+' 垂直分辨率：'
     +inttostr(GetDeviceCaps(printer.Handle,LOGPIXELSY));
end;

procedure TfrmSystemSet.SpeedButton2Click(Sender: TObject);
begin
  edtConnString.Text :=PromptDataSource(Handle,dmMain.ConMain.ConnectionString);
end;

end.