samplemain.pas

定时器for timer for ic chip

Unit SampleMain;

Interface

Uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ASGSQLite3, StdCtrls, Buttons, ExtCtrls, ToolWin, ComCtrls, DB,
  Grids, DBGrids, DBCtrls, Mask, ExtDlgs, Provider, DBClient;

Type
  TFMain = Class(TForm)
    DB: TASQLite3DB;
    ASQLite3InlineSQL1: TASQLite3InlineSQL;
    TSimpleTable: TASQLite3Table;
    QSimple: TASQLite3Query;
    USimple: TASQLite3UpdateSQL;
    TParent: TASQLite3Table;
    TChild: TASQLite3Table;
    TBlob: TASQLite3Table;
    QBlob: TASQLite3Query;
    TLongText: TASQLite3Table;
    QProvider: TASQLite3Query;
    QLongText: TASQLite3Query;
    QComplex: TASQLite3Query;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ToolBar1: TToolBar;
    Panel2: TPanel;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    ToolButton1: TToolButton;
    DBEdit1: TDBEdit;
    DSSimpleTable: TDataSource;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    CBNumber: TCheckBox;
    TabSheet2: TTabSheet;
    ToolBar2: TToolBar;
    ToolButton2: TToolButton;
    DBNavigator2: TDBNavigator;
    Panel3: TPanel;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBGrid2: TDBGrid;
    DSQSimple: TDataSource;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    TabSheet5: TTabSheet;
    ToolBar3: TToolBar;
    Panel4: TPanel;
    DBGrid3: TDBGrid;
    ToolBar4: TToolBar;
    Panel5: TPanel;
    DBNavigator3: TDBNavigator;
    DBNavigator4: TDBNavigator;
    DBGrid4: TDBGrid;
    DSParent: TDataSource;
    ToolButton3: TToolButton;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    DSChild: TDataSource;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Label10: TLabel;
    Label11: TLabel;
    RO: TCheckBox;
    OPD: TOpenPictureDialog;
    Panel6: TPanel;
    ToolBar5: TToolBar;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    ScrollBox1: TScrollBox;
    DBI: TDBImage;
    DSBlob: TDataSource;
    ToolButton4: TToolButton;
    BitBtn2: TBitBtn;
    DBNavigator5: TDBNavigator;
    Label12: TLabel;
    TabSheet6: TTabSheet;
    ToolBar6: TToolBar;
    ToolButton5: TToolButton;
    DBNavigator6: TDBNavigator;
    Panel7: TPanel;
    Label13: TLabel;
    DBEdit12: TDBEdit;
    DBGrid5: TDBGrid;
    Label14: TLabel;
    DBMemo1: TDBMemo;
    DSLongtext: TDataSource;
    Label15: TLabel;
    Label16: TLabel;
    DBGrid6: TDBGrid;
    ClientDataSet: TClientDataSet;
    DataSetProvider: TDataSetProvider;
    DSProvider: TDataSource;
    ToolBar7: TToolBar;
    ToolButton6: TToolButton;
    DBNavigator7: TDBNavigator;
    Button1: TButton;
    Panel8: TPanel;
    Label17: TLabel;
    Records: TLabel;
    SpeedButton2: TSpeedButton;
    Edit2: TEdit;
    TabSheet7: TTabSheet;
    Panel9: TPanel;
    DSComplex: TDataSource;
    DBGrid7: TDBGrid;
    BitBtn3: TBitBtn;
    TabSheet8: TTabSheet;
    Edit3: TEdit;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    LB: TListBox;
    BitBtn7: TBitBtn;
    LBF: TListBox;
    Button2: TButton;
    Procedure BitBtn1Click(Sender: TObject);
    Procedure ToolButton1Click(Sender: TObject);
    Procedure CBNumberClick(Sender: TObject);
    Procedure ToolButton2Click(Sender: TObject);
    Procedure ToolButton3Click(Sender: TObject);
    Procedure ROClick(Sender: TObject);
    Procedure ToolButton4Click(Sender: TObject);
    Procedure SpeedButton1Click(Sender: TObject);
    Procedure BitBtn2Click(Sender: TObject);
    Procedure ToolButton5Click(Sender: TObject);
    Procedure ToolButton6Click(Sender: TObject);
    Procedure Button1Click(Sender: TObject);
    Procedure SpeedButton2Click(Sender: TObject);
    Procedure BitBtn3Click(Sender: TObject);
    Procedure BitBtn4Click(Sender: TObject);
    Procedure BitBtn5Click(Sender: TObject);
    Procedure BitBtn6Click(Sender: TObject);
    Procedure BitBtn7Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  FMain: TFMain;

Implementation

{$R *.dfm}

Procedure TFMain.BitBtn1Click(Sender: TObject);
Begin
  DB.Close;
  DeleteFile(ExtractFilePath(ParamStr(0)) + DB.Database);
  DB.ExecuteInlineSQL := true;
  DB.Open;
End;

Procedure TFMain.ToolButton1Click(Sender: TObject);
Begin
  TSimpleTable.Open;
End;

Procedure TFMain.CBNumberClick(Sender: TObject);
Begin
  If CBNumber.Checked Then
    TSimpleTable.PrimaryAutoInc := true
  Else
    TSimpleTable.PrimaryAutoInc := false;
End;

Procedure TFMain.ToolButton2Click(Sender: TObject);
Begin
  QSimple.Open;
End;

Procedure TFMain.ToolButton3Click(Sender: TObject);
Begin
  TParent.Open;
  TParent.PrimaryAutoInc := true;
  TChild.Open;
End;

Procedure TFMain.ROClick(Sender: TObject);
Begin
  If RO.Checked Then
    TChild.ReadOnly := true
  Else
    TChild.ReadOnly := true;
End;

Procedure TFMain.ToolButton4Click(Sender: TObject);
Begin
  TBlob.Open;
End;

Procedure TFMain.SpeedButton1Click(Sender: TObject);
Begin
  If OPD.Execute Then Begin
    Edit1.Text := OPD.FileName;
    DBI.Picture.LoadFromFile(Edit1.Text);
  End;
End;

Procedure TFMain.BitBtn2Click(Sender: TObject);
Var var_Stream: TMemoryStream;
Begin
  var_Stream := TMemoryStream.Create;
  var_Stream.LoadFromFile(Edit1.Text);

  QBlob.Close();
  QBlob.SQL.Clear();
  QBlob.SQL.Add('INSERT INTO IMG VALUES(:v)');

  QBlob.Params.Items[0].LoadFromStream(var_Stream, ftBlob);

  QBlob.ExecSQL();
  QBlob.Close();

  var_Stream.Free;
  TBlob.Close;
  TBlob.Open;
End;

Procedure TFMain.ToolButton5Click(Sender: TObject);
Begin
  TLongText.Open;
End;

Procedure TFMain.ToolButton6Click(Sender: TObject);
Begin
  ClientDataSet.Open;
  Records.Caption := IntToStr(ClientDataSet.RecordCount);
End;

Procedure TFMain.Button1Click(Sender: TObject);
Begin
  ClientDataSet.ApplyUpdates(0);
End;

Procedure TFMain.SpeedButton2Click(Sender: TObject);
Begin
  QLongText.Close;
  QLongText.SQL.Clear;
  QLongText.SQL.Add('select * from LT where objectnr = :o');
  QLongText.Params[0].AsInteger := TLongText.FieldByName('objectnr').AsInteger;
  QLongText.Open;
  Edit2.Text := QLongText.FieldByName('sometext').AsString;
End;

Procedure TFMain.BitBtn3Click(Sender: TObject);
Begin
  QComplex.Open;
End;

Procedure TFMain.BitBtn4Click(Sender: TObject);
Begin
  Edit3.Text := IntToStr(DB.GetUserVersion);
End;

Procedure TFMain.BitBtn5Click(Sender: TObject);
Begin
  DB.SetUserVersion(StrToInt(Edit3.Text));
End;

Procedure TFMain.BitBtn6Click(Sender: TObject);
Begin
  DB.GetTableNames(LB.Items, true);
End;

Procedure TFMain.BitBtn7Click(Sender: TObject);
Var MyList: TList;
  MyField: TASQLite3Field;
  i: integer;
  s: String;
Begin
  If LB.ItemIndex < 0 Then
    ShowMessage('Please select table')
  Else Begin
    MyList := TList.Create;
    DB.GetTableInfo(LB.Items[LB.ItemIndex], MyList);
    LBF.Items.Clear;
    For i := 0 To MyList.Count - 1 Do Begin
      With TASQLite3Field(MyList[i]) Do Begin
        If FieldNN = 1 Then s := 'NN ' Else s := '-- ';
        If FieldPK = 1 Then s := s + 'PK ' Else s := s + '--';
        LBF.Items.Add(FieldName + ' ' + FieldType + '  [' + s + ']');
      End;
    End;
  End;
End;
procedure TFMain.Button2Click(Sender: TObject);
begin
if db.TableExists('ex2') then
 showmessage('ok') 
end;

End.