frimain.pas

导诊软件

unit frimain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw_EWB, EmbeddedWB, bsSkinManager, bsSkinData,
  BusinessSkinForm, AdvOfficePager, AdvOfficePagerStylers, StdCtrls,
  bsSkinCtrls, ExtCtrls, bsSkinGrids, bsDBGrids, DB, ADODB, RVStyle,
  RVScroll, RichView, RVEdit, bsButtonGroup, Mask, bsSkinBoxCtrls;

type
  TForm1 = class(TForm)
    bsbsnsknfrm1: TbsBusinessSkinForm;
    bskndt1: TbsSkinData;
    bscmprsdstrdskn1: TbsCompressedStoredSkin;
    sknmngr1: TSkinManager;
    advfcpgrfcstylr1: TAdvOfficePagerOfficeStyler;
    rvs: TRVStyle;
    advfcpgr1: TAdvOfficePager;
    advfcpg1: TAdvOfficePage;
    embdwb1: TEmbeddedWB;
    advfcpg2: TAdvOfficePage;
    advfcpg3: TAdvOfficePage;
    bskngrpbx1: TbsSkinGroupBox;
    bskngrpbx2: TbsSkinGroupBox;
    btn1q: TbsSkinSpeedButton;
    btn1w: TbsSkinSpeedButton;
    btn1e: TbsSkinSpeedButton;
    btn1r: TbsSkinSpeedButton;
    btn1t: TbsSkinSpeedButton;
    btn1y: TbsSkinSpeedButton;
    btn1u: TbsSkinSpeedButton;
    btn1i: TbsSkinSpeedButton;
    btn1o: TbsSkinSpeedButton;
    btn1p: TbsSkinSpeedButton;
    btn2l: TbsSkinSpeedButton;
    btn2k: TbsSkinSpeedButton;
    btn2j: TbsSkinSpeedButton;
    btn2h: TbsSkinSpeedButton;
    btn2g: TbsSkinSpeedButton;
    btn2f: TbsSkinSpeedButton;
    btn2d: TbsSkinSpeedButton;
    btn2s: TbsSkinSpeedButton;
    btn2a: TbsSkinSpeedButton;
    btn3m: TbsSkinSpeedButton;
    btn3n: TbsSkinSpeedButton;
    btn3b: TbsSkinSpeedButton;
    btn3v: TbsSkinSpeedButton;
    btn3c: TbsSkinSpeedButton;
    btn3x: TbsSkinSpeedButton;
    btn3z: TbsSkinSpeedButton;
    btn47: TbsSkinSpeedButton;
    btn48: TbsSkinSpeedButton;
    btn49: TbsSkinSpeedButton;
    btn44: TbsSkinSpeedButton;
    btn45: TbsSkinSpeedButton;
    btn46: TbsSkinSpeedButton;
    btn41: TbsSkinSpeedButton;
    btn42: TbsSkinSpeedButton;
    btn43: TbsSkinSpeedButton;
    btn40: TbsSkinSpeedButton;
    bsSkinSpeedButton40: TbsSkinSpeedButton;
    bskndbgrd1: TbsSkinDBGrid;
    btn3enter: TbsSkinSpeedButton;
    btn2del: TbsSkinSpeedButton;
    bsSkinSpeedButton2: TbsSkinSpeedButton;
    lbl1: TbsSkinStdLabel;
    edt2: TbsSkinEdit;
    bskntxtlbl1: TbsSkinTextLabel;
    advfcpg4: TAdvOfficePage;
    bsSkinGroupBox2: TbsSkinGroupBox;
    bsSkinStdLabel1: TbsSkinStdLabel;
    edt3: TbsSkinEdit;
    btnm7: TbsSkinSpeedButton;
    btnm8: TbsSkinSpeedButton;
    btnm9: TbsSkinSpeedButton;
    bsSkinSpeedButton42: TbsSkinSpeedButton;
    bsSkinSpeedButton38: TbsSkinSpeedButton;
    btnm6: TbsSkinSpeedButton;
    btnm5: TbsSkinSpeedButton;
    btnm4: TbsSkinSpeedButton;
    btnm0: TbsSkinSpeedButton;
    btnm1: TbsSkinSpeedButton;
    btnm2: TbsSkinSpeedButton;
    btnm3: TbsSkinSpeedButton;
    bsknpnl1: TbsSkinPanel;
    bskndbgrd2: TbsSkinDBGrid;
    bsSkinGroupBox1: TbsSkinGroupBox;
    btn50: TbsSkinSpeedButton;
    btn19: TbsSkinSpeedButton;
    btn9: TbsSkinSpeedButton;
    btn5: TbsSkinSpeedButton;
    btn4: TbsSkinSpeedButton;
    btn3: TbsSkinSpeedButton;
    btn2: TbsSkinSpeedButton;
    btn1: TbsSkinSpeedButton;
    btn39: TbsSkinSpeedButton;
    btn38: TbsSkinSpeedButton;
    btn37: TbsSkinSpeedButton;
    btn36: TbsSkinSpeedButton;
    btn35: TbsSkinSpeedButton;
    btn34: TbsSkinSpeedButton;
    btn33: TbsSkinSpeedButton;
    btn32: TbsSkinSpeedButton;
    btn31: TbsSkinSpeedButton;
    btn30: TbsSkinSpeedButton;
    btn29: TbsSkinSpeedButton;
    btn28: TbsSkinSpeedButton;
    btn27: TbsSkinSpeedButton;
    btn26: TbsSkinSpeedButton;
    btn25: TbsSkinSpeedButton;
    btn24: TbsSkinSpeedButton;
    btn23: TbsSkinSpeedButton;
    btn22: TbsSkinSpeedButton;
    btn21: TbsSkinSpeedButton;
    btn20: TbsSkinSpeedButton;
    btn18: TbsSkinSpeedButton;
    btn17: TbsSkinSpeedButton;
    btn16: TbsSkinSpeedButton;
    btn15: TbsSkinSpeedButton;
    btn14: TbsSkinSpeedButton;
    btn13: TbsSkinSpeedButton;
    btn12: TbsSkinSpeedButton;
    btn11: TbsSkinSpeedButton;
    btn10: TbsSkinSpeedButton;
    btn8: TbsSkinSpeedButton;
    btn7: TbsSkinSpeedButton;
    btn6: TbsSkinSpeedButton;
    bsSkinGroupBox3: TbsSkinGroupBox;
    bsSkinStdLabel2: TbsSkinStdLabel;
    bsSkinTextLabel1: TbsSkinTextLabel;
    edt1: TbsSkinEdit;
    bsSkinDBGrid1: TbsSkinDBGrid;
    procedure FormShow(Sender: TObject);
    procedure btnClick(Sender: TObject);
    procedure enterClick(Sender: TObject);
    procedure delClick(Sender: TObject);
    procedure advfcpgr1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses StrUtils;

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
begin
   ChDir(ExtractFilePath(Application.ExeName));
   //embdwb1.Go(GetCurrentDir+'\xianghe\index.htm');
   embdwb1.Go(GetCurrentDir+'\2ccc.htm');
end;

procedure TForm1.btnClick(Sender: TObject);
begin
  PostMessage(ActiveControl.Handle,WM_CHAR,ord((sender as tbsskinspeedbutton).Caption[1]),0);
  //edt1.text:=edt1.Text+(sender as tbsskinspeedbutton).Caption;
  //edt1.SelStart:=Length(edt1.Text);
end;

procedure TForm1.enterClick(Sender: TObject);
begin
  postmessage(ActiveControl.Handle,wm_keydown,vk_return,0);
end;

procedure TForm1.delClick(Sender: TObject);
begin
  postmessage(ActiveControl.handle,wm_keydown,VK_BACK,0);
end;

procedure TForm1.advfcpgr1Change(Sender: TObject);
begin
  if advfcpgr1.ActivePageIndex=1 then
     edt1.SetFocus;
  if advfcpgr1.ActivePageIndex=2 then
     edt2.SetFocus;
  if advfcpgr1.ActivePageIndex=3 then
     edt3.SetFocus;
end;

end.