productinfo.pas

来自「产品信息系统!关于产品基础信息的系统!功能强大!」· PAS 代码 · 共 943 行 · 第 1/3 页

unit ProductInfo;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseDefine, StdCtrls, ExtCtrls, DBCtrls, DBCtrlsEh, Mask,
  wwDialog, wwidlg, DB, ADODB, ActnList, ComCtrls, ToolWin, Grids, DBGridEh,
  Menus, cxControls, cxContainer, cxEdit, cxImage, cxDBEdit, frxClass,
  frxDBSet,ShellAPI, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxDBData, cxGridLevel, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid,
  cxBlobEdit,jpeg, wwdblook, dxCntner, dxEditor, dxExEdtr, dxExGrEd,
  dxExELib, dxLayout;

type
  TfrmProductInfo = class(TfrmBaseDefine)
    GroupBox2: TGroupBox;
    Splitter1: TSplitter;
    GroupBox3: TGroupBox;
    Splitter2: TSplitter;
    DBGridEh3: TDBGridEh;
    Panel1: TPanel;
    Panel2: TPanel;
    ListBox1: TListBox;
    Splitter3: TSplitter;
    QCc: TADOQuery;
    DsCc: TDataSource;
    QGy: TADOQuery;
    DsGy: TDataSource;
    QCcCc_ID: TBCDField;
    QCcfID: TBCDField;
    QCcXh: TStringField;
    QCcSizes: TStringField;
    QCcNames: TStringField;
    QCcDatas: TBCDField;
    QCcInputer: TStringField;
    QCcPerfecter: TStringField;
    QCcTime_Perfect: TDateTimeField;
    QCcSave_Time: TDateTimeField;
    QCcSort: TIntegerField;
    QCcRemark: TStringField;
    QCcMaterial: TStringField;
    QCcColor: TStringField;
    QCcUpperLimit: TBCDField;
    QCcLowerLimit: TBCDField;
    QGyGy_ID: TBCDField;
    QGyfid: TBCDField;
    QGyxh: TStringField;
    QGysizes: TStringField;
    QGyplant: TStringField;
    QGyart: TStringField;
    QGynotice: TStringField;
    DBGridEh2: TDBGridEh;
    PopupMenu1: TPopupMenu;
    N3: TMenuItem;
    PopupMenu2: TPopupMenu;
    MenuItem3: TMenuItem;
    QGysave_time: TDateTimeField;
    QGyinputer: TStringField;
    QGytime_input: TDateTimeField;
    QGyperfecter: TStringField;
    QGytime_perfect: TDateTimeField;
    QBaseInfoId: TBCDField;
    QBaseInfoXh: TStringField;
    QBaseInfoRemark: TStringField;
    QBaseInfoInputer: TStringField;
    QBaseInfoTime_Input: TDateTimeField;
    QBaseInfoPerfecter: TStringField;
    QBaseInfoTime_Perfect: TDateTimeField;
    QBaseInfoSave_Time: TDateTimeField;
    QBaseInfoSizes: TStringField;
    QBaseInfoTechnicsPic: TBlobField;
    QBaseInfoGrainCount: TBCDField;
    QBaseInfoMaterial: TStringField;
    QBaseInfoArea_plate: TBCDField;
    QBaseInfoPrice_material: TBCDField;
    QBaseInfoPrice_plate: TBCDField;
    QBaseInfoPrice_spray: TBCDField;
    QBaseInfoStandOneSortNo: TStringField;
    QBaseInfoStandOneSortName: TStringField;
    QBaseInfoPhoto: TBlobField;
    QBaseInfoAuditer: TStringField;
    QBaseInfoTime_Audit: TDateTimeField;
    QBaseInfosign_Audit: TBooleanField;
    QBaseInfosign_Artdept: TBooleanField;
    QBaseInfoNumber: TStringField;
    QGysort: TIntegerField;
    QCcTime_Input: TDateTimeField;
    QPublic: TADOQuery;
    QBaseInfoArtdepter: TStringField;
    QBaseInfoTime_Artdept: TDateTimeField;
    frxDBDataset1: TfrxDBDataset;
    frxDBDataset2: TfrxDBDataset;
    frxDBDataset3: TfrxDBDataset;
    frxDBDataset4: TfrxDBDataset;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    cxDBImage1: TcxDBImage;
    Label14: TLabel;
    Button4: TButton;
    Button5: TButton;
    Label29: TLabel;
    DBText1: TDBText;
    TabSheet2: TTabSheet;
    QLSDA: TADOQuery;
    DSLSDA: TDataSource;
    Splitter4: TSplitter;
    Label21: TLabel;
    DBMemo3: TDBMemo;
    Label22: TLabel;
    Splitter8: TSplitter;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label13: TLabel;
    Label12: TLabel;
    Label11: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label8: TLabel;
    DBDateTimeEditEh1: TDBDateTimeEditEh;
    Label7: TLabel;
    Label9: TLabel;
    DBDateTimeEditEh2: TDBDateTimeEditEh;
    DBDateTimeEditEh3: TDBDateTimeEditEh;
    Label15: TLabel;
    Label16: TLabel;
    DBDateTimeEditEh4: TDBDateTimeEditEh;
    Label17: TLabel;
    Label18: TLabel;
    Label10: TLabel;
    DBCheckBox1: TDBCheckBox;
    QBaseInfosign_Design: TBooleanField;
    TabSheet3: TTabSheet;
    QGytechnics: TStringField;
    QCcplant: TStringField;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1Level1: TcxGridLevel;
    cxGrid1: TcxGrid;
    QKHTS: TADOQuery;
    DSKHTS: TDataSource;
    cxGrid2: TcxGrid;
    cxGridDBTableView1: TcxGridDBTableView;
    cxGridLevel1: TcxGridLevel;
    cxGridDBTableView1dates: TcxGridDBColumn;
    cxGridDBTableView1hth: TcxGridDBColumn;
    cxGridDBTableView1buyer: TcxGridDBColumn;
    cxGridDBTableView1Slip_text: TcxGridDBColumn;
    cxGridDBTableView1Weight: TcxGridDBColumn;
    cxGridDBTableView1Grain: TcxGridDBColumn;
    cxGridDBTableView1Amount: TcxGridDBColumn;
    cxGridDBTableView1Liabler: TcxGridDBColumn;
    cxGridDBTableView1Up_date: TcxGridDBColumn;
    cxGridDBTableView1Manage: TcxGridDBColumn;
    cxGridDBTableView1Checker: TcxGridDBColumn;
    cxGridDBTableView1Liable_dept: TcxGridDBColumn;
    cxGridDBTableView1remark: TcxGridDBColumn;
    cxGridDBTableView1images: TcxGridDBColumn;
    cxGridDBTableView1Sum_losing: TcxGridDBColumn;
    cxGridDBTableView1Direct_losing: TcxGridDBColumn;
    QLSDAID: TBCDField;
    QLSDAdates: TDateTimeField;
    QLSDAhth: TStringField;
    QLSDAbuyer: TStringField;
    QLSDAxh: TStringField;
    QLSDAsizes: TStringField;
    QLSDAWeight: TBCDField;
    QLSDAGrain: TBCDField;
    QLSDAAmount: TBCDField;
    QLSDALiabler: TStringField;
    QLSDAUp_date: TDateTimeField;
    QLSDAChecker: TStringField;
    QLSDALiable_dept: TStringField;
    QLSDAremark: TStringField;
    QLSDAimages: TBlobField;
    QLSDAsavedate: TDateTimeField;
    QLSDAinputer: TStringField;
    QLSDASum_losing: TBCDField;
    QLSDADirect_losing: TBCDField;
    QLSDAmachine_No: TStringField;
    QLSDAworking_procedure: TStringField;
    cxGridDBTableView1technics: TcxGridDBColumn;
    QLSDAtechnics: TStringField;
    cxGridDBTableView1working_procedure: TcxGridDBColumn;
    cxGridDBTableView1machine_No: TcxGridDBColumn;
    cxGrid1DBTableView1ournal_No: TcxGridDBColumn;
    cxGrid1DBTableView1Appeal_Date: TcxGridDBColumn;
    cxGrid1DBTableView1buyer: TcxGridDBColumn;
    cxGrid1DBTableView1hth: TcxGridDBColumn;
    cxGrid1DBTableView1Appeal_text: TcxGridDBColumn;
    cxGrid1DBTableView1checks: TcxGridDBColumn;
    cxGrid1DBTableView1Solve: TcxGridDBColumn;
    cxGrid1DBTableView1Liabler: TcxGridDBColumn;
    cxGrid1DBTableView1Manage: TcxGridDBColumn;
    cxGrid1DBTableView1Stresser: TcxGridDBColumn;
    cxGrid1DBTableView1type: TcxGridDBColumn;
    cxGrid1DBTableView1Liable_dept: TcxGridDBColumn;
    cxGrid1DBTableView1remark: TcxGridDBColumn;
    cxGrid1DBTableView1image: TcxGridDBColumn;
    cxGrid1DBTableView1technics: TcxGridDBColumn;
    QKHTSid: TBCDField;
    QKHTSournal_No: TStringField;
    QKHTSAppeal_Date: TDateTimeField;
    QKHTSbuyer: TStringField;
    QKHTShth: TStringField;
    QKHTSxh: TStringField;
    QKHTSsizes: TStringField;
    QKHTSAppeal_text: TMemoField;
    QKHTSchecks: TMemoField;
    QKHTSSolve: TMemoField;
    QKHTSLiabler: TStringField;
    QKHTSManage: TMemoField;
    QKHTSStresser: TStringField;
    QKHTStype: TStringField;
    QKHTSLiable_dept: TStringField;
    QKHTSremark: TStringField;
    QKHTSimage: TBlobField;
    QKHTSsavedate: TDateTimeField;
    QKHTStechnics: TStringField;
    frxDBDataset5: TfrxDBDataset;
    QLSDASlip_text: TMemoField;
    QLSDAManage: TMemoField;
    QBaseInfobigpic: TBlobField;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit13: TDBEdit;
    DBEdit12: TDBEdit;
    DBEdit11: TDBEdit;
    DBEdit7: TDBEdit;
    QBaseInfosign: TStringField;
    Button1: TButton;
    Label19: TLabel;
    DBEdit14: TDBEdit;
    Qplate: TADOQuery;
    DSplate: TDataSource;
    dxDBExtLookupEdit1: TdxDBExtLookupEdit;
    DBText2: TDBText;
    QBaseInfoPlate_no: TStringField;
    QBaseInfoPlate: TStringField;
    QBaseInfosplate_no: TStringField;
    dxDBGridLayoutList1: TdxDBGridLayoutList;
    dxDBGridLayoutList1Item1: TdxDBGridLayout;
    QCcPlate_no: TStringField;
    QCcPlate: TStringField;
    QGyPlate_no: TStringField;
    QGyplate: TStringField;
    QLSDAPlate: TStringField;
    QLSDAPlate_no: TStringField;
    QLSDAproduct_line: TStringField;
    QKHTSPlate: TStringField;
    QKHTSPlate_no: TStringField;
    QKHTSproduct_line: TStringField;
    Qplateplate_no: TStringField;
    Qplateplate_name: TStringField;
    frxReport2: TfrxReport;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    Label4: TLabel;
    Label20: TLabel;
    QBaseInfoModel_No: TStringField;
    QBaseInfoEmpolder_No: TStringField;
    procedure QBaseInfoNewRecord(DataSet: TDataSet);
    procedure dsBaseInfoStateChange(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure MenuItem3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure QBaseInfoBeforePost(DataSet: TDataSet);
    procedure acFindExecute(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure QBaseInfoAfterScroll(DataSet: TDataSet);
    procedure acPrintExecute(Sender: TObject);
    procedure QCcNewRecord(DataSet: TDataSet);
    procedure QCcAfterScroll(DataSet: TDataSet);
    procedure acExportExecute(Sender: TObject);
    procedure QGyNewRecord(DataSet: TDataSet);
    procedure QGyAfterScroll(DataSet: TDataSet);
    procedure frxReport2GetValue(const VarName: String;
      var Value: Variant);
    procedure cxGridDBTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetText(
      Sender: TcxDataSummaryItem; const AValue: Variant;
      AIsFooter: Boolean; var AText: String);
    procedure dsBaseInfoDataChange(Sender: TObject; Field: TField);
    procedure QGyBeforePost(DataSet: TDataSet);
    procedure QBaseInfoBeforeOpen(DataSet: TDataSet);
    procedure DsGyDataChange(Sender: TObject; Field: TField);
    procedure cxDBImage1Click(Sender: TObject);
    procedure acNewExecute(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProductInfo: TfrmProductInfo;
  oldsort,oldsorts: Integer;
  fplant:string;
implementation
uses DataModule,Global,LookUpGeneralCcinput,InfoImport,pasBom;
{$R *.dfm}

procedure TfrmProductInfo.QBaseInfoNewRecord(DataSet: TDataSet);
var