uadoset.pas

这是一个啤酒行业的软件

       end;
   end;////if(ctrl is Tcombobox)
   if (_ctrl is TListbox) then
   begin
       TListbox(_ctrl).Clear;
       try
           with _FQuery do
           begin
               if _FDbType=1 then
               begin
                  ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+trim(_FLoginID)+';Initial Catalog='+_FdbName+';Data Source='+trim(_FserverName)+'';
               end;
               if _FDbType=2 then
               begin
                  ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_FDbName+';Persist Security Info=False';
               end;
               Close;
               Sql.Clear;
               if _FSqlString='' then
               begin
                  showmessage('sql语句错误...');
                  exit;
               end;
               Sql.Text:=trim(_FSqlString);
               if _str.getSubStringCount(':',_FSqlString)<>_FParamList.Count then
               begin
                  showmessage('参数的个数不匹配...');
                  exit;
               end;
               if _FParamList=nil then
               begin
                  exit;
               end;
               if _FParamList.Count<>0 then
               begin
                  for i:=0 to  _FParamList.count-1 do
                  begin
                      Parameters[i].value:=_FParamList[i];
                  end;
               end
               else
               begin
               end;

               prepared;
               open;
               if Recordcount<>0 then
               begin
                  while not eof do
                  begin
                      TListbox(_ctrl).Items.Add(FieldByName(FieldName).AsString);
                      next;
                  end;///while
               end;//if


           end;//with
       Finally
          _FQuery.Close;
       end;

   end;////if(ctrl is TListbox)
end;
{
  功能:
  参数:
  用法:
}
procedure TuAdoSet.FillControl(_ctrl:TControl;_TableName:string;FieldName:string);
begin
   if (_ctrl is TCombobox) then
   begin
       Tcombobox(_ctrl).Clear;
       try
           with _FQuery do
           begin
               if _FDbType=1 then
               begin
                  ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+trim(_FLoginID)+';Initial Catalog='+_FdbName+';Data Source='+trim(_FserverName)+'';
               end;
               if _FDbType=2 then
               begin
                  ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_FDbName+';Persist Security Info=False';
               end;
               Close;
               Sql.Clear;
               Sql.Text:='select  distinct '+trim(FieldName)+'   from '+trim(_tableName);
               prepared;
               open;
               if Recordcount<>0 then
               begin
                  while not eof do
                  begin
                      TCombobox(_ctrl).Items.Add(FieldByName(FieldName).AsString);
                      next;
                  end;///while
               end;//if


           end;//with
       Finally
          _FQuery.Close;
       end;
   end;////if(ctrl is Tcombobox)
   if (_ctrl is TListbox) then
   begin
       TListbox(_ctrl).Clear;
       try
           with _FQuery do
           begin
               if _FDbType=1 then
               begin
                  ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+trim(_FLoginID)+';Initial Catalog='+_FdbName+';Data Source='+trim(_FserverName)+'';
               end;
               if _FDbType=2 then
               begin
                  ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_FDbName+';Persist Security Info=False';
               end;
               Close;
               Sql.Clear;
               Sql.Text:='select  distinct '+trim(FieldName)+'   from '+trim(_tableName);
               prepared;
               open;
               if Recordcount<>0 then
               begin
                  while not eof do
                  begin
                      TListbox(_ctrl).Items.Add(FieldByName(FieldName).AsString);
                      next;
                  end;///while
               end;//if


           end;//with
       Finally
          _FQuery.Close;
       end;

   end;////if(ctrl is TListbox)
end;
{
  功能:
  参数:
  用法:
}
procedure TuAdoSet.BindToGrid(_ctrl:TControl;_Sql:string;paramValues:TStringList);
var
   i:integer;
   j:integer;
   listitem:TListItem;
begin
   try
        with _FQuery do
        begin
               if _FDbType=1 then
               begin
                  ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+trim(_FLoginID)+';Initial Catalog='+_FdbName+';Data Source='+trim(_FserverName)+'';
               end;
               if _FDbType=2 then
               begin
                  ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_FDbName+';Persist Security Info=False';
               end;
               Close;
               Sql.Clear;
               if _Sql='' then
               begin
                  showmessage('sql语句错误...');
                  exit;
               end;
               Sql.Text:=trim(_Sql);
               if _str.getSubStringCount(':',_Sql)<>paramValues.Count then
               begin
                  showmessage('参数的个数不匹配...');
                  exit;
               end;
               if paramValues=nil then
               begin
                  exit;
               end;
               if paramValues.Count<>0 then
               begin
                  for i:=0 to  paramValues.count-1 do
                  begin
                      Parameters[i].value:=paramValues[i];
                  end;
               end
               else
               begin
               end;

               prepared;
               open;
               if RecordCount<>0 then
               begin
                  ///1.****/////////
                  if (_ctrl is TStringGrid) then
                  begin
                     for i:=1 to TStringGrid(_Ctrl).RowCount-2 do
                     begin
                         for j:=1 to TStringGrid(_ctrl).ColCount-1 do
                         begin
                             TStringGrid(_ctrl).Cells[j,i]:='';
                         end;
                     end;
                     TStringGrid(_ctrl).ColCount:=FieldList.Count+1;
                     TStringGrid(_ctrl).RowCount:=Recordcount+3;
                     j:=1;
                     while (not eof) and (j<=Recordcount)  do
                     begin
                          for i:=0 to FieldList.Count-1 do
                          begin
                              TStringGrid(_ctrl).Cells[i+1,j]:=FieldByName(FieldDefList[i].Name).asstring;
                          end;
                          next;
                          inc(j);
                     end;///while
                  end;//if (_ctrl is StringGrid)
                  ///2.*******//////////////
                  if (_ctrl is TEasyGrid) then
                  begin
                     //////清空表格中的数据////////////////
                     for j:=2 to TEasyGrid(_ctrl).RowCount-2 do
                     begin
                         for i:=1 to TEasyGrid(_ctrl).ColCount-1 do
                         begin
                             TEasyGrid(_ctrl).Cells[i,j].ForeText:='';
                         end;///i
                     end;
                     TEasyGrid(_ctrl).ColCount:=FieldList.Count+1;
                     TEasyGrid(_ctrl).RowCount:=Recordcount+3;
                     j:=1;
                     while (not eof) and (j<=Recordcount)  do
                     begin
                              for i:=0 to FieldList.Count-1 do
                              begin
                                ////showmessage(FieldByName(FieldDefList[i].Name).asstring);
                                  TEasyGrid(_ctrl).Cells[i+1,j+1].ForeText:=trim(FieldByName(FieldDefList[i].Name).asstring);
                              end;
                              next;
                              inc(j);
                     end;///while
                  end;///if(_ctrl is TEasyGrid)
                  if (_ctrl is TListView) then
                  begin
                     TListView(_ctrl).Clear;
                     first;
                     for i:=0 to FieldList.Count do
                     begin
                         TlistView(_ctrl).Columns.Add;
                     end;

                     while not eof  do
                     begin
                          listitem:=TlistView(_ctrl).Items.Add;
                          for i:=0 to FieldList.Count-1 do
                          begin
                             //listitem.Caption:=FieldValues[FieldDefList[0].Name];
                             if not  FieldbyName(FieldDefList[i].Name).IsNull then
                             begin
                                   listitem.SubItems.Add(FieldValues[FieldDefList[i].Name]);
                             end;
                          end;//for
                          next;
                    end;///while
                  end;///if(ctrl is Listview)结束///
                  
               end;//if
       end;///with
   Finally
      _FQuery.close;
   end;
end;
{
  功能:
  参数:
  用法:
}
procedure TuAdoSet.BindToGrid_JK(_ctrl:TControl;_Sql:string;paramValues:TStringList);
var
   i:integer;
   j:integer;
   listitem:TListItem;
begin
   try
        with _FQuery do
        begin
               if _FDbType=1 then
               begin
                  ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID='+trim(_FLoginID)+';Initial Catalog='+_FdbName+';Data Source='+trim(_FserverName)+'';
               end;
               if _FDbType=2 then
               begin
                  ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+_FDbName+';Persist Security Info=False';
               end;
               Close;
               Sql.Clear;
               if _Sql='' then
               begin
                  showmessage('sql语句错误...');
                  exit;
               end;
               Sql.Text:=trim(_Sql);
               if _str.getSubStringCount(':',_Sql)<>paramValues.Count then
               begin
                  showmessage('参数的个数不匹配...');
                  exit;
               end;
               if paramValues=nil then
               begin
                  exit;
               end;
               if paramValues.Count<>0 then
               begin
                  for i:=0 to  paramValues.count-1 do
                  begin
                      Parameters[i].value:=paramValues[i];
                  end;
               end
               else
               begin
               end;

               prepared;
               open;
               if RecordCount<>0 then
               begin
                  ///1.****/////////
                  if (_ctrl is TStringGrid) then
                  begin
                     for i:=1 to TStringGrid(_Ctrl).RowCount-2 do
                     begin
                         for j:=1 to TStringGrid(_ctrl).ColCount-1 do
                         begin
                             TStringGrid(_ctrl).Cells[j,i]:='';
                         end;
                     end;
                     TStringGrid(_ctrl).ColCount:=FieldList.Count+1;
                     TStringGrid(_ctrl).RowCount:=Recordcount+3;
                     j:=1;
                     while (not eof) and (j<=Recordcount)  do
                     begin
                          for i:=0 to FieldList.Count-1 do
                          begin
                              TStringGrid(_ctrl).Cells[i+1,j]:=FieldByName(FieldDefList[i].Name).asstring;
                          end;
                          next;
                          inc(j);
                     end;///while
                  end;//if (_ctrl is StringGrid)
                  ///2.*******//////////////
                  if (_ctrl is TEasyGrid) then
                  begin
                     //////清空表格中的数据////////////////
                     for j:=2 to TEasyGrid(_ctrl).RowCount-2 do
                     begin
                         for i:=1 to TEasyGrid(_ctrl).ColCount-1 do
                         begin
                             TEasyGrid(_ctrl).Cells[i,j].ForeText:='';
                         end;///i
                     end;
                     TEasyGrid(_ctrl).ColCount:=FieldList.Count+1;
                     TEasyGrid(_ctrl).RowCount:=Recordcount+3;
                     j:=1;
                     while (not eof) and (j<=Recordcount)  do
                     begin
                              for i:=0 to FieldList.Count-1 do
                              begin
                                  if  FieldByName(FieldDefList[i].Name).asstring='0' then
                                  begin
                                      TEasyGrid(_ctrl).Cells[i+1,j+1].ForeText:='';
                                  end
                                  else
                                     TEasyGrid(_ctrl).Cells[i+1,j+1].ForeText:=trim(FieldByName(FieldDefList[i].Name).asstring);
                              end;
                              next;
                              inc(j);