~
This commit is contained in:
DESKTOP-E401PHE\Administrator
parent
a06184b1b8
commit
aedba30a3d
303
坯布仓库/U_BPRKDR.dfm
Normal file
303
坯布仓库/U_BPRKDR.dfm
Normal file
|
|
@ -0,0 +1,303 @@
|
|||
object frmBPRKDR: TfrmBPRKDR
|
||||
Left = 410
|
||||
Top = 435
|
||||
Width = 1171
|
||||
Height = 370
|
||||
Caption = #24067#21305#20449#24687#23548#20837
|
||||
Color = clBtnFace
|
||||
Font.Charset = GB2312_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -12
|
||||
Font.Name = #23435#20307
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnClose = FormClose
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 12
|
||||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1155
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 83
|
||||
Caption = 'ToolBar1'
|
||||
Color = clSkyBlue
|
||||
Flat = True
|
||||
Images = BPCK_DataLink.ThreeImgList
|
||||
List = True
|
||||
ParentColor = False
|
||||
ShowCaptions = True
|
||||
TabOrder = 0
|
||||
object ToolButton3: TToolButton
|
||||
Left = 0
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20445#23384
|
||||
ImageIndex = 14
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object ToolButton1: TToolButton
|
||||
Left = 63
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #22686#34892
|
||||
ImageIndex = 103
|
||||
OnClick = ToolButton1Click
|
||||
end
|
||||
object ToolButton2: TToolButton
|
||||
Left = 126
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #21024#34892
|
||||
ImageIndex = 107
|
||||
OnClick = ToolButton2Click
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 189
|
||||
Top = 0
|
||||
Caption = #25171#24320#25991#20214
|
||||
ImageIndex = 5
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 272
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
end
|
||||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 1155
|
||||
Height = 300
|
||||
Align = alClient
|
||||
TabOrder = 1
|
||||
object Tv1: TcxGridDBTableView
|
||||
Navigator.Buttons.CustomButtons = <>
|
||||
Navigator.Buttons.Delete.Enabled = False
|
||||
Navigator.Buttons.Delete.Visible = False
|
||||
DataController.DataSource = DS_HZ
|
||||
DataController.Summary.DefaultGroupSummaryItems = <>
|
||||
DataController.Summary.FooterSummaryItems = <
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end
|
||||
item
|
||||
Kind = skSum
|
||||
end>
|
||||
DataController.Summary.SummaryGroups = <>
|
||||
OptionsBehavior.GoToNextCellOnEnter = True
|
||||
OptionsCustomize.ColumnFiltering = False
|
||||
OptionsData.Deleting = False
|
||||
OptionsData.DeletingConfirmation = False
|
||||
OptionsView.Footer = True
|
||||
OptionsView.GroupByBox = False
|
||||
Styles.Header = BPCK_DataLink.Default
|
||||
object Tv1Column10: TcxGridDBColumn
|
||||
Caption = #20837#24211#26085#26399
|
||||
DataBinding.FieldName = 'CRTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 90
|
||||
end
|
||||
object Tv1Column2: TcxGridDBColumn
|
||||
Caption = #20379#24212#21830
|
||||
DataBinding.FieldName = 'cust'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 82
|
||||
end
|
||||
object Tv1Column11: TcxGridDBColumn
|
||||
Caption = #21152#24037#21378
|
||||
DataBinding.FieldName = 'factoryName'
|
||||
HeaderAlignmentHorz = taRightJustify
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column3: TcxGridDBColumn
|
||||
Caption = #35268#26684#22411#21495
|
||||
DataBinding.FieldName = 'P_SPEC'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 82
|
||||
end
|
||||
object Tv1Column1: TcxGridDBColumn
|
||||
Caption = #20135#21697#21517#31216
|
||||
DataBinding.FieldName = 'P_CodeName'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v2Column5: TcxGridDBColumn
|
||||
Caption = #39068#33394
|
||||
DataBinding.FieldName = 'P_Color'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column4: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'P_ColorNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column12: TcxGridDBColumn
|
||||
Caption = #38376#24133
|
||||
DataBinding.FieldName = 'P_MF'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column13: TcxGridDBColumn
|
||||
Caption = #20811#37325
|
||||
DataBinding.FieldName = 'P_KZ'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column5: TcxGridDBColumn
|
||||
Caption = #21305#25968
|
||||
DataBinding.FieldName = 'RollNum'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column6: TcxGridDBColumn
|
||||
Caption = #25968#37327
|
||||
DataBinding.FieldName = 'Qty'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column14: TcxGridDBColumn
|
||||
Caption = #21333#20301
|
||||
DataBinding.FieldName = 'QtyUnit'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column8: TcxGridDBColumn
|
||||
Caption = #32568#21495
|
||||
DataBinding.FieldName = 'gangNo'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column15: TcxGridDBColumn
|
||||
Caption = #24211#20301
|
||||
DataBinding.FieldName = 'KuWei'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column7: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv1Column16: TcxGridDBColumn
|
||||
Caption = #37329#39069
|
||||
DataBinding.FieldName = 'money'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
HeaderGlyphAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
end
|
||||
object cxGridLevel1: TcxGridLevel
|
||||
GridView = Tv1
|
||||
end
|
||||
end
|
||||
object ADOQueryTemp: TADOQuery
|
||||
Connection = BPCK_DataLink.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 733
|
||||
Top = 81
|
||||
end
|
||||
object ADOQueryCmd: TADOQuery
|
||||
Connection = BPCK_DataLink.ADOLink
|
||||
Parameters = <>
|
||||
Left = 773
|
||||
Top = 89
|
||||
end
|
||||
object ADOQueryMain: TADOQuery
|
||||
Connection = BPCK_DataLink.ADOLink
|
||||
LockType = ltReadOnly
|
||||
Parameters = <>
|
||||
Left = 733
|
||||
Top = 177
|
||||
end
|
||||
object RM1: TRMGridReport
|
||||
ThreadPrepareReport = True
|
||||
InitialZoom = pzDefault
|
||||
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
|
||||
DefaultCollate = False
|
||||
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
|
||||
PreviewOptions.RulerUnit = rmutScreenPixels
|
||||
PreviewOptions.RulerVisible = False
|
||||
PreviewOptions.DrawBorder = False
|
||||
PreviewOptions.BorderPen.Color = clGray
|
||||
PreviewOptions.BorderPen.Style = psDash
|
||||
Dataset = RMDB_Main
|
||||
CompressLevel = rmzcFastest
|
||||
CompressThread = False
|
||||
LaterBuildEvents = True
|
||||
OnlyOwnerDataSet = False
|
||||
Left = 824
|
||||
Top = 176
|
||||
ReportData = {}
|
||||
end
|
||||
object RMDB_Main: TRMDBDataSet
|
||||
Visible = True
|
||||
Left = 880
|
||||
Top = 144
|
||||
end
|
||||
object cxGridPopupMenu2: TcxGridPopupMenu
|
||||
Grid = cxGrid1
|
||||
PopupMenus = <>
|
||||
Left = 528
|
||||
Top = 200
|
||||
end
|
||||
object DS_HZ: TDataSource
|
||||
DataSet = CDS_HZ
|
||||
Left = 795
|
||||
Top = 131
|
||||
end
|
||||
object CDS_HZ: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 696
|
||||
Top = 128
|
||||
end
|
||||
object OpenDialog1: TOpenDialog
|
||||
Left = 386
|
||||
Top = 170
|
||||
end
|
||||
object CDS_LM: TClientDataSet
|
||||
Aggregates = <>
|
||||
Params = <>
|
||||
Left = 232
|
||||
Top = 240
|
||||
end
|
||||
end
|
||||
849
坯布仓库/U_BPRKDR.pas
Normal file
849
坯布仓库/U_BPRKDR.pas
Normal file
|
|
@ -0,0 +1,849 @@
|
|||
unit U_BPRKDR;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
|
||||
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
|
||||
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
|
||||
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
|
||||
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
|
||||
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
|
||||
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
|
||||
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
|
||||
cxTextEdit, cxDropDownEdit, strutils, cxCurrencyEdit, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray, dxSkinOffice2013LightGray,
|
||||
dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
|
||||
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringTime, dxSkinStardust,
|
||||
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue,
|
||||
dxSkinscxPCPainter, ComObj;
|
||||
|
||||
type
|
||||
TfrmBPRKDR = class(TForm)
|
||||
ToolBar1: TToolBar;
|
||||
TBClose: TToolButton;
|
||||
ADOQueryTemp: TADOQuery;
|
||||
ADOQueryCmd: TADOQuery;
|
||||
ADOQueryMain: TADOQuery;
|
||||
RM1: TRMGridReport;
|
||||
RMDB_Main: TRMDBDataSet;
|
||||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||||
DS_HZ: TDataSource;
|
||||
CDS_HZ: TClientDataSet;
|
||||
ToolButton3: TToolButton;
|
||||
cxGrid1: TcxGrid;
|
||||
Tv1: TcxGridDBTableView;
|
||||
v2Column5: TcxGridDBColumn;
|
||||
v2Column1: TcxGridDBColumn;
|
||||
cxGridLevel1: TcxGridLevel;
|
||||
ToolButton1: TToolButton;
|
||||
ToolButton2: TToolButton;
|
||||
Tv1Column1: TcxGridDBColumn;
|
||||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
Tv1Column5: TcxGridDBColumn;
|
||||
Tv1Column6: TcxGridDBColumn;
|
||||
Tv1Column7: TcxGridDBColumn;
|
||||
Tv1Column8: TcxGridDBColumn;
|
||||
ToolButton4: TToolButton;
|
||||
OpenDialog1: TOpenDialog;
|
||||
CDS_LM: TClientDataSet;
|
||||
Tv1Column10: TcxGridDBColumn;
|
||||
Tv1Column11: TcxGridDBColumn;
|
||||
Tv1Column12: TcxGridDBColumn;
|
||||
Tv1Column13: TcxGridDBColumn;
|
||||
Tv1Column14: TcxGridDBColumn;
|
||||
Tv1Column15: TcxGridDBColumn;
|
||||
Tv1Column16: TcxGridDBColumn;
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure TBCloseClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
procedure v2Column6PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure v2defstr9PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure v2Column5PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure Tv2Column1PropertiesEditValueChanged(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
procedure InitGrid();
|
||||
function SaveData(): Boolean;
|
||||
function YFData(): Boolean;
|
||||
public
|
||||
{ Public declarations }
|
||||
RKFlag, FMLID: string;
|
||||
fkhType: string;
|
||||
fkeyNO: string;
|
||||
end;
|
||||
|
||||
var
|
||||
frmBPRKDR: TfrmBPRKDR;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun, U_ZDYHelp;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmBPRKDR.InitGrid();
|
||||
begin
|
||||
try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select * from BP_InOut where CRNO=''' + Trim(FMLID) + '''');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
||||
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
frmBPRKDR := nil;
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
Action := caFree;
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('产品资料录入1', Tv1, '客户自定义');
|
||||
Close;
|
||||
ModalResult := 1;
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.FormShow(Sender: TObject);
|
||||
begin
|
||||
ReadCxGrid('产品资料录入1', Tv1, '客户自定义');
|
||||
InitGrid();
|
||||
// if Trim(FMLID) = '' then
|
||||
// begin
|
||||
// with CDS_HZ do
|
||||
// begin
|
||||
// Edit;
|
||||
// FieldByName('type').Value := '面料';
|
||||
// Post;
|
||||
// end;
|
||||
//
|
||||
// end;
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.TBRafreshClick(Sender: TObject);
|
||||
begin
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
function TfrmBPRKDR.SaveData(): Boolean;
|
||||
var
|
||||
fkcID: integer;
|
||||
Filler: string;
|
||||
FillTime: TdateTime;
|
||||
begin
|
||||
result := false;
|
||||
try
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
|
||||
if GetLSNo(ADOQueryCmd, fkeyNO, 'BK', 'BP_InOut', 3, 1) = False then
|
||||
begin
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取最大号失败!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
Filler := DName;
|
||||
FillTime := SGetServerDateTime(adoqueryTemp);
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('delete from BP_InOut');
|
||||
sql.Add('where CRNO=' + quotedstr(trim(fkeyNO)));
|
||||
execsql;
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add(' delete from YF_Money_CR ');
|
||||
sql.Add(' where MainID=' + quotedstr(trim(fkeyNO)));
|
||||
execsql;
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('delete from BP_kc');
|
||||
sql.Add('where CRNO=' + quotedstr(trim(fkeyNO)));
|
||||
execsql;
|
||||
end;
|
||||
|
||||
CDS_HZ.DisableControls;
|
||||
CDS_HZ.First;
|
||||
with CDS_HZ do
|
||||
begin
|
||||
while not eof do
|
||||
begin
|
||||
|
||||
Edit;
|
||||
FieldByName('CRNO').Value := trim(fkeyNO);
|
||||
FieldByName('CRNOS').Value := trim(fkeyNO + inttostr(recNo));
|
||||
FieldByName('CRID').Value := recNo;
|
||||
post;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.add('Update BP_Kcid Set kcid=kcid+1');
|
||||
sql.Add('select kcid from BP_Kcid');
|
||||
Open;
|
||||
end;
|
||||
fkcID := ADOQueryCmd.fieldbyname('kcid').AsInteger;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from BP_InOut');
|
||||
sql.Add('where 1=2 ');
|
||||
open;
|
||||
end;
|
||||
// fkcID:=strtoint(RightBStr(trim(fkeyNO),length(fkeyNO)-3)+inttostr(recNo));
|
||||
ADOQueryCmd.Append;
|
||||
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_HZ, 'BP_InOut', 0);
|
||||
ADOQueryCmd.FieldByName('CRNO').Value := trim(fkeyNO);
|
||||
ADOQueryCmd.FieldByName('CRNOS').Value := trim(fkeyNO + inttostr(recNo));
|
||||
ADOQueryCmd.FieldByName('CRID').Value := recNo;
|
||||
ADOQueryCmd.FieldByName('CRTime').Value := trim(fieldbyname('CRTime').AsString);
|
||||
ADOQueryCmd.FieldByName('CKName').Value := '布匹仓库';
|
||||
ADOQueryCmd.FieldByName('CRType').Value := '导入入库';
|
||||
ADOQueryCmd.FieldByName('CRFlag').Value := '入库';
|
||||
ADOQueryCmd.FieldByName('Filler').Value := trim(Filler);
|
||||
ADOQueryCmd.FieldByName('FillTime').Value := dateTimetostr(FillTime);
|
||||
ADOQueryCmd.FieldByName('kcID').Value := fkcID;
|
||||
ADOQueryCmd.Post;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from BP_KC');
|
||||
sql.Add('where 1=2 ');
|
||||
open;
|
||||
end;
|
||||
ADOQueryCmd.Append;
|
||||
ADOQueryCmd.FieldByName('kcID').Value := fkcID;
|
||||
ADOQueryCmd.FieldByName('CKName').Value := '布匹仓库';
|
||||
ADOQueryCmd.FieldByName('CRNO').Value := trim(fkeyNO);
|
||||
ADOQueryCmd.FieldByName('CRNOS').Value := trim(fkeyNO + inttostr(recNo));
|
||||
ADOQueryCmd.FieldByName('CRID').Value := recNo;
|
||||
ADOQueryCmd.FieldByName('CRTime').Value := trim(fieldbyname('CRTime').AsString);
|
||||
ADOQueryCmd.FieldByName('CRType').Value := '导入入库';
|
||||
ADOQueryCmd.FieldByName('CRFlag').Value := '入库';
|
||||
ADOQueryCmd.FieldByName('MJXH').Value := trim(fieldbyname('MJXH').AsString);
|
||||
ADOQueryCmd.FieldByName('MJID').Value := trim(fieldbyname('MJID').AsString);
|
||||
ADOQueryCmd.FieldByName('CPType').Value := '正品';
|
||||
ADOQueryCmd.FieldByName('P_Code').Value := trim(fieldbyname('P_Code').AsString);
|
||||
ADOQueryCmd.FieldByName('P_CodeName').Value := trim(fieldbyname('P_CodeName').AsString);
|
||||
ADOQueryCmd.FieldByName('P_spec').Value := trim(fieldbyname('P_spec').AsString);
|
||||
ADOQueryCmd.FieldByName('P_Color').Value := trim(fieldbyname('P_Color').AsString);
|
||||
ADOQueryCmd.FieldByName('gangNo').Value := trim(fieldbyname('gangNo').AsString);
|
||||
ADOQueryCmd.FieldByName('P_MF').Value := fieldbyname('P_MF').AsFloat;
|
||||
ADOQueryCmd.FieldByName('P_KZ').Value := fieldbyname('P_KZ').AsFloat;
|
||||
ADOQueryCmd.FieldByName('RollNum').Value := fieldbyname('RollNum').AsFloat;
|
||||
ADOQueryCmd.FieldByName('Qty').Value := fieldbyname('Qty').AsFloat;
|
||||
ADOQueryCmd.FieldByName('QtyUnit').Value := trim(fieldbyname('QtyUnit').AsString);
|
||||
ADOQueryCmd.FieldByName('kcID').Value := fkcID;
|
||||
ADOQueryCmd.Post;
|
||||
|
||||
// if trim(CRType.Text) = '采购入库' then
|
||||
// begin
|
||||
// if not YFData() then
|
||||
// begin
|
||||
// CDS_Main.EnableControls;
|
||||
// ADOQueryCmd.Connection.RollbackTrans;
|
||||
// exit;
|
||||
// end;
|
||||
// end;
|
||||
// with ADOQuery1 do
|
||||
// begin
|
||||
// close;
|
||||
// sql.Clear;
|
||||
// sql.Add('select * from CK_SXPB_CRMX A ');
|
||||
// sql.Add(' right JOIN BP_InOut B on B.CRID=A.CRID and B.crno=A.crno');
|
||||
// sql.Add(' where A.CRNO=' + quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString)));
|
||||
// sql.Add(' and A.CRID=' + quotedstr(trim(CDS_Main.fieldbyname('CRID').AsString)));
|
||||
// SQL.Add(' and crzt=''入库''');
|
||||
// sql.Add(' order by MXID');
|
||||
//// ShowMessage(SQL.text);
|
||||
// open;
|
||||
// end;
|
||||
// if ADOQuery1.RecordCount > 0 then
|
||||
// begin
|
||||
// with ADOQuery2 do
|
||||
// begin
|
||||
// Close;
|
||||
// sql.Clear;
|
||||
// sql.Add('Update CK_SXPB_CRMX Set CKNO=(select kuwei from BP_InOut A where A.crno=CK_SXPB_CRMX.CRNO and A.CRID=CK_SXPB_CRMX.CRID)');
|
||||
// sql.Add(' where CRNO=' + quotedstr(trim(CDS_Main.fieldbyname('CRNO').AsString)));
|
||||
// sql.Add(' and CRID=' + quotedstr(trim(CDS_Main.fieldbyname('CRID').AsString)));
|
||||
//// ShowMessage(sql.Text);
|
||||
// ExecSQL;
|
||||
// end;
|
||||
// end;
|
||||
|
||||
next;
|
||||
end;
|
||||
|
||||
end;
|
||||
CDS_HZ.EnableControls;
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
result := true;
|
||||
except
|
||||
CDS_HZ.EnableControls;
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
end;
|
||||
end;
|
||||
{function TfrmBPRKDR.SaveData(): Boolean;
|
||||
var
|
||||
fkeyNO, CRID: string;
|
||||
fkcID: integer;
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then
|
||||
exit;
|
||||
ADOQueryCmd.Connection.BeginTrans;
|
||||
try
|
||||
with CDS_HZ do
|
||||
begin
|
||||
first;
|
||||
while not eof do
|
||||
begin
|
||||
if (CDS_HZ.FieldByName('P_CodeName').asstring = '') then
|
||||
begin
|
||||
Next;
|
||||
end
|
||||
else
|
||||
begin
|
||||
if Trim(CDS_HZ.fieldbyname('CRNO').AsString) = '' then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, fkeyNO, 'BK', 'BP_InOut', 3, 1) = False then
|
||||
begin
|
||||
Result := False;
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
Application.MessageBox('取最大号失败！', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
|
||||
end
|
||||
else
|
||||
begin
|
||||
fkeyNO := Trim(FMLID);
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from BP_InOut where CRNO=''' + Trim(CDS_HZ.fieldbyname('CRno').AsString) + '''');
|
||||
Open;
|
||||
end;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
if Trim(CDS_HZ.fieldbyname('CRNO').AsString) = '' then
|
||||
begin
|
||||
Append;
|
||||
FieldByName('Filler').Value := Trim(DName);
|
||||
FieldByName('Filltime').Value := SGetServerDateTime(ADOQueryTemp);
|
||||
end
|
||||
else
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('Editer').Value := Trim(DName);
|
||||
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
|
||||
end;
|
||||
FieldByName('CRNO').Value := trim(fkeyNO);
|
||||
FieldByName('CRNOS').Value := trim(fkeyNO);
|
||||
FieldByName('CRID').Value := 1;
|
||||
FieldByName('CRFlag').Value := '入库';
|
||||
FieldByName('CRType').Value := '导入入库';
|
||||
FieldByName('CKName').Value := '布匹仓库';
|
||||
|
||||
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_HZ, 'BP_InOut', 0);
|
||||
Post;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
SQL.add('Update BP_Kcid Set kcid=kcid+1');
|
||||
sql.Add('select kcid from BP_Kcid');
|
||||
Open;
|
||||
end;
|
||||
fkcID := ADOQueryCmd.fieldbyname('kcid').AsInteger;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from BP_KC');
|
||||
sql.Add('where 1=2 ');
|
||||
open;
|
||||
end;
|
||||
ADOQueryCmd.Append;
|
||||
ADOQueryCmd.FieldByName('kcID').Value := fkcID;
|
||||
ADOQueryCmd.FieldByName('CKName').Value := '布匹仓库';
|
||||
ADOQueryCmd.FieldByName('CRNO').Value := trim(fkeyNO);
|
||||
ADOQueryCmd.FieldByName('CRNOS').Value := trim(fkeyNO);
|
||||
ADOQueryCmd.FieldByName('CRID').Value := 1;
|
||||
ADOQueryCmd.FieldByName('CRTime').Value := Trim(CDS_HZ.fieldbyname('CRTime').AsString);
|
||||
ADOQueryCmd.FieldByName('CRType').Value := '导入入库';
|
||||
ADOQueryCmd.FieldByName('CRFlag').Value := '入库';
|
||||
ADOQueryCmd.FieldByName('MJXH').Value := trim(fieldbyname('MJXH').AsString);
|
||||
ADOQueryCmd.FieldByName('MJID').Value := trim(fieldbyname('MJID').AsString);
|
||||
ADOQueryCmd.FieldByName('CPType').Value := trim(fieldbyname('CPType').AsString);
|
||||
ADOQueryCmd.FieldByName('P_Code').Value := trim(fieldbyname('P_Code').AsString);
|
||||
ADOQueryCmd.FieldByName('P_CodeName').Value := trim(fieldbyname('P_CodeName').AsString);
|
||||
ADOQueryCmd.FieldByName('P_spec').Value := trim(fieldbyname('P_spec').AsString);
|
||||
ADOQueryCmd.FieldByName('P_Color').Value := trim(fieldbyname('P_Color').AsString);
|
||||
ADOQueryCmd.FieldByName('gangNo').Value := trim(fieldbyname('gangNo').AsString);
|
||||
ADOQueryCmd.FieldByName('P_MF').Value := fieldbyname('P_MF').AsFloat;
|
||||
ADOQueryCmd.FieldByName('P_KZ').Value := fieldbyname('P_KZ').AsFloat;
|
||||
ADOQueryCmd.FieldByName('RollNum').Value := fieldbyname('RollNum').AsFloat;
|
||||
ADOQueryCmd.FieldByName('Qty').Value := fieldbyname('Qty').AsFloat;
|
||||
ADOQueryCmd.FieldByName('QtyUnit').Value := trim(fieldbyname('QtyUnit').AsString);
|
||||
ADOQueryCmd.FieldByName('kcID').Value := fkcID;
|
||||
ADOQueryCmd.Post;
|
||||
// if not YFData() then
|
||||
// begin
|
||||
// CDS_HZ.EnableControls;
|
||||
// ADOQueryCmd.Connection.RollbackTrans;
|
||||
// exit;
|
||||
// end;
|
||||
end;
|
||||
next;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
ADOQueryCmd.Connection.CommitTrans;
|
||||
|
||||
application.MessageBox('保存成功！', '提示');
|
||||
Modalresult := 1;
|
||||
except
|
||||
ADOQueryCmd.Connection.RollbackTrans;
|
||||
application.MessageBox(PChar(Exception(ExceptObject).Message), '提示信息', 0);
|
||||
end;
|
||||
|
||||
end; }
|
||||
|
||||
function TfrmBPRKDR.YFData(): Boolean;
|
||||
var
|
||||
CRID, YFID, Price, PriceUnit, OrderUnit, FComTaiTou: string;
|
||||
begin
|
||||
Result := False;
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add('select * from YF_Money_KC where FactoryName=''' + Trim(CDS_HZ.fieldbyname('cust').AsString) + ''' and YFDefFlag1=0 ');
|
||||
Open;
|
||||
end;
|
||||
|
||||
if not ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
CRID := ADOQueryTemp.fieldbyname('CRID').AsString;
|
||||
end
|
||||
else
|
||||
begin
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('Update YF_Money_CRID set CRID=CRID+1');
|
||||
sql.Add('select * from YF_Money_CRID ');
|
||||
Open;
|
||||
end;
|
||||
CRID := ADOQueryCmd.fieldbyname('CRID').AsString;
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete from YF_Money_CR ');
|
||||
sql.Add(' where MainID=''' + Trim(CDS_HZ.fieldbyname('CRNO').AsString) + '''');
|
||||
sql.Add(' and subID=''' + Trim(CDS_HZ.fieldbyname('CRID').AsString) + '''');
|
||||
sql.Add(' and YFName=''采购费'' ');
|
||||
execsql;
|
||||
end;
|
||||
|
||||
with ADOQueryTemp do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from YF_Money_CR ');
|
||||
sql.Add(' where MainID=''' + Trim(CDS_HZ.fieldbyname('CRNO').AsString) + '''');
|
||||
sql.Add(' and subID=''' + Trim(CDS_HZ.fieldbyname('CRID').AsString) + '''');
|
||||
sql.Add(' and YFName=''采购费'' ');
|
||||
Open;
|
||||
end;
|
||||
|
||||
if ADOQueryTemp.IsEmpty then
|
||||
begin
|
||||
if GetLSNo(ADOQueryCmd, YFID, 'CF', 'YF_Money_CR', 3, 1) = False then
|
||||
begin
|
||||
Application.MessageBox('取应收最大号失败!', '提示', 0);
|
||||
Exit;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
YFID := Trim(ADOQueryTemp.fieldbyname('YFID').AsString);
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('select * from YF_Money_CR where YFID=''' + trim(YFID) + '''');
|
||||
Open;
|
||||
end;
|
||||
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
if IsEmpty then
|
||||
Append
|
||||
else
|
||||
edit;
|
||||
FieldByName('YFID').Value := Trim(YFID);
|
||||
FieldByName('YFTypeId').Value := Trim(CDS_HZ.fieldbyname('CRNO').AsString);
|
||||
FieldByName('CRID').Value := StrToInt(CRID);
|
||||
FieldByName('Filler').Value := Trim(DName);
|
||||
FieldByName('CRType').Value := '应付款登记';
|
||||
FieldByName('CRFlag').Value := '应付付';
|
||||
FieldByName('QtyFlag').Value := 1;
|
||||
FieldByName('FactoryName').Value := Trim(CDS_HZ.fieldbyname('cust').AsString);
|
||||
FieldByName('CRTime').Value := Trim(CDS_HZ.fieldbyname('CRTime').AsString);
|
||||
FieldByName('YFType').Value := '自动生成';
|
||||
FieldByName('ps').Value := CDS_HZ.fieldbyname('RollNum').AsFloat;
|
||||
FieldByName('Qty').Value := CDS_HZ.fieldbyname('Qty').AsFloat;
|
||||
FieldByName('Price').Value := CDS_HZ.fieldbyname('Price').AsFloat;
|
||||
FieldByName('Money').Value := CDS_HZ.fieldbyname('Money').AsFloat;
|
||||
FieldByName('BBMoney').Value := CDS_HZ.fieldbyname('Money').AsFloat;
|
||||
FieldByName('HuiLv').Value := 1;
|
||||
FieldByName('BZType').Value := '人民币';
|
||||
FieldByName('QtyUnit').Value := Trim(CDS_HZ.fieldbyname('QtyUnit').AsString);
|
||||
FieldByName('ComTaiTou').Value := Trim(CDS_HZ.fieldbyname('cust').AsString);
|
||||
FieldByName('YFName').Value := '采购费';
|
||||
FieldByName('MainId').Value := Trim(CDS_HZ.fieldbyname('CRNO').AsString);
|
||||
FieldByName('subID').Value := Trim(CDS_HZ.fieldbyname('CRID').AsString);
|
||||
FieldByName('status').Value := '0';
|
||||
Post;
|
||||
end;
|
||||
|
||||
Result := True;
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.ToolButton3Click(Sender: TObject);
|
||||
begin
|
||||
cxGrid1.SetFocus;
|
||||
|
||||
if Application.MessageBox('确定要保存数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
|
||||
if SaveData() then
|
||||
begin
|
||||
Application.MessageBox('保存成功!', '提示', 0);
|
||||
|
||||
end;
|
||||
|
||||
{ try
|
||||
ADOQueryMain.DisableControls;
|
||||
with ADOQueryMain do
|
||||
begin
|
||||
Filtered := False;
|
||||
Close;
|
||||
SQL.Clear;
|
||||
sql.Add(' select * from KH_Zdy_MLXX where MLID='' '' ');
|
||||
Open;
|
||||
end;
|
||||
SCreateCDS20(ADOQueryMain, CDS_HZ);
|
||||
SInitCDSData20(ADOQueryMain, CDS_HZ);
|
||||
finally
|
||||
ADOQueryMain.EnableControls;
|
||||
end;
|
||||
if Trim(FMLID) = '' then
|
||||
begin
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('Type').Value := '面料';
|
||||
Post;
|
||||
end;
|
||||
end; }
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.v2Column6PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
|
||||
if trim(mvalue) = '' then
|
||||
exit;
|
||||
|
||||
if rightBstr(trim(mvalue), 1) <> '#' then
|
||||
begin
|
||||
mvalue := trim(mvalue) + '#';
|
||||
end;
|
||||
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('ZdyName').Value := Trim(mvalue);
|
||||
Post;
|
||||
end;
|
||||
self.tv1.Controller.EditingController.ShowEdit();
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.v2defstr9PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
|
||||
if trim(mvalue) = '' then
|
||||
exit;
|
||||
|
||||
if rightBstr(trim(mvalue), 1) <> '#' then
|
||||
begin
|
||||
mvalue := trim(mvalue) + '#';
|
||||
end;
|
||||
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('ZdyName').Value := Trim(mvalue);
|
||||
Post;
|
||||
end;
|
||||
self.tv1.Controller.EditingController.ShowEdit();
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.v2Column5PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
begin
|
||||
// mvalue := TcxTextEdit(Sender).EditingText;
|
||||
//
|
||||
// if trim(mvalue) = '' then
|
||||
// exit;
|
||||
//
|
||||
// if rightBstr(trim(mvalue), 1) <> '#' then
|
||||
// begin
|
||||
// mvalue := trim(mvalue) + '#';
|
||||
// end;
|
||||
//
|
||||
// with CDS_HZ do
|
||||
// begin
|
||||
// Edit;
|
||||
// FieldByName('DEFstr3').Value := Trim(mvalue);
|
||||
// Post;
|
||||
// end;
|
||||
// self.tv1.Controller.EditingController.ShowEdit();
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.Tv2Column1PropertiesEditValueChanged(Sender: TObject);
|
||||
var
|
||||
mvalue: string;
|
||||
begin
|
||||
mvalue := TcxTextEdit(Sender).EditingText;
|
||||
|
||||
if trim(mvalue) = '' then
|
||||
exit;
|
||||
|
||||
if rightBstr(trim(mvalue), 1) <> '#' then
|
||||
begin
|
||||
mvalue := trim(mvalue) + '#';
|
||||
end;
|
||||
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('CPHH').Value := Trim(mvalue);
|
||||
Post;
|
||||
end;
|
||||
self.tv1.Controller.EditingController.ShowEdit();
|
||||
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.ToolButton1Click(Sender: TObject);
|
||||
begin
|
||||
CopyAddRow(Tv1, CDS_HZ);
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('CRNO').Value := '';
|
||||
FieldByName('note').Value := '';
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.ToolButton2Click(Sender: TObject);
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then
|
||||
Exit;
|
||||
|
||||
if Trim(CDS_HZ.fieldbyname('SubId').AsString) <> '' then
|
||||
begin
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
Exit;
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
sql.Add('delete KH_Zdy_MLXX where MLID=''' + Trim(CDS_HZ.fieldbyname('MLID').AsString) + '''');
|
||||
ExecSQL;
|
||||
end;
|
||||
end;
|
||||
CDS_HZ.Delete;
|
||||
end;
|
||||
|
||||
procedure TfrmBPRKDR.ToolButton4Click(Sender: TObject);
|
||||
var
|
||||
excelApp, WorkBook: Variant;
|
||||
i, j, k, LX, ExcelRowCount: integer;
|
||||
maxId, FCPID, FCPName, t1, t2, t3, FFID: string;
|
||||
begin
|
||||
with CDS_LM do
|
||||
begin
|
||||
FieldDefs.Clear;
|
||||
FieldDefs.Add('LXH', ftInteger, 0);
|
||||
FieldDefs.Add('lCode', ftString, 40);
|
||||
FieldDefs.Add('LName', ftString, 40);
|
||||
close;
|
||||
CreateDataSet;
|
||||
end;
|
||||
try
|
||||
excelApp := CreateOleObject('Excel.Application');
|
||||
openDialog1.Filter := '*.CSV;*.xls';
|
||||
if opendialog1.Execute then
|
||||
begin
|
||||
WorkBook := excelApp.WorkBooks.Open(OpenDialog1.FileName);
|
||||
end
|
||||
else
|
||||
exit;
|
||||
excelApp.Visible := false;
|
||||
ExcelRowCount := WorkBook.WorkSheets[1].UsedRange.Rows.Count;
|
||||
except
|
||||
application.MessageBox('加载EXCEL错误！', '错误信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
|
||||
CDS_LM.EmptyDataSet;
|
||||
|
||||
for j := 0 to Tv1.ColumnCount - 1 do
|
||||
begin
|
||||
with CDS_LM do
|
||||
begin
|
||||
Append;
|
||||
FieldByName('LCode').Value := trim(Tv1.Columns[j].DataBinding.FieldName);
|
||||
FieldByName('LName').Value := trim(Tv1.Columns[j].Caption);
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
for i := 1 to 50 do
|
||||
begin
|
||||
if trim(WorkBook.WorkSheets[1].Cells[1, i].value) = '' then
|
||||
continue;
|
||||
if CDS_LM.Locate('LName', trim(WorkBook.WorkSheets[1].Cells[1, i].value), []) then
|
||||
begin
|
||||
with CDS_LM do
|
||||
begin
|
||||
Edit;
|
||||
FieldByName('LXH').Value := i;
|
||||
Post;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
except
|
||||
application.MessageBox('加载数组错误！', '错误信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
|
||||
try
|
||||
for i := 2 to ExcelRowCount do
|
||||
begin
|
||||
with CDS_HZ do
|
||||
begin
|
||||
Append;
|
||||
CDS_LM.First;
|
||||
while not CDS_LM.Eof do
|
||||
begin
|
||||
if (CDS_LM.FieldByName('LXH').AsInteger > 0) then
|
||||
CDS_HZ.fieldbyname(CDS_LM.FieldByName('LCode').AsString).Value := WorkBook.WorkSheets[1].Cells[i, CDS_LM.FieldByName('LXH').AsInteger].Value;
|
||||
CDS_LM.Next;
|
||||
end;
|
||||
Post;
|
||||
end;
|
||||
with CDS_HZ do
|
||||
begin
|
||||
First; // 移动到第一条记录
|
||||
while not Eof do
|
||||
begin
|
||||
if Trim(FieldByName('P_CodeName').AsString) = '' then
|
||||
begin
|
||||
Edit;
|
||||
Delete;
|
||||
end
|
||||
else
|
||||
begin
|
||||
Next; // 移动到下一条记录
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
WorkBook.Close;
|
||||
excelApp.Quit;
|
||||
excelApp := Unassigned;
|
||||
WorkBook := Unassigned;
|
||||
except
|
||||
WorkBook.Close;
|
||||
excelApp.Quit;
|
||||
excelApp := Unassigned;
|
||||
WorkBook := Unassigned;
|
||||
exit;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -1,6 +1,6 @@
|
|||
object frmBpRklist: TfrmBpRklist
|
||||
Left = 436
|
||||
Top = 322
|
||||
Left = 480
|
||||
Top = 502
|
||||
Width = 1160
|
||||
Height = 500
|
||||
Caption = #20837#24211#21015#34920
|
||||
|
|
@ -128,21 +128,28 @@ object frmBpRklist: TfrmBpRklist
|
|||
ImageIndex = 12
|
||||
OnClick = ToolButton3Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
object ToolButton4: TToolButton
|
||||
Left = 777
|
||||
Top = 0
|
||||
Caption = #25171#21360#20837#24211#21333
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
object ToolButton5: TToolButton
|
||||
Left = 872
|
||||
Top = 0
|
||||
Caption = #23548#20837#20449#24687
|
||||
ImageIndex = 13
|
||||
OnClick = ToolButton5Click
|
||||
end
|
||||
object TBClose: TToolButton
|
||||
Left = 967
|
||||
Top = 0
|
||||
AutoSize = True
|
||||
Caption = #20851#38381
|
||||
ImageIndex = 55
|
||||
OnClick = TBCloseClick
|
||||
end
|
||||
object ToolButton4: TToolButton
|
||||
Left = 840
|
||||
Top = 0
|
||||
Caption = #25171#21360#20837#24211#21333
|
||||
ImageIndex = 12
|
||||
OnClick = ToolButton4Click
|
||||
end
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Left = 0
|
||||
|
|
@ -426,7 +433,7 @@ object frmBpRklist: TfrmBpRklist
|
|||
object cxGrid1: TcxGrid
|
||||
Left = 0
|
||||
Top = 117
|
||||
Width = 560
|
||||
Width = 744
|
||||
Height = 344
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
|
|
@ -696,9 +703,9 @@ object frmBpRklist: TfrmBpRklist
|
|||
ClientRectTop = 0
|
||||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 560
|
||||
Left = 744
|
||||
Top = 117
|
||||
Width = 584
|
||||
Width = 400
|
||||
Height = 344
|
||||
Align = alRight
|
||||
PopupMenu = PopupMenu1
|
||||
|
|
|
|||
|
|
@ -11,20 +11,19 @@ uses
|
|||
cxGrid, DBClient, ADODB, cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset,
|
||||
RM_Common, RM_Class, RM_e_Xls, RM_System, RM_GridReport, cxPC, cxLookAndFeels,
|
||||
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, cxCheckBox, cxTextEdit,
|
||||
Menus, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint,
|
||||
dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide,
|
||||
dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle, dxSkinFoggy,
|
||||
dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary, dxSkinLilian,
|
||||
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMetropolis,
|
||||
dxSkinMetropolisDark, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinOffice2010Black, dxSkinOffice2010Blue,
|
||||
dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||
Menus, dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
|
||||
dxSkinCoffee, dxSkinDarkRoom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
|
||||
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
|
||||
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||||
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin, dxSkinSeven,
|
||||
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
|
||||
dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
|
||||
dxSkinsDefaultPainters, dxSkinValentine, dxSkinVS2010, dxSkinWhiteprint,
|
||||
dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
TfrmBpRklist = class(TForm)
|
||||
|
|
@ -126,6 +125,7 @@ type
|
|||
Tv1Column2: TcxGridDBColumn;
|
||||
Tv1Column3: TcxGridDBColumn;
|
||||
Tv1Column4: TcxGridDBColumn;
|
||||
ToolButton5: TToolButton;
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure TBAddClick(Sender: TObject);
|
||||
|
|
@ -147,6 +147,7 @@ type
|
|||
procedure N1Click(Sender: TObject);
|
||||
procedure N2Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure ToolButton5Click(Sender: TObject);
|
||||
private
|
||||
TblCprk: string;
|
||||
procedure InitGrid();
|
||||
|
|
@ -169,7 +170,7 @@ var
|
|||
implementation
|
||||
|
||||
uses
|
||||
U_DataLink, U_Fun10, U_ZDYHelp, U_BpRk, U_CPCKMXLR, U_Fun;
|
||||
U_DataLink, U_Fun10, U_ZDYHelp, U_BpRk, U_CPCKMXLR, U_BPRKDR, U_Fun;
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TfrmBpRklist.SetStatus();
|
||||
|
|
@ -341,10 +342,10 @@ begin
|
|||
begin
|
||||
fkeyNo := '';
|
||||
fType := 0;
|
||||
fckName := self.fckName;
|
||||
if showmodal = 1 then
|
||||
begin
|
||||
TBRafresh.Click;
|
||||
fckName := self.fckName;
|
||||
if showmodal = 1 then
|
||||
begin
|
||||
TBRafresh.Click;
|
||||
self.CDS_Main.Locate('crNo', trim(fkeyNo), []);
|
||||
end;
|
||||
free;
|
||||
|
|
@ -665,7 +666,7 @@ begin
|
|||
Exit;
|
||||
|
||||
try
|
||||
with ADOQueryCmd do
|
||||
with ADOQueryCmd do
|
||||
begin
|
||||
Close;
|
||||
sql.Clear;
|
||||
|
|
@ -863,7 +864,7 @@ var
|
|||
fPrintFile: string;
|
||||
Txt, fImagePath, Txt2, fImagePath2: string;
|
||||
Moudle: THandle;
|
||||
Makebar: TMakebar;
|
||||
Makebar: TMakebar;
|
||||
Mixtext: TMixtext;
|
||||
begin
|
||||
|
||||
|
|
@ -875,18 +876,18 @@ begin
|
|||
SQL.Add(' @CRNO=''' + Trim(FJYID) + '''');
|
||||
Open;
|
||||
end;
|
||||
if ADOQueryPrint.IsEmpty then
|
||||
if ADOQueryPrint.IsEmpty then
|
||||
begin
|
||||
application.MessageBox('标签内容未找到！', '提示信息', MB_ICONERROR);
|
||||
exit;
|
||||
end;
|
||||
end;
|
||||
|
||||
try
|
||||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||||
// Txt := Trim(ADOQueryPrint.fieldbyname('CRNO').AsString);
|
||||
Txt := Trim(ADOQueryPrint.fieldbyname('CRNOS').AsString);
|
||||
Txt := Trim(ADOQueryPrint.fieldbyname('CRNOS').AsString);
|
||||
fImagePath := ExtractFilePath(Application.ExeName) + 'image\temp.bmp';
|
||||
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName) + 'image')) then
|
||||
CreateDirectory(pchar(ExtractFilePath(Application.ExeName) + 'image'), nil);
|
||||
|
|
@ -917,5 +918,22 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmBpRklist.ToolButton5Click(Sender: TObject);
|
||||
begin
|
||||
try
|
||||
frmBPRKDR := TfrmBPRKDR.Create(Application);
|
||||
with frmBPRKDR do
|
||||
begin
|
||||
FMLID := '';
|
||||
if ShowModal = 1 then
|
||||
begin
|
||||
TBRafresh.Click;
|
||||
end;
|
||||
end;
|
||||
finally
|
||||
frmBPRKDR.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@ library BaseInfo;
|
|||
|
||||
uses
|
||||
SysUtils,
|
||||
classes,
|
||||
classes,
|
||||
forms,
|
||||
WinTypes,
|
||||
WinProcs,
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
object frmMLXXListSel: TfrmMLXXListSel
|
||||
Left = 588
|
||||
Top = 307
|
||||
Width = 1075
|
||||
Left = 546
|
||||
Top = 248
|
||||
Width = 1158
|
||||
Height = 629
|
||||
Caption = #36741#26009#20449#24687#36873#25321
|
||||
Color = clBtnFace
|
||||
|
|
@ -19,7 +19,7 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
object ToolBar1: TToolBar
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 1059
|
||||
Width = 1142
|
||||
Height = 31
|
||||
ButtonHeight = 30
|
||||
ButtonWidth = 113
|
||||
|
|
@ -112,8 +112,8 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
object Panel1: TPanel
|
||||
Left = 0
|
||||
Top = 31
|
||||
Width = 1059
|
||||
Height = 39
|
||||
Width = 1142
|
||||
Height = 37
|
||||
Align = alTop
|
||||
BevelInner = bvRaised
|
||||
BevelOuter = bvLowered
|
||||
|
|
@ -122,16 +122,16 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
object Label3: TLabel
|
||||
Left = 191
|
||||
Top = 13
|
||||
Width = 48
|
||||
Width = 66
|
||||
Height = 12
|
||||
Caption = #20135#21697#21517#31216
|
||||
Caption = #38754#36741#26009#21517#31216' '
|
||||
end
|
||||
object Label1: TLabel
|
||||
Left = 22
|
||||
Top = 13
|
||||
Width = 48
|
||||
Height = 12
|
||||
Caption = #20135#21697#32534#21495
|
||||
Caption = #36741#26009#32534#21495
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 369
|
||||
|
|
@ -141,25 +141,25 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
Caption = #31867#22411
|
||||
Visible = False
|
||||
end
|
||||
object ZdyName: TEdit
|
||||
object MLName: TEdit
|
||||
Tag = 2
|
||||
Left = 241
|
||||
Left = 253
|
||||
Top = 9
|
||||
Width = 89
|
||||
Height = 20
|
||||
TabOrder = 0
|
||||
OnChange = ZdyNameChange
|
||||
OnChange = MLNameChange
|
||||
end
|
||||
object ZdyCode: TEdit
|
||||
object MLBH: TEdit
|
||||
Tag = 2
|
||||
Left = 71
|
||||
Top = 9
|
||||
Width = 89
|
||||
Height = 20
|
||||
TabOrder = 1
|
||||
OnChange = ZdyNameChange
|
||||
OnChange = MLNameChange
|
||||
end
|
||||
object DEFstr5: TComboBox
|
||||
object Typpe: TComboBox
|
||||
Tag = 1
|
||||
Left = 398
|
||||
Top = 8
|
||||
|
|
@ -169,7 +169,7 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
ItemHeight = 12
|
||||
TabOrder = 2
|
||||
Visible = False
|
||||
OnChange = ZdyNameChange
|
||||
OnChange = MLNameChange
|
||||
Items.Strings = (
|
||||
#22383#24067
|
||||
#25104#21697
|
||||
|
|
@ -178,9 +178,9 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
end
|
||||
object cxGrid2: TcxGrid
|
||||
Left = 0
|
||||
Top = 70
|
||||
Width = 1059
|
||||
Height = 520
|
||||
Top = 68
|
||||
Width = 1142
|
||||
Height = 522
|
||||
Align = alClient
|
||||
TabOrder = 2
|
||||
object Tv2: TcxGridDBTableView
|
||||
|
|
@ -221,6 +221,15 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
Options.Sorting = False
|
||||
Width = 94
|
||||
end
|
||||
object Tv2Column8: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'ssel'
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object v2Column6: TcxGridDBColumn
|
||||
Caption = #38754#36741#26009#21517#31216' '
|
||||
DataBinding.FieldName = 'MLName'
|
||||
|
|
@ -242,14 +251,14 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Width = 88
|
||||
Width = 68
|
||||
end
|
||||
object v2Column11: TcxGridDBColumn
|
||||
Caption = #31867#22411
|
||||
DataBinding.FieldName = 'Type'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Width = 88
|
||||
Width = 49
|
||||
end
|
||||
object v2Column3: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
|
|
@ -308,27 +317,17 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
VisibleForCustomization = False
|
||||
Width = 61
|
||||
end
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
object Tv2Column6: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Width = 114
|
||||
end
|
||||
object v2Column14: TcxGridDBColumn
|
||||
Caption = #25805#20316#21592
|
||||
DataBinding.FieldName = 'Filler'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Width = 60
|
||||
end
|
||||
object v2Column15: TcxGridDBColumn
|
||||
Caption = #25805#20316#26102#38388
|
||||
DataBinding.FieldName = 'FillTime'
|
||||
object Tv2Column9: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'MLSH'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Width = 188
|
||||
Width = 60
|
||||
end
|
||||
object Tv2Column1: TcxGridDBColumn
|
||||
Caption = #20379#24212#21830
|
||||
|
|
@ -342,9 +341,9 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv2Column3: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'MJgg'
|
||||
object Tv2Column5: TcxGridDBColumn
|
||||
Caption = #20799#31461#29992#37327
|
||||
DataBinding.FieldName = 'childamount'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
|
|
@ -354,35 +353,37 @@ object frmMLXXListSel: TfrmMLXXListSel
|
|||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv2Column5: TcxGridDBColumn
|
||||
Caption = #20799#31461#29992#37327
|
||||
DataBinding.FieldName = 'childamount'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv2Column6: TcxGridDBColumn
|
||||
Caption = #21333#20215
|
||||
DataBinding.FieldName = 'Price'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
object Tv2Column7: TcxGridDBColumn
|
||||
Caption = #21512#35745
|
||||
DataBinding.FieldName = 'Total'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
Width = 52
|
||||
end
|
||||
object Tv2Column8: TcxGridDBColumn
|
||||
Caption = #36873#25321
|
||||
DataBinding.FieldName = 'ssel'
|
||||
PropertiesClassName = 'TcxCheckBoxProperties'
|
||||
Properties.ImmediatePost = True
|
||||
Properties.NullStyle = nssUnchecked
|
||||
Width = 60
|
||||
object v2Column1: TcxGridDBColumn
|
||||
Caption = #22791#27880
|
||||
DataBinding.FieldName = 'Note'
|
||||
PropertiesClassName = 'TcxTextEditProperties'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Width = 77
|
||||
end
|
||||
object Tv2Column9: TcxGridDBColumn
|
||||
Caption = #33394#21495
|
||||
DataBinding.FieldName = 'MLSH'
|
||||
object v2Column14: TcxGridDBColumn
|
||||
Caption = #25805#20316#21592
|
||||
DataBinding.FieldName = 'Filler'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Width = 52
|
||||
end
|
||||
object v2Column15: TcxGridDBColumn
|
||||
Caption = #25805#20316#26102#38388
|
||||
DataBinding.FieldName = 'FillTime'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Options.Sorting = False
|
||||
Width = 90
|
||||
end
|
||||
object Tv2Column3: TcxGridDBColumn
|
||||
Caption = #35268#26684
|
||||
DataBinding.FieldName = 'MJgg'
|
||||
HeaderAlignmentHorz = taCenter
|
||||
Width = 60
|
||||
end
|
||||
|
|
|
|||
|
|
@ -29,7 +29,7 @@ uses
|
|||
dxSkinscxPCPainter;
|
||||
|
||||
type
|
||||
FdDy = record
|
||||
FdDy = record
|
||||
inc: integer; //客户端套接字句柄
|
||||
FDdys: string[32]; //客户端套接字
|
||||
FdDysName: string[32]; //客户端套接字
|
||||
|
|
@ -49,16 +49,16 @@ type
|
|||
RM1: TRMGridReport;
|
||||
RMDB_Main: TRMDBDataSet;
|
||||
Label3: TLabel;
|
||||
ZdyName: TEdit;
|
||||
MLName: TEdit;
|
||||
cxGridPopupMenu2: TcxGridPopupMenu;
|
||||
DS_HZ: TDataSource;
|
||||
CDS_HZ: TClientDataSet;
|
||||
ToolButton3: TToolButton;
|
||||
Label1: TLabel;
|
||||
ZdyCode: TEdit;
|
||||
MLBH: TEdit;
|
||||
ToolButton4: TToolButton;
|
||||
Label2: TLabel;
|
||||
DEFstr5: TComboBox;
|
||||
Typpe: TComboBox;
|
||||
OpenDialog1: TOpenDialog;
|
||||
ToolButton5: TToolButton;
|
||||
ToolButton6: TToolButton;
|
||||
|
|
@ -94,7 +94,7 @@ type
|
|||
procedure FormShow(Sender: TObject);
|
||||
procedure TBRafreshClick(Sender: TObject);
|
||||
procedure ToolButton2Click(Sender: TObject);
|
||||
procedure ZdyNameChange(Sender: TObject);
|
||||
procedure MLNameChange(Sender: TObject);
|
||||
procedure ToolButton1Click(Sender: TObject);
|
||||
procedure ToolButton4Click(Sender: TObject);
|
||||
procedure ToolButton3Click(Sender: TObject);
|
||||
|
|
@ -151,12 +151,12 @@ end;
|
|||
|
||||
procedure TfrmMLXXListSel.TBCloseClick(Sender: TObject);
|
||||
begin
|
||||
WriteCxGrid('产品资料13', Tv2, '客户自定义');
|
||||
WriteCxGrid('辅料资料', Tv2, '辅料信息1');
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TfrmMLXXListSel.TBDelClick(Sender: TObject);
|
||||
begin
|
||||
begin
|
||||
if CDS_HZ.IsEmpty then
|
||||
Exit;
|
||||
if Application.MessageBox('确定要删除数据吗？', '提示', 32 + 4) <> IDYES then
|
||||
|
|
@ -176,7 +176,7 @@ end;
|
|||
|
||||
procedure TfrmMLXXListSel.FormShow(Sender: TObject);
|
||||
begin
|
||||
ReadCxGrid('产品资料13', Tv2, '客户自定义');
|
||||
ReadCxGrid('辅料资料', Tv2, '辅料信息1');
|
||||
InitGrid();
|
||||
end;
|
||||
|
||||
|
|
@ -195,7 +195,7 @@ begin
|
|||
end;
|
||||
end;
|
||||
|
||||
procedure TfrmMLXXListSel.ZdyNameChange(Sender: TObject);
|
||||
procedure TfrmMLXXListSel.MLNameChange(Sender: TObject);
|
||||
begin
|
||||
ToolButton2.Click;
|
||||
end;
|
||||
|
|
|
|||
Loading…
Reference in New Issue
Block a user