untfitstore.pas

自己做的一个例子

unit UntFitStore;

interface

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

type
  TFrm_FitStore = class(TForm)
    Qry_Main: TADOQuery;
    Qry_Type: TADOQuery;
    Ds_Type: TDataSource;
    Ds_Main: TDataSource;
    Grd_Type: TDBGrid;
    Panel1: TPanel;
    Splitter1: TSplitter;
    Grd_Main: TDBGrid;
    cmd_Refresh: TBitBtn;
    cmd_Find: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure cmd_RefreshClick(Sender: TObject);
    procedure cmd_FindClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_FitStore: TFrm_FitStore;

implementation
Uses Unit1, Gs_DataFunction, GsDefineTypes, GsCommDataFunction;

{$R *.dfm}

procedure TFrm_FitStore.FormCreate(Sender: TObject);
begin
    grd_Main.Align:=alClient;
end;

procedure TFrm_FitStore.cmd_RefreshClick(Sender: TObject);
Var FD:TField;
begin
    //类别
    With Qry_Type do
    Try
        Close;
        SQL.Text:='Select sName, sID From FitType ';
        Open;
        //
        SetFieldView(Qry_Type,'sID','编号',10,False);
        SetFieldView(Qry_Type,'sName','物品类别',16);
    Except
        On E:Exception do Exit;
    End;
    //库存
    With Qry_Main do
    Try
        Close;
        SQL.Text:='Select Base.sName, Base.sModel, Base.sUnit, ST.nCount, Base.sType, ST.sFitID ';
        SQL.Add('From Fittings As Base Inner Join FitStore as ST On ST.sFitID=Base.sID ');
        SQL.Add('Where ST.sStoreID=''00000'' And Base.sType=:sID');
        Open;
        //
        FieldByname('sType').Visible:=False;
        FieldByName('sName').DisplayLabel:='名称';
        FieldByName('sModel').DisplayLabel:='规格';
        FieldByName('sUnit').DisplayLabel:='单位';
        FieldByName('nCount').DisplayLabel:='数量';
        //
        SetFieldView(Qry_Main,'sType','',10,False);
        SetFieldView(Qry_Main,'sFitID','',10,False);
        SetFieldView(Qry_Main,'sName','名称',16);
    Except
        On E:Exception do ShowMessage('查询出错！'+#13+E.Message);
    End;
end;

procedure TFrm_FitStore.cmd_FindClick(Sender: TObject);
Var BS:_SelectBase;   //_BaseInfo
    Conn:TAdoConnection;
begin
    BS.Version.dwMajorVersion:=2;   //主版本号
    BS.sTable:='Fittings';
    //
    With Qry_Main do
    Try
        Conn:=Qry_Main.Connection;
        If Not GsCommDataFunction.SelectBase(@Conn,'',@BS) then Exit;
        //
        Locate('sFitID',BS.vSelectedID,[]);
    Except
        On E:Exception do ShowMessage('物品'+BS.vSelectedName+'查找失败！'+#13+E.Message);
    End;
end;

end.