Разработка технологии создания дистанционных курсов на примере курса "Администрирование DB2", страница 46

    ImageList1: TImageList;

    SQLServerConnection: TDCOMConnection;

    ClientDataSet1: TClientDataSet;

    DataSource1: TDataSource;

    RichEdit1: TRichEdit;

    Label1: TLabel;

    DBGrid1: TDBGrid;

    Memo2: TMemo;

    SpeedButton2: TSpeedButton;

    Label2: TLabel;

    Label3: TLabel;

    SpeedButton1: TSpeedButton;

    Memo1: TMemo;

    Label4: TLabel;

    Label5: TLabel;

    Panel1: TPanel;

    Label6: TLabel;

    Gauge1: TGauge;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Shape1: TShape;

    Shape2: TShape;

    procedure Action6Execute(Sender: TObject);

    procedure Help1Click(Sender: TObject);

    procedure ActiveFormCreate(Sender: TObject);

    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure SQLServerConnectionLogin(Sender: TObject; Username,

      Password: String);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

    procedure TabSheet2Show(Sender: TObject);

  private

    { Private declarations }

    FEvents: ISQLFormXEvents;

    procedure DeleteBadCharacters;

    procedure ActivateEvent(Sender: TObject);

    procedure ClickEvent(Sender: TObject);

    procedure CreateEvent(Sender: TObject);

    procedure DblClickEvent(Sender: TObject);

    procedure DeactivateEvent(Sender: TObject);

    procedure DestroyEvent(Sender: TObject);

    procedure KeyPressEvent(Sender: TObject; var Key: Char);

    procedure PaintEvent(Sender: TObject);

  protected

    { Protected declarations }

    bm1, bm1s, bm2, bm2s:TBitmap;

    slaidid:integer;

    sqltext:ansistring;

    sqltextpos:integer;

    sldcnt, ftries:integer;

    inproc,needpageChange:boolean;

    results:array of boolean;

    procedure SetTies(tr:integer);

    function SelectAnalyse:smallint;

    function UpdateAnalyse:smallint;

    function InsertAnalyse:smallint;

    function DeleteAnalyse:smallint;

    function istokpresent(str:ansistring; pos:integer):boolean;

    function SQLTypeTest:smallint;

    procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;

    procedure EventSinkChanged(const EventSink: IUnknown); override;

    function Get_Active: WordBool; safecall;

    function Get_AlignDisabled: WordBool; safecall;

    function Get_AutoScroll: WordBool; safecall;

    function Get_AutoSize: WordBool; safecall;

    function Get_AxBorderStyle: TxActiveFormBorderStyle; safecall;

    function Get_Caption: WideString; safecall;

    function Get_Color: OLE_COLOR; safecall;

    function Get_DoubleBuffered: WordBool; safecall;

    function Get_DropTarget: WordBool; safecall;

    function Get_Enabled: WordBool; safecall;

    function Get_Font: IFontDisp; safecall;

    function Get_HelpFile: WideString; safecall;

    function Get_KeyPreview: WordBool; safecall;

    function Get_PixelsPerInch: Integer; safecall;

    function Get_PrintScale: TxPrintScale; safecall;

    function Get_Scaled: WordBool; safecall;

    function Get_ScreenSnap: WordBool; safecall;

    function Get_SnapBuffer: Integer; safecall;

    function Get_Visible: WordBool; safecall;

    function Get_VisibleDockClientCount: Integer; safecall;

    procedure _Set_Font(var Value: IFontDisp); safecall;

    procedure Set_AutoScroll(Value: WordBool); safecall;

    procedure Set_AutoSize(Value: WordBool); safecall;

    procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle); safecall;

    procedure Set_Caption(const Value: WideString); safecall;

    procedure Set_Color(Value: OLE_COLOR); safecall;

    procedure Set_DoubleBuffered(Value: WordBool); safecall;

    procedure Set_DropTarget(Value: WordBool); safecall;

    procedure Set_Enabled(Value: WordBool); safecall;

    procedure Set_Font(const Value: IFontDisp); safecall;

    procedure Set_HelpFile(const Value: WideString); safecall;

    procedure Set_KeyPreview(Value: WordBool); safecall;

    procedure Set_PixelsPerInch(Value: Integer); safecall;