u_path.pas

来自「企业安防管理系统」· PAS 代码 · 共 70 行

unit U_Path;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Buttons,u_public;

type
  TFrm_Path = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Path: TFrm_Path;

implementation
  uses  Datamodal;
{$R *.dfm}

procedure TFrm_Path.FormShow(Sender: TObject);
begin
//载入
    data.G_Con.Open();
     data.G_Rst.SQL.Clear;
     data.G_Rst.SQL.Add('select * from T_path');
     data.G_Rst.ExecSQL;
     data.G_Rst.Open;
  while not data.G_Rst.Eof do
    begin
      edit1.Text:=data.G_Rst.FieldValues['Path1'];
      data.G_Rst.Next;
    end;
end;

procedure TFrm_Path.SpeedButton1Click(Sender: TObject);
var NN:String;
begin
//保存
   if trim(edit1.Text)='' then
     begin
        application.MessageBox('路径不能为空！','明日科技有限公司');
        exit;
     end;
   NN:='update t_path set path1=';
   NN:=NN+quotedstr(trim(edit1.Text));
     data.G_Con.Open();
     data.G_Rst.SQL.Clear;
     data.G_Rst.SQL.Add(nn);
     data.G_Rst.ExecSQL;
     G_Path:=trim(edit1.Text);
   close;
end;
procedure TFrm_Path.SpeedButton2Click(Sender: TObject);
begin
  close;
end;

end.