unit Unit1;
interface
uses
Windows,winsock, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,nb30, StdCtrls, DB, ADODB,IniFiles, ComCtrls;
type
TForm1 = class(TForm)
ipdz: TEdit;
jsjm: TEdit;
dzlx: TEdit;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
ADOConnection1: TADOConnection;
newyhm: TEdit;
ADOQuery1: TADOQuery;
Label4: TLabel;
Memo1: TMemo;
Button1: TButton;
Edit1: TEdit;
StatusBar1: TStatusBar;
Edit2: TEdit;
Edit3: TEdit;
Label5: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
DataFile:string;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
getpz,getpz1:TIniFile;
s,ss:string;
const
link='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Data Source=%s;Persist Security Info=False;'+
'Jet OLEDB:Database Password=5491267';
implementation
{$R *.dfm}
function NBGetAdapterAddress(a: integer): String;
//a指定多个网卡适配器中的哪一个0,1,2...
Var
NCB:TNCB; // Netbios control block file://NetBios控制块
ADAPTER : TADAPTERSTATUS; // Netbios adapter status//取网卡状态
LANAENUM : TLANAENUM; // Netbios lana
intIdx : Integer; // Temporary work value//临时变量
cRC : Char; // Netbios return code//NetBios返回值
strTemp : String; // Temporary string//临时变量
Begin
// Initialize
Result := '';
Try
// Zero control blocl
ZeroMemory(@NCB, SizeOf(NCB));
// Issue enum command
NCB.ncb_command:=Chr(NCBENUM);
// cRC := NetBios(@NCB);
// Reissue enum command
NCB.ncb_buffer := @LANAENUM;
NCB.ncb_length := SizeOf(LANAENUM);
cRC := NetBios(@NCB);
If Ord(cRC)<>0 Then
exit;
// Reset adapter
ZeroMemory(@NCB, SizeOf(NCB));
NCB.ncb_command := Chr(NCBRESET);
NCB.ncb_lana_num := LANAENUM.lana[a];
cRC := NetBios(@NCB);
If Ord(cRC)<>0 Then