dm_point_pas.pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit dm_point_pas;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables;

type
  Tdm_point = class(TDataModule)
    q_point: TQuery;
    ds_point: TDataSource;
    ds_point_view: TDataSource;
    q_point_view: TQuery;
    q_find: TQuery;
    q_pointId: TAutoIncField;
    q_pointNode: TStringField;
    q_pointLinename: TStringField;
    q_pointName: TStringField;
    q_pointNodeplace: TStringField;
    q_pointLseq: TSmallintField;
    q_pointNtime: TSmallintField;
    q_point_viewlinename: TStringField;
    q_point_viewnode: TStringField;
    q_point_viewlseq: TSmallintField;
    q_point_viewname: TStringField;
    q_point_viewnodeplace: TStringField;
    q_point_viewntime: TSmallintField;
    q_findlinename: TStringField;
    q_findnode: TStringField;
    q_findlseq: TSmallintField;
    q_findname: TStringField;
    q_findnodeplace: TStringField;
    q_findntime: TSmallintField;
    q_line: TQuery;
    ds_line: TDataSource;
    q_linelinename: TStringField;
    q_point_ls: TQuery;
    AutoIncField1: TAutoIncField;
    StringField1: TStringField;
    StringField2: TStringField;
    StringField3: TStringField;
    StringField4: TStringField;
    SmallintField1: TSmallintField;
    SmallintField2: TSmallintField;
    q_lseq: TQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm_point: Tdm_point;

implementation

{$R *.DFM}

end.