?? amdsqlite3.pas
字號:
{$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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -