?? mycolour.pas
字號:
unit MyColour;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls;
type
TFrm_MyColour = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
private
procedure RunSql;
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_MyColour: TFrm_MyColour;
implementation
uses sys_global, sys_dm ;
{$R *.DFM}
procedure TFrm_MyColour.runsql;
begin
with Frm_sys_dm.Qr_tmp3 do // 將圖片文件名存入public.db中
begin
close;
sql.clear;
sql.Add('update pdata');
sql.add('set imename = ABC');
execsql;
close;
end;
end;
procedure TFrm_MyColour.FormCreate(Sender: TObject);
begin
with frm_sys_dm.Qr_tmp3 do
begin
close;
sql.Clear;
sql.Add('select Imename from pdata');
open;
First;
// m_userime := fields[0].asstring ; // 窗口建立時,得到輸入法
close;
end;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -