unitmain.pas

远程抄表系统的客户端程序 安徽六安项目-客户端程序 0 开发环境 Delphi 7.0 所需控件 mxOutlookBar 数 据 库 Sybase 11.5 1 04-12-

    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
        First();
        //Last();
        while not eof do
        begin
           ListItem := FormBasic0.ListView.Items.Add();
           //fd_BianDianZID
           ListItem.Caption := Trim(FieldByName('fd_BianDianZID').AsString) ;
           //fd_Name
           ListItem.SubItems.Add(Trim(FieldByName('fd_Name').AsString) );
           //fd_Memo
           ListItem.SubItems.Add(Trim(FieldByName('fd_Memo').AsString) );

           //长时间操作的过程中.加上本函数可以保证系统对其他消息的响应
           Application.ProcessMessages();
           Next();
        end;//end while
    end;    //end if
  end;      //end with

end;

procedure TFormMain.LoadTableLine(strSQL : string);
var
  I : integer;
  ListItem  : TListItem;
  ListItem2 : TListItem;
  BianDianZName : string;
begin
   with  MyModule.AdoQuery do
   begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);

    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
        First();
        //Last();
        while not eof do
        begin
           ListItem  := FormBasic1.ListView.Items.Add();
           ListItem2 := FormLineLost0.ListViewLine.Items.Add();
           //fd_LineID
           ListItem. Caption := Trim(FieldByName('fd_LineID').AsString) ;
           ListItem2.Caption := Trim(FieldByName('fd_LineID').AsString) ;
           //fd_Name
           ListItem.SubItems.Add(Trim(FieldByName('fd_Name').AsString) );
           ListItem2.SubItems.Add(Trim(FieldByName('fd_Name').AsString) );
           //fd_BianDianZID
           BianDianZName := Trim(FieldByName('fd_BianDianZID').AsString);
           For i:=0 to FormBasic0.ListView.Items.Count-1 do
           begin
             if FormBasic0.ListView.Items[i].Caption = BianDianZName then
             begin
               BianDianZName := FormBasic0.ListView.Items[i].SubItems.Strings[0];
               break;
             end;
           end;
           ListItem.SubItems.Add(BianDianZName );
           //fd_Class
           ListItem.SubItems.Add(Trim(FieldByName('fd_Class').AsString) );
           //fd_Memo
           ListItem.SubItems.Add(Trim(Fields[3].AsString) );

           //长时间操作的过程中.加上本函数可以保证系统对其他消息的响应
           Application.ProcessMessages();
           Next();
        end;//end while
    end;    //end if
  end;      //end with

end;

procedure TFormMain.LoadTableBianTai(strSQL : string);
var
  I : integer;
  ListItem : TListItem;
  LineName : string;
begin
   with  MyModule.AdoQuery do
   begin
    Close();
    SQL.Clear();
    SQL.Add(strSQL);

    try
      Open();
    except
      ExecSQL();
    end;

    if RecordCount <> 0 then
    begin
        First();
        while not eof do
        begin
           ListItem := FormBasic2.ListView.Items.Add();
           //fd_BianTaiID
           //ListItem.Caption := Fields[0].AsString ;
           ListItem.Caption := Trim(FieldByName('fd_BianTaiID').AsString);
           //fd_Name
           ListItem.SubItems.Add( Trim(FieldByName('fd_Name').AsString) );
           //fd_LineID
           LineName := FieldByName('fd_LineID').AsString;
           For i:=0 to FormBasic1.ListView.Items.Count-1 do
           begin
             if FormBasic1.ListView.Items[i].Caption = LineName then
             begin
               LineName := FormBasic1.ListView.Items[i].SubItems.Strings[0];
               break;
             end;
           end;
           ListItem.SubItems.Add(LineName );
           //fd_Type
           ListItem.SubItems.Add(Trim(FieldByName('fd_Type').AsString) );
           //fd_Cap
           ListItem.SubItems.Add(Trim(FieldByName('fd_Cap').AsString) );
           //fd_Status
           case FieldByName('fd_Status').AsInteger of
              0: ListItem.SubItems.Add('良好');
              1: ListItem.SubItems.Add('故障');
              2: ListItem.SubItems.Add('未运行');
              else ListItem.SubItems.Add('良好');
           end;
           //fd_Gsm
           ListItem.SubItems.Add(Trim(FieldByName('fd_Gsm').AsString) );
           //fd_OnlyCard
           ListItem.SubItems.Add(Trim(FieldByName('fd_OnlyCard').AsString) );
           //fd_Ip
           ListItem.SubItems.Add(Trim(FieldByName('fd_Ip').AsString) );
           //fd_Port
           ListItem.SubItems.Add(Trim(FieldByName('fd_Port').AsString) );
           //fd_YYID
           ListItem.SubItems.Add(Trim(FieldByName('fd_YYID').AsString) );
           //fd_PD2000
           ListItem.SubItems.Add(Trim(FieldByName('fd_PD2000').AsString) );
           //fd_Addr
           ListItem.SubItems.Add(Trim(FieldByName('fd_Addr').AsString) );
           //fd_Memo
           ListItem.SubItems.Add(Trim(FieldByName('fd_Memo').AsString) );

           //fd_DataCycle
           ListItem.SubItems.Add(Trim(FieldByName('fd_DataCycle').AsString) );
           //fd_AutoSend
           case FieldByName('fd_AutoSend').AsInteger of
              0: ListItem.SubItems.Add('否');
              1: ListItem.SubItems.Add('是');
              else ListItem.SubItems.Add('否');
           end;

           //fd_DrqCycle
           ListItem.SubItems.Add(Trim(FieldByName('fd_DrqCycle').AsString) );
           //fd_DrqDataType
           case FieldByName('fd_DrqDataType').AsInteger of
              0: ListItem.SubItems.Add('级数');
              1: ListItem.SubItems.Add('容量');
              else ListItem.SubItems.Add('级数');
           end;
           //fd_CT
           ListItem.SubItems.Add(Trim(FieldByName('fd_CT').AsString) );
           //fd_PT
           ListItem.SubItems.Add(Trim(FieldByName('fd_PT').AsString) );
           //fd_FreezeDay
           ListItem.SubItems.Add(Trim(FieldByName('fd_FreezeDay').AsString) );
           //fd_FreezeDN
           ListItem.SubItems.Add(Trim(FieldByName('fd_FreezeDN').AsString) );
           //fd_Max_U
           ListItem.SubItems.Add(Trim(FieldByName('fd_Max_U').AsString) );
           //fd_Min_U
           ListItem.SubItems.Add(Trim(FieldByName('fd_Min_U').AsString) );
           //fd_Max_I
           ListItem.SubItems.Add(Trim(FieldByName('fd_Max_I').AsString) );
           //fd_Rated_I
           ListItem.SubItems.Add(Trim(FieldByName('fd_Rated_I').AsString) );

           //fd_RefTime

           //长时间操作的过程中.加上本函数可以保证系统对其他消息的响应
           Application.ProcessMessages();
           Next();
        end;//end while
    end;    //end if
  end;      //end with

end;
{
0    Basic0BianDianZ;
1    Basic1Line     ;
2    Basic2BianTai  ;
3    Basic3User     ;
4    Order1SetInfo  ;
5    Order2GetData  ;
6    Order3DataRecv ;
7    Order4History  ;
}
procedure TFormMain.SetMenuCheck(MenuIndex : Integer);
begin
  case (MenuIndex) of
  0:begin
      Basic0BianDianZ.Checked:= True;
      Basic1Line.Checked     := False;
      Basic2BianTai.Checked  := False;
      Basic3User.Checked     := False;
      Order1SetInfo.Checked  := False;
      Order2GetData.Checked  := False;
      Order3DataRecv.Checked := False;
      Order4History.Checked  := False;
    end;
  1:begin
      Basic0BianDianZ.Checked:= False;
      Basic1Line.Checked     := True;
      Basic2BianTai.Checked  := False;
      Basic3User.Checked     := False;
      Order1SetInfo.Checked  := False;
      Order2GetData.Checked  := False;
      Order3DataRecv.Checked := False;
      Order4History.Checked  := False;
      MLost0Compute.Checked  := False;
      MLost1Rep.Checked      := False;
    end;
  2:begin
      Basic0BianDianZ.Checked:= False;
      Basic1Line.Checked     := False;
      Basic2BianTai.Checked  := True;
      Basic3User.Checked     := False;
      Order1SetInfo.Checked  := False;
      Order2GetData.Checked  := False;
      Order3DataRecv.Checked := False;
      Order4History.Checked  := False;
      MLost0Compute.Checked  := False;
      MLost1Rep.Checked      := False;
    end;
  3:begin
      Basic0BianDianZ.Checked:= False;
      Basic1Line.Checked     := False;
      Basic2BianTai.Checked  := False;
      Basic3User.Checked     := True;
      Order1SetInfo.Checked  := False;
      Order2GetData.Checked  := False;
      Order3DataRecv.Checked := False;
      Order4History.Checked  := False;
      MLost0Compute.Checked  := False;
      MLost1Rep.Checked      := False;
    end;
  4:begin
      Basic0BianDianZ.Checked:= False;
      Basic1Line.Checked     := False;
      Basic2BianTai.Checked  := False;
      Basic3User.Checked     := False;
      Order1SetInfo.Checked  := True;
      Order2GetData.Checked  := False;
      Order3DataRecv.Checked := False;
      Order4History.Checked  := False;
      MLost0Compute.Checked  := False;
      MLost1Rep.Checked      := False;
    end;
  5:begin
      Basic0BianDianZ.Checked:= False;
      Basic1Line.Checked     := False;
      Basic2BianTai.Checked  := False;
      Basic3User.Checked     := False;
      Order1SetInfo.Checked  := False;
      Order2GetData.Checked  := True;
      Order3DataRecv.Checked := False;
      Order4History.Checked  := False;
      MLost0Compute.Checked  := False;
      MLost1Rep.Checked      := False;
    end;
  6:begin
      Basic0BianDianZ.Checked:= False;
      Basic1Line.Checked     := False;
      Basic2BianTai.Checked  := False;
      Basic3User.Checked     := False;
      Order1SetInfo.Checked  := False;
      Order2GetData.Checked  := False;
      Order3DataRecv.Checked := True;
      Order4History.Checked  := False;
      MLost0Compute.Checked  := False;
      MLost1Rep.Checked      := False;
    end;
  7:begin
      Basic0BianDianZ.Checked:= False;
      Basic1Line.Checked     := False;
      Basic2BianTai.Checked  := False;
      Basic3User.Checked     := False;
      Order1SetInfo.Checked  := False;
      Order2GetData.Checked  := False;
      Order3DataRecv.Checked := False;
      Order4History.Checked  := True;
      MLost0Compute.Checked  := False;
      MLost1Rep.Checked      := False;
    end;
  8:begin
      Basic0BianDianZ.Checked:= False;
      Basic1Line.Checked     := False;
      Basic2BianTai.Checked  := False;
      Basic3User.Checked     := False;
      Order1SetInfo.Checked  := False;
      Order2GetData.Checked  := False;
      Order3DataRecv.Checked := False;
      Order4History.Checked  := False;
      MLost0Compute.Checked  := True;
      MLost1Rep.Checked      := False;
    end;
  9:begin
      Basic0BianDianZ.Checked:= False;
      Basic1Line.Checked     := False;
      Basic2BianTai.Checked  := False;
      Basic3User.Checked     := False;
      Order1SetInfo.Checked  := False;
      Order2GetData.Checked  := False;
      Order3DataRecv.Checked := False;
      Order4History.Checked  := False;
      MLost0Compute.Checked  := False;
      MLost1Rep.Checked      := True;
    end;
  else begin
    end;
  end
end;

procedure TFormMain.ToolBtnLoginClick(Sender: TObject);
begin
  UserLogin();
end;

procedure TFormMain.UserLogin();
var
  strUserInfo : string;
begin
  //0 取消登录
  //1 Guest登录成功
  //2 管理员登录成功
  //3 程序员级别的密码
  //4 密码输入错误超过三次
  //////////////////////////////////////////////////////

  if ( bLoginOK = False ) then
  begin
    FormLogin.MyPwd   := MyPwd;
    FormLogin.MyTitle := '用户登录';
    FormLogin.ShowModal();
  end
  else begin
    FormLogin.MyPwd   := MyPwd;
    FormLogin.MyTitle := '重新登录';
    FormLogin.ShowModal();
  end;

  case FormLogin.MyValue of
    0:begin
        if ( bLoginOK = False ) then
        begin
          bLoginOK := False;
          Close();
        end
        else begin
          bLoginOK := true;
        end;

      end;
    1:begin
        bLoginOK := True;
        MyUser   := 'Guest';
        strUserInfo := '操作人:【' + MyUser + '】您只拥有操作权限';