c_setup.~pas

电子元件管理软件

unit c_setup;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, DB, ADODB, StdCtrls, Grids, DBGrids;

type
  TForm2 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    ado_comdl: TADOQuery;
    ds_ado_comdl: TDataSource;
    DBGrid1: TDBGrid;
    ado_comdlid: TSmallintField;
    ado_comdlkind_name: TWideStringField;
    ado_comdlkind_order_id: TSmallintField;
    DBGrid2: TDBGrid;
    ado_comxl: TADOQuery;
    ds_ado_comxl: TDataSource;
    ado_comxlid: TAutoIncField;
    ado_comxlpara_kind_id: TSmallintField;
    ado_comxlchild_kind_name: TWideStringField;
    ado_comxlchild_kind_order_id: TSmallintField;
    Label1: TLabel;
    GroupBox3: TGroupBox;
    ado_encap: TADOQuery;
    ds_ado_encap: TDataSource;
    DBGrid3: TDBGrid;
    ado_encapid: TIntegerField;
    ado_encapencap_name: TWideStringField;
    ado_encapencap_memo: TWideStringField;
    ado_encapencap_order_id: TIntegerField;
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure ado_comdlAfterScroll(DataSet: TDataSet);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormActivate(Sender: TObject);
begin
  ado_comdl.Open;
  ado_encap.Open;
  
end;

procedure TForm2.ado_comdlAfterScroll(DataSet: TDataSet);
var
  sql_str:string;
begin
  if ado_comdl.RecordCount>0 then
    begin
      sql_str:=format('select * from child_kind where para_kind_id=%d order by child_kind_order_id',[ado_comdl.fieldbyname('id').asinteger]);
      with ado_comxl do
        begin
          close;
          sql.clear;
          sql.add(sql_str);
          open;
          first;
        end;
    end;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  close;
end;

end.