u_main.pas

该程序是用Delphi开发的斑马打印机支持系统

unit U_Main;

interface

uses
  SysUtils, Classes, DB, DBAccess, Ora, MemDS, ADODB;

type
  TDM = class(TDataModule)
    OS: TOraSession;
    QWrapping: TOraQuery;
    DS_QWrapping: TOraDataSource;
    QWrappingPLANNO: TStringField;
    QWrappingMATNR: TStringField;
    QWrappingCHARG: TStringField;
    QWrappingFLAG: TStringField;
    QWrappingRUKU: TFloatField;
    QWrappingXBLNR: TFloatField;
    QWrappingPMN: TStringField;
    QWrappingBRANDNO: TStringField;
    QWrappingPAPERKIND: TStringField;
    QWrappingGWEIGHT: TFloatField;
    QWrappingGRADE: TStringField;
    QWrappingSPECIFICATION: TStringField;
    QWrappingCPID: TStringField;
    QWrappingMPID: TStringField;
    QWrappingNTGEW: TFloatField;
    QWrappingAREA: TStringField;
    QWrappingSTATUS: TStringField;
    QWrappingMEMO: TStringField;
    QWrappingJIANYANDATE: TStringField;
    QWrappingJIANYANID: TStringField;
    QWrappingPAPER_FORMTXT: TStringField;
    QWrappingADATE: TStringField;
    QWrappingCLASSNO: TStringField;
    QWrappingSHIFTNO: TStringField;
    QWrappingSFID: TStringField;
    QWrappingFF: TStringField;
    QWrappingISLOAD: TStringField;
    QWrappingPRINT_F: TStringField;
    QWrappingDATEIN: TDateTimeField;
    QWrappingPKSH: TIntegerField;
    QWrappingSHPL: TIntegerField;
    QWrappingPKPL: TIntegerField;
    QWrappingUSERNO: TStringField;
    QWrappingRESERVERNO: TStringField;
    QWrappingRESERVERITEM: TStringField;
    QWrappingPLANID: TStringField;
    QWrappingPLANID_ITEMNO: TStringField;
    QWrappingLAYOUT: TStringField;
    QWrappingSKU: TStringField;
    QWrappingMACHINENO_W: TStringField;
    QWrappingMACHINENO_L: TStringField;
    QWrappingT0436T: TStringField;
    QWrappingT0438T: TStringField;
    QWrappingT0439T: TStringField;
    QWrappingT0440T: TStringField;
    QWrappingT0468T: TStringField;
    QWrappingT0460T: TStringField;
    ADOConnection1: TADOConnection;
    ADOQuery3: TADOQuery;
    METEOR_Insert: TADOQuery;
    ADODelete: TADOQuery;
    QWrappingT0448: TFloatField;
    QFree2: TOraQuery;
    QWrappingT0436: TStringField;
    QSysdate: TOraQuery;
    HR_Insert: TADOQuery;
    HR_Delete: TADOQuery;
    A: TOraQuery;
    QWrappingT0422: TStringField;
    QWrappingT0423: TStringField;
    QWrappingT0426: TStringField;
    QWrappingT0421: TFloatField;
    procedure QWrappingISLOADGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure QWrappingPRINT_FGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure QWrappingSTATUSGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DM: TDM;

implementation

{$R *.dfm}

procedure TDM.QWrappingISLOADGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if sender.AsString ='Y' then
    text :='√'
  else
    text :='' ;
end;

procedure TDM.QWrappingPRINT_FGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if sender.AsString ='Y' then
    text :='√'
  else
    text :='' ;
end;

procedure TDM.QWrappingSTATUSGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  if (sender.AsString ='Y') OR (Sender.AsString = 'C') then
    text :='√'
  else
    text :='' ;
end;

end.