📄 ser500_01.pas.svn-base

📁 一个用Delphi开发的ERP软件
💻 SVN-BASE
📖 第 1 页 / 共 2 页
字号:
12 下一页
unit Ser500_01;

interface

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

type
  TSer500_01Form = class(TBas200_10Form)
    lblDate: TLabel;
    sbSearch: TSpeedButton;
    lblClass: TLabel;
    edtFromDate: TwwDBDateTimePicker;
    edtToDate: TwwDBDateTimePicker;
    cbClass: TComboBox;
    qryInv150: TADOQuery;
    qryInv150I150_001: TAutoIncField;
    qryInv150I150_002: TWideStringField;
    qryInv150I150_003: TWideStringField;
    ADOQuery1S500_001: TWideStringField;
    ADOQuery1S500_002: TWideStringField;
    ADOQuery1S100_002: TWideStringField;
    ADOQuery1S110_003: TWideStringField;
    ADOQuery1S500_005: TSmallintField;
    ADOQuery1S500_006: TSmallintField;
    ADOQuery1S500_007: TDateTimeField;
    ADOQuery1S500_008: TIntegerField;
    ADOQuery1S500_009: TBCDField;
    ADOQuery1H150_002: TWideStringField;
    ADOQuery1H150_003: TWideStringField;
    ADOQuery1S500_011: TWideStringField;
    ADOQuery1S500_012: TWideStringField;
    ADOQuery1S500_013: TWideStringField;
    ADOQuery1S500_014: TWideStringField;
    ADOQuery1S500_015: TSmallintField;
    ADOQuery1S500_016: TWideStringField;
    ADOQuery1O150_002: TWideStringField;
    ADOQuery1O150_003: TWideStringField;
    ADOQuery1O150_005: TWideStringField;
    ADOQuery1O150_006: TWideStringField;
    ADOQuery1O150_012: TWideStringField;
    ADOQuery1I150_002: TStringField;
    ADOQuery1I150_003: TStringField;
    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;
    ADOQuery1S500_003: TIntegerField;
    ADOQuery1S500_004: TIntegerField;
    ADOQuery1S500_010: TIntegerField;
    ADOQuery1S500_017: TIntegerField;
    ADOQuery1S500_018: TIntegerField;
    ADOQuery1H150_001: TAutoIncField;
    ADOQuery1O150_001: TAutoIncField;
    dxDBGrid1S500_001: TdxDBGridColumn;
    dxDBGrid1S500_002: TdxDBGridColumn;
    dxDBGrid1S100_002: TdxDBGridColumn;
    dxDBGrid1S110_003: TdxDBGridColumn;
    dxDBGrid1S500_005: TdxDBGridMaskColumn;
    dxDBGrid1S500_006: TdxDBGridMaskColumn;
    dxDBGrid1S500_007: TdxDBGridDateColumn;
    dxDBGrid1S500_008: TdxDBGridMaskColumn;
    dxDBGrid1S500_009: TdxDBGridCurrencyColumn;
    dxDBGrid1H150_002: TdxDBGridColumn;
    dxDBGrid1H150_003: TdxDBGridColumn;
    dxDBGrid1S500_011: TdxDBGridColumn;
    dxDBGrid1S500_012: TdxDBGridColumn;
    dxDBGrid1S500_013: TdxDBGridColumn;
    dxDBGrid1S500_014: TdxDBGridColumn;
    dxDBGrid1S500_015: TdxDBGridMaskColumn;
    dxDBGrid1S500_016: TdxDBGridColumn;
    dxDBGrid1O150_002: TdxDBGridColumn;
    dxDBGrid1O150_003: TdxDBGridColumn;
    dxDBGrid1O150_005: TdxDBGridColumn;
    dxDBGrid1O150_006: TdxDBGridColumn;
    dxDBGrid1O150_012: TdxDBGridColumn;
    dxDBGrid1I150_002: TdxDBGridLookupColumn;
    dxDBGrid1I150_003: TdxDBGridLookupColumn;
    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;
    ADOQuery1S110_005: TIntegerField;
    dxDBGrid1S110_005: TdxDBGridMaskColumn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure sbSearchClick(Sender: TObject);
    procedure dxDBGrid1CustomDrawCell(Sender: TObject; ACanvas: TCanvas;
      ARect: TRect; ANode: TdxTreeListNode; AColumn: TdxTreeListColumn;
      ASelected, AFocused, ANewItemRow: Boolean; var AText: String;
      var AColor: TColor; AFont: TFont; var AAlignment: TAlignment;
      var ADone: Boolean);
    procedure cbClassChange(Sender: TObject);
    procedure ADOQuery1S500_006GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOQuery1S500_015GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOQuery1FilterRecord(DataSet: TDataSet;
      var Accept: Boolean);
    procedure ADOQuery1S500_008GetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
    procedure ADOQuery1CalcFields(DataSet: TDataSet);
  private
    AType:array[0..2] of string;
    AFrom:array[0..3] of string;
    AIsColor:Boolean;
    AStringList:TStringList;
    { Private declarations }
  public
    procedure SetInterface; override;
    procedure InsertEvent; override;
    procedure UpdateEvent; override;
    procedure DeleteEvent; override;
    procedure BrowseEvent; override;
    procedure ReportGetValue(const ParName: String; var ParValue: Variant); override;
    procedure FilterDialogSelectField(Sender: TObject;
      FieldName: String; var PictureMask: String; ComboList: TStrings); override;
    { Public declarations }
  end;

var
  Ser500_01Form: TSer500_01Form;

implementation

uses SYSDATA, CommFun, TasComm, Ser500_02;

{$R *.dfm}

procedure TSer500_01Form.SetInterface;
begin
  inherited;
  Caption:=GetDBString('SER50001001');  //来电记录维护
  ADOQuery1S500_001.DisplayLabel:=GetDBString('SER50001002');  //来电编号
  ADOQuery1S500_002.DisplayLabel:=GetDBString('SER50001003');  //来电名称
//  ADOQuery1S500_003.DisplayLabel:=GetDBString('SER50001004');  //来电状态
  ADOQuery1S110_003.DisplayLabel:=GetDBString('SER50001004');  //来电状态
//  ADOQuery1S500_004.DisplayLabel:=GetDBString('SER50001005');  //来电类别
  ADOQuery1S100_002.DisplayLabel:=GetDBString('SER50001005');  //来电类别
  ADOQuery1S500_005.DisplayLabel:=GetDBString('SER50001006');  //优先级别
  ADOQuery1S500_006.DisplayLabel:=GetDBString('SER50001007');  //来电类型
  ADOQuery1S500_007.DisplayLabel:=GetDBString('SER50001008');  //来电日期
  ADOQuery1S500_008.DisplayLabel:=GetDBString('SER50001009');  //来电时间
  ADOQuery1S500_009.DisplayLabel:=GetDBString('SER50001010');  //接听时间
//  ADOQuery1S500_010.DisplayLabel:=GetDBString('SER50001011');  //受理人员
  ADOQuery1H150_002.DisplayLabel:=GetDBString('SER50001011');  //受理人号
  ADOQuery1H150_003.DisplayLabel:=GetDBString('SER50001059');  //受理人名
  ADOQuery1S500_011.DisplayLabel:=GetDBString('SER50001012');  //来电人员
  ADOQuery1S500_012.DisplayLabel:=GetDBString('SER50001013');  //部门名称
  ADOQuery1S500_013.DisplayLabel:=GetDBString('SER50001014');  //职务名称
  ADOQuery1S500_014.DisplayLabel:=GetDBString('SER50001015');  //联系电话
  ADOQuery1S500_015.DisplayLabel:=GetDBString('SER50001016');  //单据类型
  ADOQuery1S500_016.DisplayLabel:=GetDBString('SER50001017');  //单据编号

//  ADOQuery1S500_017.DisplayLabel:=GetDBString('SER50001018');  //客户编号
  ADOQuery1O150_002.DisplayLabel:=GetDBString('SER50001018');  //客户编号
  ADOQuery1O150_003.DisplayLabel:=GetDBString('SER50001019');  //客户名称
  ADOQuery1O150_005.DisplayLabel:=GetDBString('SER50001020');  //电话号码
  ADOQuery1O150_012.DisplayLabel:=GetDBString('SER50001021');  //客户地址
  ADOQuery1O150_006.DisplayLabel:=GetDBString('SER50001022');  //传真号码
//  ADOQuery1S500_018.DisplayLabel:=GetDBString('SER50001023');  //产品编号
  ADOQuery1I150_002.DisplayLabel:=GetDBString('SER50001023');  //产品编号
  ADOQuery1I150_003.DisplayLabel:=GetDBString('SER50001024');  //产品名称
  ADOQuery1S500_019.DisplayLabel:=GetDBString('SER50001025');  //机身编号

  ADOQuery1S500_020.DisplayLabel:=GetDBString('SER50001026');  //是否派工
  ADOQuery1S500_027.DisplayLabel:=GetDBString('SER50001033');  //是否报价
  ADOQuery1S500_028.DisplayLabel:=GetDBString('SER50001034');  //保养开始日期
  ADOQuery1S500_029.DisplayLabel:=GetDBString('SER50001035');  //保养完成日期
  ADOQuery1S500_030.DisplayLabel:=GetDBString('SER50001036');  //续保开始日期
  ADOQuery1S500_031.DisplayLabel:=GetDBString('SER50001037');  //续保完成日期
  ADOQuery1S500_032.DisplayLabel:=GetDBString('SER50001038');  //来源类型

  ADOQuery1S500_033.DisplayLabel:=GetDBString('SER50001039');  //来电内容
  ADOQuery1S500_034.DisplayLabel:=GetDBString('SER50001040');  //制单日期
  ADOQuery1S500_035.DisplayLabel:=GetDBString('SER50001041');  //制单人员
  ADOQuery1S500_036.DisplayLabel:=GetDBString('SER50001042');  //修改日期
  ADOQuery1S500_037.DisplayLabel:=GetDBString('SER50001043');  //修改人员

  AType[0]:=GetDBString('SER50001044');  //项目计划
  AType[1]:=GetDBString('SER50001045');  //任务计划
  AType[2]:=GetDBString('SER50001046');  //手工输入

  AFrom[0]:=GetDBString('SER50001047');  //电话
  AFrom[1]:=GetDBString('SER50001048');  //传真
  AFrom[2]:=GetDBString('SER50001049');  //电邮
  AFrom[3]:=GetDBString('SER50001050');  //其他

  lblClass.Caption:=GetDBString('SER50001055');  //类别
  lblDate.Caption:=GetDBString('SER50001056');  //日期
  sbSearch.Caption:=GetDBString('SER50001057');  //查询

  cbClass.Clear;
  cbClass.Items.Add(GetDBString('SER50001058'));  //所有任务
  SYSDM.qryQuery.Close;
  SYSDM.qryQuery.SQL.Clear;
  SYSDM.qryQuery.SQL.Add('select * from SER100');
  SYSDM.qryQuery.Open;
  while not SYSDM.qryQuery.Eof do
  begin
    cbClass.Items.Add(SYSDM.qryQuery.FieldByName('S100_002').AsString);
    SYSDM.qryQuery.Next;
  end;
  cbClass.ItemIndex:=0;
end;

procedure TSer500_01Form.FormCreate(Sender: TObject);
var
  ADate:TDateTime;
begin
  AStringList:=TStringList.Create;
  inherited;
  //使用颜色标明任务的状态。如：计划=黑色，执行=蓝色，完成=灰色，返工=红色
  if GetSysParams('TAS0010')<>'Y' then dxDBGrid1.OnCustomDrawCell:=nil;
  ADate:=GetServerDate;
  edtFromDate.Date:=GetMonthFirstDate(ADate);
  edtToDate.Date:=GetMonthEndDate(ADate);
  sbSearch.Click;
end;

procedure TSer500_01Form.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  inherited;
  AStringList.Free;
end;

procedure TSer500_01Form.sbSearchClick(Sender: TObject);
var
  AClassNo:string;
begin
  inherited;
//查询
  if (edtFromDate.Text='') or (edtToDate.Text='') then
  begin
12 下一页
💿 文件大小 5012 K
👤 上传用户 zhousiqi420
📂 所属分类企业管理
🏷️ 相关标签

#Delphi #ERP #软件
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -