amdsqlite3.pas

定时器for timer for ic chip

{$I asqlite_def.inc}

Unit AMDSqlite3;

Interface

Uses
  Windows, Messages, SysUtils,
{$IFDEF ASQLITE_D6PLUS}
  Variants,
{$ENDIF}
  Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

Type
  TFMD = Class(TForm)
    LBMaster: TListBox;
    LBDetail: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    LBLinked: TListBox;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label3: TLabel;
    BitBtn5: TBitBtn;
    Procedure BitBtn1Click(Sender: TObject);
    Procedure BitBtn2Click(Sender: TObject);
    Procedure BitBtn5Click(Sender: TObject);
  Private
    { Private declarations }
  Public
    { Public declarations }
  End;

Var
  FMD: TFMD;

Implementation

{$R *.dfm}

Procedure TFMD.BitBtn1Click(Sender: TObject);
Var TheStr: String;
  i: integer;
Begin
  If (LBDetail.ItemIndex < 0) Or (LBMaster.ItemIndex < 0) Then Exit;
  TheStr := LBDetail.Items[LBDetail.ItemIndex] + '=' + LBMaster.Items[LBMaster.ItemIndex];
  For i := 0 To LBLinked.Items.Count - 1 Do
    If CompareText(TheStr, LBLinked.Items[0]) = 0 Then Exit;
  LBLinked.Items.Add(TheStr);
End;

Procedure TFMD.BitBtn2Click(Sender: TObject);
{$IFNDEF ASQLITE_D6PLUS}
Var i: integer;
{$ENDIF}
Begin
{$IFDEF ASQLITE_D6PLUS}
  LBLinked.DeleteSelected;
{$ELSE}
  i := 0;
  While i < LBLinked.Items.Count - 1 Do Begin
  End;
{$ENDIF}
End;

Procedure TFMD.BitBtn5Click(Sender: TObject);
Var i, j: integer;
Begin
  For i := 0 To LBDetail.Items.Count - 1 Do Begin
    LBDetail.ItemIndex := i;
    For j := 0 To LBMaster.Items.Count - 1 Do Begin
      LBMaster.ItemIndex := j;
      If CompareText(LBDetail.Items[i], LBMaster.Items[j]) = 0 Then
        BitBtn1Click(Sender);
    End;
  End;
End;

End.