📄 unit1.pas

📁 delphi实现的一个完全自动运行的数据库存取的软件保留30天日志记录
💻 PAS
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
          ADOqry.SQL.Clear;
          ADOqry.SQL.Add('select Top 1 RecID from QMZDY_PF_''' + StrDat[0] + ''' Order By RecID DESC');
          ADOqry.Open;
          if  ADOqry.FieldByName('RecID').AsString = StrDat[1] then
             begin
                 ADOqry.SQL.Clear;
                 ADOqry.SQL.Add('alter table QMZDY_PF_''' + StrDat[0] + ''' drop column RecName');
                 ADOqry.Open;
             end;
     end   // if FirstCl=$03

     else
     begin
         ListData.Items.Add('数据格式不符合要求，抛弃处理');
         WriteLog('数据格式不符合要求，抛弃处理');
     end;
       StrDat.Clear; // 全局变量清空准备接受下一次数据
       qDataLen1:=0;    //只要给长度送零 数组的内容从0开始操作
//showmessage('最终包处理完毕清空全局变量');
     end ;//if  PkNO=PkCnt-1
 //end; // if srcAddr1=src




end;

procedure TForm1.LoginResult(Sender: TObject; Status: Boolean);
begin
   // if LogResOutTime.Enabled=false  then
      //  begin
    // LogResOutTime.Enabled:=false;
   //  LogResOutTime.Interval:=50000;
  //  LogResOutTime.Enabled:=true;
     //   end;
    if not Status then
    begin
      ListNet.Items.Add('登录成功');
      ImageOnLine.Visible:=true;
      ImageOffLine.Visible:=false;
      WriteLog('Login sucessful');
    end
    else
    begin
      ListNet.Items.Add('登录失败');
      ImageOnLine.Visible:=false;
      ImageOffLine.Visible:=true;
      ListNet.ItemIndex:= ListNet.Items.Count - 1;
    end;
end;


procedure TForm1.TLoginTimer(Sender: TObject);      //向服务器注册本机
var
    //s:string;
    filename:string;
    LvIni: TIniFile;
    SoftName:string;

begin
    filename:=ExtractFilePath(paramstr(0))+'\ini\myini.ini';
    LVIni:=TInifile.create(filename);
    SoftName:=LvIni.ReadString('DataGate', 'GDG','');
    SPClient.ClientLogin(SoftName);
end;

procedure TForm1.LogResOutTimeTimer(Sender: TObject);
begin
 // ImageOnLine.Visible:=false;
 // ImageOffLine.Visible:=true;
 //  LogResOutTime.Enabled:=false;
end;



procedure TForm1.REcQust();
var
   Respond:T4KBytesBuf;
   Index:integer;
   i:integer;
   s:string;
   strShow:string;
begin

          strshow:='';
          Respond[0]:=$41;   //应答非生产文件命令
          Respond[1]:=$00;
          Respond[2]:=$0A;
          Respond[3]:=length('JFSH_ENG_BASICDATA');
          s:='JFSH_ENG_BASICDATA';
          i:=1;
          index:=4;
          while i<=length(s)  do
          begin
            Respond[index]:=ord(s[i]);
            i:=i+1;
            index:=index+1;
          end;
    {      i:=1;
          index:=4;
          while i<=length(s) do
          begin
            strshow:=strshow+char(respond[index]);
            index:=index+1;
            i:=i+1;
          end;
          showmessage(strshow);  }
           Respond[index]:=$00;       //key值为非文件表数据记录命令中的SEED 1Byte
           index:=index+1;
           Respond[index]:=$00;       //key值为非文件表数据记录命令中的SEED   1Byte
           index:=index+1;
           Respond[index]:=$01;
           SPClient.ClientTansData('FSserver','zd',Respond,index+1);    //应答非文件表数据记录命令


end;



procedure TForm1.BitBtn1Click(Sender: TObject);
var
   Respond:T4KBytesBuf;
   Index:integer;
   i:integer;
   s:string;
   strShow:string;
begin

          strshow:='';
          Respond[0]:=$41;   //应答非生产文件命令
          Respond[1]:=$00;
          Respond[2]:=$0A;
          Respond[3]:=length('JFSH_ENG_BASICDATA');
          s:='JFSH_ENG_BASICDATA';
          i:=1;
          index:=4;
          while i<=length(s)  do
          begin
            Respond[index]:=ord(s[i]);
            i:=i+1;
            index:=index+1;
          end;
    {      i:=1;
          index:=4;
          while i<=length(s) do
          begin
            strshow:=strshow+char(respond[index]);
            index:=index+1;
            i:=i+1;
          end;
          showmessage(strshow);  }
           Respond[index]:=$00;       //key值为非文件表数据记录命令中的SEED 1Byte
           index:=index+1;
           Respond[index]:=$00;       //key值为非文件表数据记录命令中的SEED   1Byte
           index:=index+1;
           Respond[index]:=$01;
           SPClient.ClientTansData('FSserver','wwwzzz',Respond,index+1);    //应答非文件表数据记录命令


end;

procedure TForm1.BitBtn2Click(Sender: TObject);
var
    //s:string;
    filename:string;
    LvIni: TIniFile;
    SoftName:string;

begin
    filename:=ExtractFilePath(paramstr(0))+'\ini\myini.ini';
    LVIni:=TInifile.create(filename);
    SoftName:=LvIni.ReadString('DataGate', 'GDG','');
    SPClient.ClientLogin(SoftName);
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
var
i,index:integer;     //numa 是一个表中sendtoken为0的记录数，num是更新表中记录数
s:string;
buf:T4KBytesBuf;
begin

 s:='JFSH_ENG_ECSMap';
 buf[0]:=$01;
 buf[1]:=$00;
 buf[2]:=$A0;
 buf[3]:=length(s);
 index:=4;
 i:=1;
 while i<=length(s)  do   //名
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
 i:=1;
 buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //VIN
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
  i:=1;
   buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Trucktype
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
 s:='19810101';
 i:=1;
  buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Pdate
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
 i:=1;
   buf[index]:=length(s);
 index:=index+1;
 while i<=length(s)  do //EIN
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
   i:=1;
    buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Bom
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
    i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;

     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
     i:=1;
     buf[index]:=length(s);
 index:=index+1;
  while i<=length(s)  do //Manufa
 begin
   buf[index]:=ord(s[i]);
   index:=index+1;
   i:=i+1;
 end;
  buf[index]:=$01;
  index:=index+1;
  buf[index]:=$01;
 SPClient.ClientTansData('FSserver','FSserver',buf,index+1);

 end;
end.
上一页 1 23
💿 文件大小 454 K
👤 上传用户 zyhunicom
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#delphi #全自动 #运行 #数据库
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -