¡¾delphi¿ªÔ´´úÂëÀ¸Ä¿ÌáÐÑ¡¿:Íøѧ»áԱΪÐèÒªdelphi¿ªÔ´´úÂëµÄÅóÓÑÃÇËѼ¯ÕûÀíÁËcxbmbg.pasÏà¹Ø×ÊÁÏ£¬Ï£Íû¶Ô¸÷λÍøÓÑÓÐËù°ïÖú!

    unit cxbmbg;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, Buttons;
    
    type
      TfrmCxbmbg = class(TForm)
        GroupBox1: TGroupBox;
        ADODataSet1: TADODataSet;
        DataSource1: TDataSource;
        GroupBox2: TGroupBox;
        DBGrid1: TDBGrid;
        BitBtn1: TBitBtn;
        BitBtnXxzl: TBitBtn;
        ADODataSet1DSDesigner: TAutoIncField;
        ADODataSet1GDZCSYBMBG_BH: TWideStringField;
        ADODataSet1GDZCSYBMBG_ZRBMDM: TWideStringField;
        ADODataSet1GDZCSYBMBG_BGRQ: TDateTimeField;
        ADODataSet1GDZCSYBMBG_ZRBM: TStringField;
        bitBtnChange: TBitBtn;
        procedure BitBtn1Click(Sender: TObject);
        procedure BitBtnXxzlClick(Sender: TObject);
        procedure DBGrid1DblClick(Sender: TObject);
        procedure DBGrid1TitleClick(Column: TColumn);
        procedure bitBtnChangeClick(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
      private
        { Private declarations }
        FBh:string;
        procedure setBh(value:string);
      public
        { Public declarations }
        property bh:string read Fbh write setBh ;
      end;
    
    var
      frmCxbmbg: TfrmCxbmbg;
    
    implementation
    
    uses  DataModule, Main;
    
    {$R *.dfm}
    
    procedure TfrmCxbmbg.setBh(value:string);
    var
      strSQL : string;
    begin
      FBh := value;
      if trim(FBh) = '' then
      begin
        strSQL := 'select * from gdzcsybmbg  order by gdzcsybmbg_bgrq';
        bitBtnChange.Caption  := 'µ¥¸ö×ʲú';
      end
      else
      begin
        strSQL := 'select * from gdzcsybmbg where trim(gdzcsybmbg_bh) = '''
          + trim(FBh) + ''' order by gdzcsybmbg_bgrq';
        bitBtnChange.Caption  := 'È«²¿×ʲú';
      end;
      ADODataSet1.Active := False ;
      ADODataSet1.CommandText := strSQL ;
      ADODataSet1.Active := true;
      ADODataSet1.Sort := 'GDZCSYBMBG_BGRQ ASC';
      if ADODataSet1.IsEmpty then
      begin
        self.Hint := '|ÎÞÏà¹Ø¹Ì¶¨×ʲú½è³ö¼Ç¼';
      end
      else
      begin
        self.Hint := '|¹²²éÕÒµ½' + IntToStr(ADODataSet1.RecordCount)
           + 'Ìõ½è³ö¼Ç¼!';
      end;
    end;
    
    procedure TfrmCxbmbg.BitBtn1Click(Sender: TObject);
    begin
      Close ;
    end;
    
    procedure TfrmCxbmbg.BitBtnXxzlClick(Sender: TObject);
    begin
      DBGrid1DblClick(Sender);
    end;
    
    procedure TfrmCxbmbg.DBGrid1DblClick(Sender: TObject);
    begin
      if ADODataSet1.IsEmpty then
      begin
        ShowMessage('ûÓзûºÏÌõ¼þµÄ¼Ç¼!');
        exit;
      end;
      dm.ADODataSetGdzc.Locate('GDZC_BH',ADODataSet1.FieldValues['gdzcsybmbg_bh'],[]);
      MainForm.OprState := osZcxq ;
    end;
    
    procedure TfrmCxbmbg.DBGrid1TitleClick(Column: TColumn);
    var
      strSort,FN:string;
    begin
      strSort := trim(ADODataSet1.Sort);
      FN := trim(column.FieldName) ;
      if FN = 'GDZCSYBMBG_ZRBM' then
      begin
        FN := 'GDZCSYBMBG_ZRBMDM';
      end;
      if strSort = FN + ' ASC' then
      begin
        ADODataSet1.Sort := FN + ' DESC ';
      end
      else
      begin
        ADODataSet1.Sort := FN + ' ASC ';
      end;
    end;
    
    procedure TfrmCxbmbg.bitBtnChangeClick(Sender: TObject);
    begin
      if bh = '' then
        bh := ADODataSet1.FieldValues['gdzcsybmbg_bh']
      else
        bh := '';
    end;
    
    procedure TfrmCxbmbg.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      MainForm.OprState := osBmbgQ ; 
    end;
    
    end.
    

ÉÏһƪ£ºfrmDriveSpace.frm
ÏÂһƪ£º²ÍÒû¹ÜÀíϵͳ