?? unit7.~pas
字號:
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
Tleibie = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
Edit1: TEdit;
Button1: TButton;
GroupBox2: TGroupBox;
Label3: TLabel;
ComboBox2: TComboBox;
Button2: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
leibie: Tleibie;
implementation
uses unit2,unit5;
{$R *.dfm}
procedure Tleibie.Button1Click(Sender: TObject);
var
str:string;
begin
if(edit1.Text=' ')then
showmessage('請先選擇類別,再輸入類別名稱')
else
begin
if(application.MessageBox('確定要添加新類別嗎?','添加自定義類別',mb_iconinformation+mb_okcancel+mb_defbutton1)=1)then
begin
str:=edit1.Text;
case combobox1.ItemIndex of
0: mainform.DBComboBox1.Items.Add(str);
1:mainform.DBComboBox2.Items.Add(str);
end;
searchform.ComboBox1.Items.Add(str);
combobox2.Items.Add(str);
edit1.Clear;
end;
end;
end;
procedure Tleibie.Button2Click(Sender: TObject);
var
i:integer;
begin
i:=0;
if(application.MessageBox('確定要刪除嗎?','刪除自定義類別',mb_iconinformation+mb_okcancel+mb_defbutton1)=1)then
begin
while((mainform.DBComboBox1.Items[i]<>combobox2.Items[combobox2.ItemIndex])and(i<=mainform.DBComboBox1.Items.Count))do
i:=i+1;
if(i<=mainform.DBComboBox1.Items.Count)then
mainform.DBComboBox1.Items.Delete(i);
i:=0;
while((mainform.DBComboBox2.Items[i]<>combobox2.Items[combobox2.ItemIndex])and(i<=mainform.DBComboBox2.Items.Count))do
i:=i+1;
if(i<=mainform.DBComboBox2.Items.Count)then
mainform.DBComboBox2.Items.Delete(i);
i:=0;
while((searchform.Comb.Items[i]<>combobox2.Items[combobox2.ItemIndex])and(i<=searchform.Comb.Items.Count))do
i:=i+1;
if(i<=searchform.Comb.Items.Count)then
searchform.Combo.Items.Delete(i);
combobox2.DeleteSelected;
combobox2.Text:='';
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -