f_sel_prod.pas

来自「用Delphi 开发的一个 户籍管理系统」· PAS 代码 · 共 92 行

unit f_sel_prod;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxEdit,
  DB, cxDBData, ADODB, cxGridLevel, cxGridCustomTableView, cxGridTableView,
  cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
  ExtCtrls, SUIForm, SUIMgr, cxDataStorage, ComCtrls, ToolWin, SUIToolBar,
  StdCtrls, cxDBLookupComboBox, Grids, DBGrids, cxCheckBox, cxContainer,
  cxListView, dxdbtrel, cxTextEdit, cxMaskEdit, cxDropDownEdit,
  cxLookupEdit, cxDBLookupEdit;

type
  Tfm_sel_prod = class(TForm)
    adoprod: TADODataSet;
    dsprod: TDataSource;
    suiForm1: TsuiForm;
    suiToolBar1: TsuiToolBar;
    btn_query: TToolButton;
    edt_prod: TEdit;
    btn_exit: TToolButton;
    adoprodid: TIntegerField;
    adoprodname: TStringField;
    adoprodspec: TStringField;
    adoprodprice: TBCDField;
    adoprodunit: TStringField;
    adoprodmap: TStringField;
    ToolButton1: TToolButton;
    adoprodtype: TIntegerField;
    adoprodjp: TStringField;
    adoprodwb: TStringField;
    adoprodqty: TBCDField;
    adoproddepot: TIntegerField;
    Splitter1: TSplitter;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    adoprodtypename: TStringField;
    adoprodch: TBooleanField;
    Label1: TLabel;
    ToolButton4: TToolButton;
    edt_type: TdxLookupTreeView;
    cxGrid1: TcxGrid;
    tv_prod: TcxGridDBTableView;
    lv_prod: TcxGridLevel;
    adoprodremark: TStringField;
    adoprodsno: TIntegerField;
    Label2: TLabel;
    adoprodseltype: TIntegerField;
    edt_seltype: TcxLookupComboBox;
    lmn__prodid: TcxGridDBColumn;
    lmn__prodname: TcxGridDBColumn;
    lmn__prodspec: TcxGridDBColumn;
    lmn__prodprice: TcxGridDBColumn;
    lmn__produnit: TcxGridDBColumn;
    lmn__prodmap: TcxGridDBColumn;
    lmn__prodtype: TcxGridDBColumn;
    lmn__prodjp: TcxGridDBColumn;
    lmn__prodwb: TcxGridDBColumn;
    lmn__prodqty: TcxGridDBColumn;
    lmn__proddepot: TcxGridDBColumn;
    lmn__prodtypename: TcxGridDBColumn;
    lmn__prodch: TcxGridDBColumn;
    lmn__prodremark: TcxGridDBColumn;
    lmn__prodsno: TcxGridDBColumn;
    lmn__prodseltype: TcxGridDBColumn;
    procedure btn_exitClick(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    sql: AnsiString;
    selectorder: integer;
  end;

var
  fm_sel_prod: Tfm_sel_prod;

implementation
uses f_main, f_rdb;
{$R *.dfm}

procedure Tfm_sel_prod.btn_exitClick(Sender: TObject);
begin
  ModalResult:=mrCancel;
end;

end.