frm_bxwh.pas

用于家庭养殖的财务进出

unit frm_bxwh;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls;

type
  Tfrm_bx = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    GroupBox3: TGroupBox;
    DBGrid2: TDBGrid;
    DBNavigator1: TDBNavigator;
    procedure FormCreate(Sender: TObject); // 初始化dbgrid1，dbgrid2 的数据信息
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);  //显示dbgrid1对应字段的详细子目录
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_bx: Tfrm_bx;

implementation
 uses data_module, Unit_main;//dmserver;
{$R *.dfm}

procedure Tfrm_bx.FormCreate(Sender: TObject);
begin
  dbgrid1.DataSource:=dm.DataSource2;
  dbgrid2.DataSource:=dm.DataSource3;
  with dm.ADOQuery5 do
  begin
    close;
    sql.Clear;
    sql.Add('select field,bx_info,lab_name  from field_info where bx_info');   //as "中文名"
    open;
    dbgrid1.Columns.Add;
    dbgrid1.Columns[0].Title.caption:='中文名';
    dbgrid1.Columns[0].Field:=fieldbyname('lab_name');
    DBGrid1CellClick(dbgrid1.Columns[0]);
  end;
end;

procedure Tfrm_bx.DBGrid1CellClick(Column: TColumn);
var
  field_name,sqlstr:string;
begin
  field_name:=dm.ADOQuery5.fieldbyname('field').AsString;
  sqlstr:='select code ,field_name  ,no   from code where field_name='+quotedstr(field_name);
  with dm.ADOQuery6 do   //    as "显示名"    as "字段名"    as"排序值"
  begin
    close;
    sql.Clear;
    sql.Add(sqlstr);
    open;
    dbgrid2.Columns[0].Title.caption:='显示名';
    dbgrid2.Columns[1].Title.caption:='字段名';
    dbgrid2.Columns[2].Title.caption:='排序值';
    dbgrid2.Columns[0].Width:=80;
    dbgrid2.Columns[1].Width:=50;
    dbgrid2.Columns[2].Width:=50;
  end;
end;

procedure Tfrm_bx.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  frm_main.createform;
end;

end.