ulookupagname.pas

港口货物管理系统

unit ulookupagname;

interface

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

type
  Tfmquerygname = class(TForm)
    TreeView1: TTreeView;
    Table1: TTable;
    DataSource1: TDataSource;
    Query1: TQuery;
    Query2: TQuery;
    DBGrid1: TDBGrid;
    Bevel1: TBevel;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    StatusBar1: TStatusBar;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    procedure FormCreate(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmquerygname: Tfmquerygname;

implementation

uses ulogin, udm_user, uprintdbgrid;

{$R *.dfm}

procedure Tfmquerygname.FormCreate(Sender: TObject);
var i:integer;
     node:ttreenode;
begin
application.OnMessage:=fmlogin.doenterastab;
node:=treeview1.Items.Add(nil,'钢材种类');
query1.First;
for i:=1 to query1.RecordCount do
begin
treeview1.Items.AddChild(node,query1.FieldValues['agname']);
query1.next;
end;
end;

procedure Tfmquerygname.TreeView1Click(Sender: TObject);
begin
query2.Close;
query2.sql.Clear;
query2.SQL.add('select distinct adime as 规格,aspec as 特性 from goodsspec where agname='''+treeview1.Selected.Text+'''');
query2.SQL.add(' order by adime');
query2.open;
statusbar1.Panels.Items[1].text:=treeview1.Selected.Text;
statusbar1.Panels[2].Text:=inttostr(query2.RecordCount)+' 条记录';
end;

procedure Tfmquerygname.BitBtn2Click(Sender: TObject);
begin
fmquerygname.Close;
end;

procedure Tfmquerygname.BitBtn1Click(Sender: TObject);
begin
fmuser.fmid:=3;
application.CreateForm(tfmprintdbgrid,fmprintdbgrid);
fmprintdbgrid.showmodal;
end;

end.