📄 ser520_02.pas.svn-base
字号:
unit Ser520_02;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Bas100_01, StdCtrls, Buttons, wwdbdatetimepicker, ComCtrls,
Menus, DB, ADODB, ActnList, ToolWin, dxdbtrel, dxCntner, dxEditor, StrUtils,
dxExEdtr, dxEdLib, dxTL, dxDBCtrl, dxDBGrid, dxDBTLCl, dxGrClms,FR_DSet;
type
TSer520_02Form = class(TBas100_01Form)
gbInfo: TGroupBox;
lblCust: TLabel;
lblStatus: TLabel;
gbDetail: TGroupBox;
lblCreateDate: TLabel;
lblCreateBy: TLabel;
lblUpdateDate: TLabel;
lblUpdateBy: TLabel;
edtCreateBy: TEdit;
edtUpdateBy: TEdit;
edtStatus: TEdit;
CoolBar1: TCoolBar;
ToolBar2: TToolBar;
tlbFirst: TToolButton;
tlbPrior: TToolButton;
tlbNext: TToolButton;
tlbLast: TToolButton;
ToolButton1: TToolButton;
tlbInsert: TToolButton;
tlbUpdate: TToolButton;
tlbDelete: TToolButton;
ToolButton2: TToolButton;
tlbSave: TToolButton;
tlbCancel: TToolButton;
ToolButton3: TToolButton;
tlbRefresh: TToolButton;
tlbLocate: TToolButton;
tlbSearch: TToolButton;
tlbPrint: TToolButton;
ToolButton6: TToolButton;
tlbExit: TToolButton;
ActionList1: TActionList;
ActFirst: TAction;
ActPrior: TAction;
ActNext: TAction;
ActLast: TAction;
ActInsert: TAction;
ActUpdate: TAction;
ActDelete: TAction;
ActSave: TAction;
ActCancel: TAction;
ActRefresh: TAction;
ActLocate: TAction;
ActSearch: TAction;
ActPrint: TAction;
ActExit: TAction;
dsSer520: TDataSource;
qryInv150: TADOQuery;
edtCreateDate: TEdit;
edtUpdateDate: TEdit;
lblCustName: TLabel;
edtCust: TEdit;
lblCheckBy: TLabel;
edtCheckBy: TEdit;
lblType: TLabel;
edtType: TEdit;
qryInv150I150_001: TAutoIncField;
qryInv150I150_002: TWideStringField;
qryInv150I150_003: TWideStringField;
edtCallName: TEdit;
sbCallCode: TSpeedButton;
edtCallCode: TEdit;
lblCallCode: TLabel;
edtCode: TEdit;
lblCode: TLabel;
tlbCheck: TToolButton;
ActCheck: TAction;
ActUnCheck: TAction;
tlbUnCheck: TToolButton;
lblCheckDate: TLabel;
PageControl1: TPageControl;
tsSolution: TTabSheet;
tsSend: TTabSheet;
tsPunish: TTabSheet;
tsPayfor: TTabSheet;
tsReturn: TTabSheet;
gbSolution: TGroupBox;
lblSolution: TLabel;
memSolution: TMemo;
dsSer521: TDataSource;
ToolButton8: TToolButton;
gbSend: TGroupBox;
gbPunish: TGroupBox;
gbPayfor: TGroupBox;
gbReturn: TGroupBox;
dbgSend: TdxDBGrid;
bbtnSendAdd: TBitBtn;
bbtnSendEdit: TBitBtn;
bbtnSendDel: TBitBtn;
qrySer520: TADOQuery;
dbgPunish: TdxDBGrid;
bbtnPunishAdd: TBitBtn;
bbtnPunishEdit: TBitBtn;
bbtnPunishDel: TBitBtn;
dbgPayfor: TdxDBGrid;
bbtnPayforAdd: TBitBtn;
bbtnPayforEdit: TBitBtn;
bbtnPayforDel: TBitBtn;
dbgReturn: TdxDBGrid;
bbtnReturnAdd: TBitBtn;
bbtnReturnEdit: TBitBtn;
bbtnReturnDel: TBitBtn;
dsSer522: TDataSource;
qrySer522: TADOQuery;
dsSer523: TDataSource;
qrySer523: TADOQuery;
dsSer524: TDataSource;
qrySer524: TADOQuery;
qrySer520S520_001: TWideStringField;
qrySer520S520_002: TWideStringField;
qrySer520S520_003: TSmallintField;
qrySer520S520_004: TDateTimeField;
qrySer520S520_005: TWideStringField;
qrySer520S520_006: TDateTimeField;
qrySer520S520_007: TWideStringField;
qrySer520S520_008: TDateTimeField;
qrySer520S520_009: TWideStringField;
qrySer520S520_010: TMemoField;
qrySer520S520_011: TMemoField;
qrySer520S500_002: TWideStringField;
qrySer520S500_016: TWideStringField;
qrySer520O150_001: TAutoIncField;
qrySer520O150_002: TWideStringField;
qrySer520O150_003: TWideStringField;
qrySer521: TADOQuery;
qrySer523S523_001: TWideStringField;
qrySer523S523_002: TIntegerField;
qrySer523S523_003: TDateTimeField;
qrySer523S523_004: TIntegerField;
qrySer523S523_005: TBCDField;
qrySer523O150_002: TWideStringField;
qrySer523O150_003: TWideStringField;
dbgPayforS523_003: TdxDBGridDateColumn;
dbgPayforO150_002: TdxDBGridColumn;
dbgPayforO150_003: TdxDBGridColumn;
dbgPayforS523_005: TdxDBGridCurrencyColumn;
qrySer524S524_001: TWideStringField;
qrySer524S524_002: TIntegerField;
qrySer524S524_003: TDateTimeField;
qrySer524S524_004: TIntegerField;
qrySer524S524_005: TFloatField;
qrySer524S524_006: TFloatField;
qrySer524S524_007: TFloatField;
qrySer524I150_002: TWideStringField;
qrySer524I150_003: TWideStringField;
dbgReturnS524_003: TdxDBGridDateColumn;
dbgReturnI150_002: TdxDBGridColumn;
dbgReturnI150_003: TdxDBGridColumn;
dbgReturnS524_005: TdxDBGridMaskColumn;
edtCustName: TEdit;
lblBillNo: TLabel;
edtBillNo: TEdit;
edtCheckDate: TEdit;
qrySer521S521_001: TWideStringField;
qrySer521S521_002: TIntegerField;
qrySer521S521_003: TWideStringField;
qrySer521S521_005: TBCDField;
qrySer521S521_006: TSmallintField;
qrySer521S521_007: TDateTimeField;
qrySer521S521_008: TDateTimeField;
qrySer521S521_004: TWideStringField;
dbgSendS521_003: TdxDBGridColumn;
dbgSendS521_004: TdxDBGridColumn;
dbgSendS521_005: TdxDBGridCurrencyColumn;
dbgSendS521_006: TdxDBGridMaskColumn;
dbgSendS521_007: TdxDBGridDateColumn;
dbgSendS521_008: TdxDBGridDateColumn;
qrySer500: TADOQuery;
qrySer500S500_001: TWideStringField;
qrySer500S500_002: TWideStringField;
qrySer500O150_002: TWideStringField;
qrySer500O150_003: TWideStringField;
qrySer500S500_015: TSmallintField;
qrySer500S500_016: TWideStringField;
qrySer500O150_001: TAutoIncField;
qrySer520S520_012: TDateTimeField;
qrySer520S520_013: TWideStringField;
qrySer520S520_014: TDateTimeField;
qrySer520S520_015: TWideStringField;
qrySer520S500_015: TSmallintField;
qrySer522S522_001: TWideStringField;
qrySer522S522_002: TIntegerField;
qrySer522S522_003: TDateTimeField;
qrySer522S522_004: TIntegerField;
qrySer522S522_005: TBCDField;
qrySer522H150_002: TWideStringField;
qrySer522H150_003: TWideStringField;
dbgPunishS522_003: TdxDBGridDateColumn;
dbgPunishH150_002: TdxDBGridColumn;
dbgPunishH150_003: TdxDBGridColumn;
dbgPunishS522_005: TdxDBGridCurrencyColumn;
qryHrm150: TADOQuery;
qryHrm150H150_001: TAutoIncField;
qryHrm150H150_002: TWideStringField;
qryHrm150H150_003: TWideStringField;
qryOrd150: TADOQuery;
qryOrd150O150_002: TStringField;
qryOrd150O150_003: TStringField;
qryOrd150O150_001: TAutoIncField;
qryQuery: TADOQuery;
dbgReturnS524_007: TdxDBGridCurrencyColumn;
dbgReturnS524_006: TdxDBGridCurrencyColumn;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure ActFirstExecute(Sender: TObject);
procedure ActPriorExecute(Sender: TObject);
procedure ActNextExecute(Sender: TObject);
procedure ActLastExecute(Sender: TObject);
procedure ActInsertExecute(Sender: TObject);
procedure ActUpdateExecute(Sender: TObject);
procedure ActDeleteExecute(Sender: TObject);
procedure ActSaveExecute(Sender: TObject);
procedure ActCancelExecute(Sender: TObject);
procedure ActRefreshExecute(Sender: TObject);
procedure ActLocateExecute(Sender: TObject);
procedure ActSearchExecute(Sender: TObject);
procedure ActPrintExecute(Sender: TObject);
procedure ActExitExecute(Sender: TObject);
procedure qrySer520AfterScroll(DataSet: TDataSet);
procedure bbtnSendAddClick(Sender: TObject);
procedure bbtnSendEditClick(Sender: TObject);
procedure bbtnSendDelClick(Sender: TObject);
procedure sbCallCodeClick(Sender: TObject);
procedure edtCallCodeExit(Sender: TObject);
procedure qrySer520S520_003GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure bbtnPunishAddClick(Sender: TObject);
procedure bbtnPunishEditClick(Sender: TObject);
procedure bbtnPunishDelClick(Sender: TObject);
procedure bbtnPayforAddClick(Sender: TObject);
procedure bbtnPayforEditClick(Sender: TObject);
procedure bbtnPayforDelClick(Sender: TObject);
procedure bbtnReturnAddClick(Sender: TObject);
procedure bbtnReturnEditClick(Sender: TObject);
procedure bbtnReturnDelClick(Sender: TObject);
procedure qrySer521S521_004GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
procedure ActCheckExecute(Sender: TObject);
procedure ActUnCheckExecute(Sender: TObject);
procedure qrySer521S521_006GetText(Sender: TField; var Text: String;
DisplayText: Boolean);
private
AMode:string;
AStatus:array[0..1] of string;
AUnit:array[0..3] of string;
procedure SetButtonState(AInsUpd:Boolean);
procedure SetInterface;
procedure SaveData;
procedure InsertTasks(AName,AProjID:string;ACallDate,ADate:TDateTime;ACustNo,AClassNo:Integer);
procedure ReportGetValue(const ParName: String; var ParValue: Variant);
{ Private declarations }
public
procedure OpenData(ACode:string);
{ Public declarations }
end;
var
Ser520_02Form: TSer520_02Form;
implementation
uses SYSDATA, HwSelData, CommFun, TasComm, Tas510_02, Ser520_03, Ser520_04,
Ser520_05, Ser520_06;
{$R *.dfm}
//设置按钮状态
procedure TSer520_02Form.SetButtonState(AInsUpd:Boolean);
begin
ActFirst.Enabled:=not AInsUpd;
ActPrior.Enabled:=not AInsUpd;
ActNext.Enabled:=not AInsUpd;
ActLast.Enabled:=not AInsUpd;
ActInsert.Enabled:=(ARights[2]='Y') and (not AInsUpd);
ActUpdate.Enabled:=(ARights[3]='Y') and (not AInsUpd);
ActDelete.Enabled:=(ARights[4]='Y') and (not AInsUpd);
ActSave.Enabled:=AInsUpd;
ActCancel.Enabled:=AInsUpd;
ActCheck.Enabled:=(ARights[6]='Y') and (not AInsUpd);
ActUnCheck.Enabled:=(ARights[6]='Y') and (not AInsUpd);
ActRefresh.Enabled:=not AInsUpd;
ActLocate.Enabled:=not AInsUpd;
ActSearch.Enabled:=not AInsUpd;
ActPrint.Enabled:=(ARights[5]='Y') and (not AInsUpd);
ActExit.Enabled:=True;
gbInfo.Enabled:=AInsUpd;
PageControl1.Enabled:=AInsUpd;
gbDetail.Enabled:=AInsUpd;
end;
procedure TSer520_02Form.SetInterface;
begin
Caption:=GetDBString('SER52002001'); //解决方案维护
ActFirst.Caption:=GetDBString('COM00005001'); //最前
ActPrior.Caption:=GetDBString('COM00005002'); //上移
ActNext.Caption:=GetDBString('COM00005003'); //下移
ActLast.Caption:=GetDBString('COM00005004'); //最后
ActInsert.Caption:=GetDBString('COM00005005'); //新增
ActUpdate.Caption:=GetDBString('COM00005006'); //修改
ActDelete.Caption:=GetDBString('COM00005007'); //删除
ActSave.Caption:=GetDBString('COM00005008'); //保存
ActCancel.Caption:=GetDBString('COM00005009'); //取消
ActRefresh.Caption:=GetDBString('COM00005010'); //刷新
ActLocate.Caption:=GetDBString('COM00005011'); //查找
ActSearch.Caption:=GetDBString('COM00005012'); //查询
ActPrint.Caption:=GetDBString('COM00005013'); //打印
ActExit.Caption:=GetDBString('COM00005015'); //退出
ActFirst.Hint:=GetDBString('COM00005001',2); //移到第一条记录
ActPrior.Hint:=GetDBString('COM00005002',2); //移到上一条记录
ActNext.Hint:=GetDBString('COM00005003',2); //移到下一条记录
ActLast.Hint:=GetDBString('COM00005004',2); //移到最后一条记录
ActInsert.Hint:=GetDBString('COM00005005',2); //新增一条记录
ActUpdate.Hint:=GetDBString('COM00005006',2); //修改当前记录
ActDelete.Hint:=GetDBString('COM00005007',2); //删除当前记录
ActSave.Hint:=GetDBString('COM00005008',2); //保存编辑的记录
ActCancel.Hint:=GetDBString('COM00005009',2); //取消编辑的记录
ActRefresh.Hint:=GetDBString('COM00005010',2); //取得最新的数据
ActLocate.Hint:=GetDBString('COM00005011',2); //快速定位记录
ActSearch.Hint:=GetDBString('COM00005012',2); //按条件查询数据
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -