dmc32.pas

delphi框架可以学习, 写的很好的

unit dmc32;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdmc = class(TDataModule)
    conn: TADOConnection;
    qryFind1: TADOQuery;
    qryFind2: TADOQuery;
    qryFind3: TADOQuery;
    qryFind4: TADOQuery;
    qryFind5: TADOQuery;
    qryFind6: TADOQuery;
    qryFind7: TADOQuery;
    qryFind8: TADOQuery;
    qryFind9: TADOQuery;
    qryFind10: TADOQuery;
    qryFind13: TADOQuery;
    qryFind14: TADOQuery;
    qryFind11: TADOQuery;
    qryFind12: TADOQuery;
    qryFind15: TADOQuery;
    qryFind16: TADOQuery;
    qryFind17: TADOQuery;
    qryFind18: TADOQuery;
    qryCpys: TADOQuery;
    dsCpys: TDataSource;
    qryCpfk: TADOQuery;
    dsCpfk: TDataSource;
    qryCpzz: TADOQuery;
    dsCpzz: TDataSource;
    qryYldm: TADOQuery;
    dsYldm: TDataSource;
    qryYldmSer: TAutoIncField;
    qryYldmCode: TStringField;
    qryYldmSYFW: TStringField;
    qryYldmFactory: TStringField;
    qryYldmLX: TStringField;
    qryYldmFG: TStringField;
    qryYldmGG: TStringField;
    qryYldmSRRQ: TDateTimeField;
    qryYldmCZY: TStringField;
    qryYldmPrice: TFloatField;
    qryYldmJGRQ: TDateTimeField;
    qryYldmSHRQ: TDateTimeField;
    qryYldmSHR: TStringField;
    qryYldmSHBZ: TIntegerField;
    qryYldmCSRQ: TDateTimeField;
    qryYldmCSR: TStringField;
    qryHcllx: TADOQuery;
    dsHcllx: TDataSource;
    qryYldmZS: TStringField;
  private
    { Private declarations }
    procedure OpenBaseData(DataSet: TDataSet; _FZLX: String); //打开基础数据
  public
    { Public declarations }
    procedure OpenCpys(Switch: Boolean);  //打开成品颜色
    procedure OpenCpfk(Switch: Boolean);  //打开成品幅宽
    procedure OpenCpzz(Switch: Boolean);  //打开成品组织
    procedure OpenHcllx(Switch: Boolean); //打开后处理类型
  end;

var
  dmc: Tdmc;

implementation

uses MyPublic;

{$R *.dfm}

{ Tdmc }

procedure Tdmc.OpenBaseData(DataSet: TDataSet; _FZLX: String); //打开基础数据
begin
  OpenDataSet(DataSet, 'SELECT CODE +'' = ''+ NAME AS LISTFIELD, NAME AS KEYFIELD FROM CODER'+
                       ' WHERE ISOK='+ IntToStr(SHBZ_OK) +' AND FZLX='''+ _FZLX +'''');
end;

procedure Tdmc.OpenCpfk(Switch: Boolean); //打开成品幅宽
begin
  if not Switch then qryCpfk.Close
                else OpenBaseData(qryCpfk, 'BASE_FKFW');
end;

procedure Tdmc.OpenCpys(Switch: Boolean); //打开成品颜色
begin
  if not Switch then qryCpys.Close
                else OpenBaseData(qryCpys, 'BASE_YSMC');
end;

procedure Tdmc.OpenCpzz(Switch: Boolean); //打开成品组织
begin
  if not Switch then qryCpzz.Close
                else OpenBaseData(qryCpzz, 'BASE_CPZZ');
end;

procedure Tdmc.OpenHcllx(Switch: Boolean); //打开后处理类型
begin
  if not Switch then qryHcllx.Close
                else OpenBaseData(qryHcllx, 'BASE_HCLPRICE');
end;

end.