mycolour.pas

1. 发卡服务端：Server 项目文件：autojet.prj 2. 计费客户端：Client 项目文件：internet.prj Explorer.prj 先启动Exp

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.