?? newspecially.pas
字號:
unit NewSpecially;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Buttons, OleCtrls, SHDocVw, DB, ADODB;
type
TfrmNewSpecially = class(TForm)
GroupBox1: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Memo1: TMemo;
WebBrowser1: TWebBrowser;
Label1: TLabel;
ComboBox1: TComboBox;
Label2: TLabel;
ComboBox2: TComboBox;
Label3: TLabel;
Edit1: TEdit;
BitBtn3: TBitBtn;
qryTemp: TADOQuery;
dlgOpenHtm: TOpenDialog;
procedure FormCreate(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmNewSpecially: TfrmNewSpecially;
implementation
uses datalink, mainpas;
{$R *.dfm}
procedure TfrmNewSpecially.FormCreate(Sender: TObject);
begin
Self.Left:=(Screen.DesktopWidth -Self.Width) div 2;
Self.Top:=(Screen.DesktopHeight -Self.Height) div 2;
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select title as 名稱 from title group by title');
qryTemp.Open;
while not qryTemp.Recordset.EOF do
begin
ComboBox1.Items.Append(Trim(qryTemp.Recordset.Fields['名稱'].Value));
qryTemp.Recordset.MoveNext;
end;
end;
procedure TfrmNewSpecially.BitBtn2Click(Sender: TObject);
begin
Self.Close;
end;
procedure TfrmNewSpecially.ComboBox1Change(Sender: TObject);
begin
//根據用戶的選擇添加節點列表
Screen.Cursor:=crHourGlass;
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select * from title where title='+chr(39)+ComboBox1.Text+chr(39));
qryTemp.Open;
ComboBox2.Items.Clear;
while not qryTemp.Recordset.EOF do
begin
ComboBox2.Items.Append(Trim(qryTemp.Recordset.Fields['desce'].Value));
qryTemp.Recordset.MoveNext;
end;
Screen.Cursor:=crDefault;
end;
procedure TfrmNewSpecially.BitBtn1Click(Sender: TObject);
var StrID:String;
var i:Integer;
begin
if (ComboBox1.Text ='') or (ComboBox2.Text ='') or (Edit1.Text ='') then
begin
Application.MessageBox('信息輸入不完整!請確認你的輸入!','提示',MB_ICONEXCLAMATION+MB_OK);
Exit;
end;
if (Memo1.Text='') then
begin
Application.MessageBox('特效內容不能為空!請確認你的操作','提示',MB_ICONEXCLAMATION+MB_OK);
Screen.Cursor:=crDefault;
Exit;
end;
//判斷特效名稱是否存在
i:=Application.MessageBox('確定要添加特效嗎?','提示',MB_ICONQUESTION+MB_OKCANCEL);
if i=1 then
begin
Screen.Cursor:=crHourGlass;
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select * from title where title='+chr(39)+ComboBox1.Text +chr(39));
qryTemp.SQL.Add(' and desce='+chr(39)+ComboBox2.Text +chr(39));
qryTemp.Open;
StrID:=IntToStr(qryTemp.Recordset.Fields['ID'].Value);
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select * from code where title='+StrID);
qryTemp.SQL.Add(' and desce='+chr(39)+Edit1.Text +chr(39));
qryTemp.Open;
if qryTemp.Recordset.RecordCount >0 then
begin
Application.MessageBox('該特效名稱已經存在!請確認你的輸入!','提示',MB_ICONEXCLAMATION+MB_OK);
Edit1.SetFocus;
Screen.Cursor:=crDefault;
Exit;
end;
//開始添加特效
qryTemp.Close;
qryTemp.SQL.Clear;
qryTemp.SQL.Add('select * from code ');
qryTemp.Open;
qryTemp.Append;
qryTemp.FieldByName('title').AsInteger:=StrToInt(StrID);
qryTemp.FieldByName('desce').AsString:=ComboBox2.Text;
qryTemp.FieldByName('code').AsString:=Memo1.Text;
qryTemp.Post;
frmain.ToolButton5.Click;
Screen.Cursor:=crDefault;
Application.MessageBox('記錄添加成功!','提示',MB_ICONINFORMATION+MB_OK);
end;
end;
procedure TfrmNewSpecially.BitBtn3Click(Sender: TObject);
begin
if dlgOpenHtm.Execute then
begin
Memo1.Lines.LoadFromFile(dlgOpenHtm.FileName);
end;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -