dyckdd1.pas

思微POS连锁超市管理系统 (商业代码),几年前的东西了

unit dycKdd1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Db, ADODB, RM_dset, RM_dbset, RM_class, RM_Desgn,
  dxTL, dxDBCtrl, dxDBGrid, dxCntner, RMD_ADO, RM_e_pdf, RM_e_Jpeg,
  RM_e_bmp, RM_e_emf, RM_e_Graphic, RM_e_htm, RM_e_csv, RM_e_main,
  RM_e_rtf, RM_e_txt, RM_DBChart, RM_Cross, RM_rrect, RM_BarC,
  RM_shape, RM_chbox, RM_rich, RM_GridView, RM_ole, RM_AngLbl, RM_DCtrl,
  DBTables;

type
  Tdyckdd = class(TForm)
    ADOTable1: TADOTable;
    ADOQuery1: TADOQuery;
    ADOTable2: TADOTable;
    DataSource2: TDataSource;
    ADOTable4: TADOTable;
    ADOTable2code: TStringField;
    ADOTable2name: TStringField;
    ADOTable2bm: TStringField;
    ADOTable2xb: TStringField;
    ADOTable2dh: TStringField;
    ADOTable2bz: TStringField;
    ADOTable1code: TStringField;
    ADOTable1name: TStringField;
    ADOTable1dz: TStringField;
    ADOTable1dh: TStringField;
    ADOTable1cz: TStringField;
    ADOTable1lxr: TStringField;
    ADOTable1bz: TStringField;
    ADOTable4code: TStringField;
    ADOTable4name: TStringField;
    ADOTable4lb: TStringField;
    ADOTable4jldw: TStringField;
    ADOTable4bzgg: TBCDField;
    ADOTable4barcode: TStringField;
    ADOTable4jhj: TBCDField;
    ADOTable4lsj: TBCDField;
    ADOTable4hyj: TBCDField;
    ADOTable4pfj: TBCDField;
    ADOTable4jqj: TBCDField;
    ADOTable4cxj: TBCDField;
    ADOTable4czspbm: TStringField;
    RMDesigner1: TRMDesigner;
    DataSource3: TDataSource;
    dxDBGrid1: TdxDBGrid;
    dxDBGrid1rplx: TdxDBGridMaskColumn;
    dxDBGrid1rpname: TdxDBGridMaskColumn;
    RMDADOComponents1: TRMDADOComponents;
    OpenDialog1: TOpenDialog;
    RMAngledLabelObject1: TRMAngledLabelObject;
    RMOLEObject1: TRMOLEObject;
    RMGridObject1: TRMGridObject;
    RMRichObject1: TRMRichObject;
    RMCheckBoxObject1: TRMCheckBoxObject;
    RMShapeObject1: TRMShapeObject;
    RMBarCodeObject1: TRMBarCodeObject;
    RMRoundRectObject1: TRMRoundRectObject;
    RMCrossObject1: TRMCrossObject;
    RMDBChartObject1: TRMDBChartObject;
    RMTextExport1: TRMTextExport;
    RMRTFExport1: TRMRTFExport;
    RMCSVExport1: TRMCSVExport;
    RMHTMExport1: TRMHTMExport;
    RMEMFExport1: TRMEMFExport;
    RMWMFExport1: TRMWMFExport;
    RMBMPExport1: TRMBMPExport;
    RMJPEGExport1: TRMJPEGExport;
    RMPDFExport1: TRMPDFExport;
    RMDialogControls1: TRMDialogControls;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn1: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn5: TBitBtn;
    RMReport1: TRMReport;
    RMDBDataSet1: TRMDBDataSet;
    DataSource1: TDataSource;
    ADOTable5: TADOTable;
    ADOTable5rplx: TStringField;
    ADOTable5rpname: TStringField;
    ADOTable5id: TAutoIncField;
    ADOTable5rpdata: TBlobField;
    ADOQuery2: TADOQuery;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    procedure FOnSaveReport_1(var Saved: Boolean);
    procedure FOnSaveReport_2(var Saved: Boolean);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dyckdd: Tdyckdd;

implementation

uses MainForm1, CKDD1;

{$R *.DFM}
type
  THackReport = class(TRMReport)
  end;

  THackDeisgner = class(TRMReportDesigner)
  end;

procedure Tdyckdd.FOnSaveReport_1(var Saved: Boolean);
begin
  if THackDeisgner(RMDesigner).Modify_flag then
  begin
    ADOTable5.Edit;
    RMReport1.SaveToMemoField(ADOTable5rpdata);
    ADOTable5.Post;
  end;
end;

procedure Tdyckdd.FOnSaveReport_2(var Saved: Boolean);
begin
  if THackDeisgner(RMDesigner).Modify_flag then
  begin
    ADOTable5.Append;
    ADOTable5rplx.Value := '仓库对调单';
    ADOTable5rpname.Value := '新建报表';
    RMReport1.SaveToMemoField(ADOTable5rpdata);
    ADOTable5.Post;
  end;
end;

procedure Tdyckdd.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := cafree;
end;

procedure Tdyckdd.BitBtn3Click(Sender: TObject);
begin
  if ADOTable5.FieldByName('rpname').ISnull then exit;
  RMReport1.LoadFromMemoField(ADOTable5rpdata);
  THackReport(RMReport1).FOnSaveReport := FOnSaveReport_1;
  RMReport1.DesignReport;
  THackReport(RMReport1).FOnSaveReport := nil;
end;

procedure Tdyckdd.BitBtn2Click(Sender: TObject);
begin
  if ADOTable5.FieldByName('rpname').ISnull then exit;
  RMReport1.LoadFromMemoField(ADOTable5rpdata);
  RMReport1.PrintReport;
end;

procedure Tdyckdd.BitBtn4Click(Sender: TObject);
begin
  if ADOTable5.FieldByName('rpname').ISnull then exit;
  RMReport1.LoadFromMemoField(ADOTable5rpdata);
  RMReport1.ShowReport;
end;

procedure Tdyckdd.BitBtn1Click(Sender: TObject);
begin
  RMReport1.Pages.Clear;
  THackReport(RMReport1).FOnSaveReport := FOnSaveReport_2;
  RMReport1.DesignReport;
  THackReport(RMReport1).FOnSaveReport := nil;
end;

procedure Tdyckdd.BitBtn6Click(Sender: TObject);
begin
  OpenDialog1.InitialDir := ExtractFilePath(ParamStr(0)) + 'report\';
  if OpenDialog1.Execute then
  begin
    RMReport1.LoadFromFile(OpenDialog1.FileName);
    RMReport1.ShowReport;
  end;
end;

procedure Tdyckdd.FormCreate(Sender: TObject);
begin
  if MainForm.Label4.Caption = 'SYSTEM' then
  begin
    BitBtn1.Enabled := true;
    BitBtn3.Enabled := true;
    dxDBGrid1rplx.ReadOnly := false;
    dxDBGrid1rpname.ReadOnly := false;
  end;
  ADOTable5.Filter := 'rplx=' + #39 + '仓库对调单' + #39;
end;

end.