ser200_01.pas.svn-base

这是一个功能齐全的,代码完整的ERP企业信息管理系统,现在上传和大家分享

unit Ser200_01;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Bas200_03, dxExEdtr, ActnList, DB, ADODB, Menus, dxCntner, dxTL,
  dxDBCtrl, dxDBGrid, ExtCtrls, ComCtrls, ToolWin, Buttons, StdCtrls,
  dxDBTLCl, dxGrClms;

type
  TSer200_01Form = class(TBas200_03Form)
    lblCust: TLabel;
    edtCust: TEdit;
    sbCust: TSpeedButton;
    lblItem: TLabel;
    edtItem: TEdit;
    SpeedButton1: TSpeedButton;
    lblMachine: TLabel;
    edtMachine: TEdit;
    SpeedButton2: TSpeedButton;
    sbSearch: TSpeedButton;
    qryOrd150: TADOQuery;
    qryOrd150O150_001: TIntegerField;
    qryOrd150O150_002: TWideStringField;
    qryOrd150O150_003: TWideStringField;
    qryOrd153: TADOQuery;
    qryOrd153O153_001: TIntegerField;
    qryOrd153O153_002: TIntegerField;
    qryOrd153O153_003: TWideStringField;
    qryOrd153O153_011: TWideStringField;
    qryOrd153I150_003: TWideStringField;
    qryOrd153I150_002: TWideStringField;
    ADOQuery1S500_001: TWideStringField;
    ADOQuery1S500_002: TWideStringField;
    ADOQuery1S500_005: TSmallintField;
    ADOQuery1S500_006: TSmallintField;
    ADOQuery1S500_007: TDateTimeField;
    ADOQuery1S500_008: TIntegerField;
    ADOQuery1S500_009: TBCDField;
    ADOQuery1S500_010: TIntegerField;
    ADOQuery1S500_011: TWideStringField;
    ADOQuery1S500_012: TWideStringField;
    ADOQuery1S500_013: TWideStringField;
    ADOQuery1S500_014: TWideStringField;
    ADOQuery1S500_015: TSmallintField;
    ADOQuery1S500_016: TWideStringField;
    ADOQuery1S500_017: TIntegerField;
    ADOQuery1S500_019: TWideStringField;
    ADOQuery1S500_020: TBooleanField;
    ADOQuery1S500_027: TBooleanField;
    ADOQuery1S500_028: TDateTimeField;
    ADOQuery1S500_029: TDateTimeField;
    ADOQuery1S500_030: TDateTimeField;
    ADOQuery1S500_031: TDateTimeField;
    ADOQuery1S500_032: TSmallintField;
    ADOQuery1S500_033: TMemoField;
    ADOQuery1S500_034: TDateTimeField;
    ADOQuery1S500_035: TWideStringField;
    ADOQuery1S500_036: TDateTimeField;
    ADOQuery1S500_037: TWideStringField;
    ADOQuery1S110_003: TWideStringField;
    ADOQuery1s100_003: TIntegerField;
    dxDBGrid1S500_001: TdxDBGridColumn;
    dxDBGrid1S500_002: TdxDBGridColumn;
    dxDBGrid1S500_005: TdxDBGridMaskColumn;
    dxDBGrid1S500_006: TdxDBGridMaskColumn;
    dxDBGrid1S500_007: TdxDBGridDateColumn;
    dxDBGrid1S500_008: TdxDBGridMaskColumn;
    dxDBGrid1S500_009: TdxDBGridCurrencyColumn;
    dxDBGrid1S500_010: TdxDBGridMaskColumn;
    dxDBGrid1S500_011: TdxDBGridColumn;
    dxDBGrid1S500_012: TdxDBGridColumn;
    dxDBGrid1S500_013: TdxDBGridColumn;
    dxDBGrid1S500_014: TdxDBGridColumn;
    dxDBGrid1S500_015: TdxDBGridMaskColumn;
    dxDBGrid1S500_016: TdxDBGridColumn;
    dxDBGrid1S500_017: TdxDBGridMaskColumn;
    dxDBGrid1S500_019: TdxDBGridColumn;
    dxDBGrid1S500_020: TdxDBGridCheckColumn;
    dxDBGrid1S500_027: TdxDBGridCheckColumn;
    dxDBGrid1S500_028: TdxDBGridDateColumn;
    dxDBGrid1S500_029: TdxDBGridDateColumn;
    dxDBGrid1S500_030: TdxDBGridDateColumn;
    dxDBGrid1S500_031: TdxDBGridDateColumn;
    dxDBGrid1S500_032: TdxDBGridMaskColumn;
    dxDBGrid1S500_034: TdxDBGridDateColumn;
    dxDBGrid1S500_035: TdxDBGridColumn;
    dxDBGrid1S500_036: TdxDBGridDateColumn;
    dxDBGrid1S500_037: TdxDBGridColumn;
    dxDBGrid1S110_003: TdxDBGridColumn;
    dxDBGrid1S100_003: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure sbCustClick(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure ActPrintExecute(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    { Public declarations }
  end;

var
  Ser200_01Form: TSer200_01Form;

implementation

uses SYSDATA, CommFun, HwSelData;

{$R *.dfm}
var
  ACust,AItem,AMachine:string;

procedure TSer200_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('SER20001001');  //来电历史查詢
  ADOQuery1S500_001.DisplayLabel:=GetDBString('SER20001002');  //来电编号
  ADOQuery1S500_002.DisplayLabel:=GetDBString('SER20001003');  //来电名称
  ADOQuery1S500_005.DisplayLabel:=GetDBString('SER20001004');  //优先级别
  ADOQuery1S500_006.DisplayLabel:=GetDBString('SER20001005');  //来电类型
  ADOQuery1S500_007.DisplayLabel:=GetDBString('SER20001006');  //来电日期
  ADOQuery1S500_008.DisplayLabel:=GetDBString('SER20001007');  //来电时间
  ADOQuery1S500_009.DisplayLabel:=GetDBString('SER20001008');  //接听时间                                                                              
  ADOQuery1S500_010.DisplayLabel:=GetDBString('SER20001009');  //受理人员                                                                              
  ADOQuery1S500_011.DisplayLabel:=GetDBString('SER20001010');  //来电人员                                                                              
  ADOQuery1S500_012.DisplayLabel:=GetDBString('SER20001011');  //部门名称                                                                              
  ADOQuery1S500_013.DisplayLabel:=GetDBString('SER20001012');  //职务名称                                                                              
  ADOQuery1S500_014.DisplayLabel:=GetDBString('SER20001013');  //联系电话                                                                              
  ADOQuery1S500_015.DisplayLabel:=GetDBString('SER20001014');  //单据类型                                                                              
  ADOQuery1S500_016.DisplayLabel:=GetDBString('SER20001015');  //单据编号                                                                              
  ADOQuery1S500_017.DisplayLabel:=GetDBString('SER20001016');  //客戶编号                                                                              
  ADOQuery1S500_019.DisplayLabel:=GetDBString('SER20001017');  //机身编号                                                                              
  ADOQuery1S500_020.DisplayLabel:=GetDBString('SER20001018');  //是否派工                                                                              
  ADOQuery1S500_027.DisplayLabel:=GetDBString('SER20001019');  //是否报价                                                                              
  ADOQuery1S500_028.DisplayLabel:=GetDBString('SER20001020');  //保养开始日期                                                                          
  ADOQuery1S500_029.DisplayLabel:=GetDBString('SER20001021');  //保养完成日期                                                                          
  ADOQuery1S500_030.DisplayLabel:=GetDBString('SER20001022');  //续保开始日期                                                                          
  ADOQuery1S500_031.DisplayLabel:=GetDBString('SER20001023');  //续保完成日期                                                                          
  ADOQuery1S500_032.DisplayLabel:=GetDBString('SER20001024');  //产品来源                                                                              
  ADOQuery1S500_033.DisplayLabel:=GetDBString('SER20001025');  //来电内容                                                                              
  ADOQuery1S500_034.DisplayLabel:=GetDBString('SER20001026');  //制单日期                                                                              
  ADOQuery1S500_035.DisplayLabel:=GetDBString('SER20001027');  //制单人员                                                                              
  ADOQuery1S500_036.DisplayLabel:=GetDBString('SER20001028');  //修改日期                                                                              
  ADOQuery1S500_037.DisplayLabel:=GetDBString('SER20001029');  //修改人员                                                                              
  ADOQuery1S110_003.DisplayLabel:=GetDBString('SER20001030');  //来电状态                                                                              
  ADOQuery1S100_003.DisplayLabel:=GetDBString('SER20001031');  //来电类别
//  ADOQuery1O153_002.DisplayLabel:=GetDBString('SER20001032');  //产品编号
//  ADOQuery1O153_003.DisplayLabel:=GetDBString('SER20001033');  //机身编号
  lblCust.Caption:=GetDBString('SER20001034');  //客户编号
  lblItem.Caption:=GetDBString('SER20001035');  //产品编号
  lblMachine.Caption:=GetDBString('SER20001036');  //机身编号
  sbSearch.Caption:=GetDBString('SER20001037');  //查询
end;

procedure TSer200_01Form.FormCreate(Sender: TObject);
begin
  inherited;
  SetInterface;
  sbSearch.Click;
end;

procedure TSer200_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
//
end;

procedure TSer200_01Form.sbSearchClick(Sender: TObject);
var
  ACust,AItem,AMachine:string;
begin
  inherited;