set_rybl_pas.pas

不错啊

unit set_rybl_pas;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, pub_frm_pas, DBCtrls, Grids, DBGrids, jpeg, ExtCtrls, ImgList,
  ComCtrls, ToolWin, StdCtrls;

type
  Tset_rybl = class(Tpub_frm)
    Image1: TImage;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    DBGrid1: TDBGrid;
    Panel6: TPanel;
    DBNavigator1: TDBNavigator;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  set_rybl: Tset_rybl;

implementation
  uses
    main_dm_pas;
  var
    main_dm:Tmain_dm;
{$R *.dfm}

procedure Tset_rybl.FormCreate(Sender: TObject);
begin
  inherited;
  main_dm:=Tmain_dm.Create(self);
  main_dm.gz.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(application.ExeName)+'gzgl.mdb;Persist Security Info=False';
  main_dm.adq1.Close;
  main_dm.adq1.SQL.Clear;
  main_dm.adq1.SQL.Add('select rylbname as 人员类别名,fpbl as 分配比率,bz as 备注 from system_rybl');
  main_dm.adq1.Prepared;
  dbgrid1.DataSource :=main_dm.DataSource1;
  dbnavigator1.DataSource :=main_dm.DataSource1;
  main_dm.adq1.Open;
  dbgrid1.Columns[0].Width :=180;
  dbgrid1.Columns[1].Width :=140;
  dbgrid1.Columns[2].Width :=160;
end;

procedure Tset_rybl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  main_dm.Free;
end;

end.