u_netpath.pas

很好的合同管理系统完整源码,适合初学者参考

unit U_netpath;

interface

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

type
  Tfrm_net_path = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_net_path: Tfrm_net_path;

implementation

uses U_Data;

{$R *.dfm}

procedure Tfrm_net_path.BitBtn1Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then
begin
with data1.ADOPublic do
begin
   close;
   sql.Clear;
   sql.Add('select * from 网络路径');
   open;
end;
if data1.ADOPublic.RecordCount>0 then
application.MessageBox('路径已经设置','提示',64)
else
begin
with data1.ADOPublic do
begin
   close;
   sql.Clear;
   sql.Add('insetr 网络路径 values(:a)');
   parameters.ParamByName('a').Value:=trim(edit1.Text);
   execsql;
end;
application.MessageBox('保存成功','提示',64);
end;
end
else
application.MessageBox('请设置路径','提示',64);
end;

procedure Tfrm_net_path.BitBtn2Click(Sender: TObject);
begin
close;
end;

procedure Tfrm_net_path.FormCreate(Sender: TObject);
begin
with data1.ADOPublic do
begin
   close;
   sql.Clear;
   sql.Add('select * from 网络路径');
   open;
end;
edit1.Text:=data1.ADOPublic.fieldbyname('netpath').Value;
end;

procedure Tfrm_net_path.BitBtn3Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then
begin
with data1.ADOPublic do
begin
   edit;
   fieldbyname('netpath').Value:=trim(edit1.Text);
   post;
end;
application.MessageBox('修改成功','提示',64);
end
else
application.MessageBox('请设置路径','提示',64);
end;

end.