Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
ff5a18cd95
D7myYunxiang/云翔生产管理(MYSC.dll)/U_MCGCKList.pas

1318 lines
38 KiB
ObjectPascal
Raw Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_MCGCKList;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridCustomPopupMenu, cxGridPopupMenu, cxGridLevel, cxClasses, cxControls,
cxGridCustomView, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
cxGrid, DBClient, cxCheckBox, cxCalendar, cxSplitter, RM_Dataset, RM_System,
RM_Common, RM_Class, RM_GridReport, RM_e_Xls, Menus, cxButtonEdit,
cxDropDownEdit, cxPC, Buttons, cxContainer, cxGroupBox, IdBaseComponent,
IdComponent, IdTCPConnection, IdTCPClient, IdFTP, ShellAPI, ImgList, StrUtils,
cxLookAndFeels, cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu,
1
2025-07-08 09:22:54 +08:00
cxTextEdit, 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;
1
2025-01-20 13:04:03 +08:00
type
TfrmMCGCKList = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
Order_Main: TClientDataSet;
Panel1: TPanel;
v1Column1: TcxGridDBColumn;
Label34: TLabel;
v1Column9: TcxGridDBColumn;
KHNameJC: TEdit;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport2: TRMXLSExport;
CDS_PRT: TClientDataSet;
v1Column3: TcxGridDBColumn;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
CheckBox1: TCheckBox;
Button2: TButton;
Label3: TLabel;
JCDanWeiJC: TEdit;
Button1: TButton;
Label4: TLabel;
filler: TEdit;
v1filler: TcxGridDBColumn;
ODPat: TOpenDialog;
IdFTP1: TIdFTP;
PopupMenu2: TPopupMenu;
Label2: TLabel;
Label1: TLabel;
MYName: TEdit;
Note: TEdit;
ImageList1: TImageList;
KHNo: TEdit;
JCKHNo: TEdit;
Label5: TLabel;
CGName: TEdit;
v1MYName: TcxGridDBColumn;
v1MYMF: TcxGridDBColumn;
v1MYKZ: TcxGridDBColumn;
N5: TMenuItem;
Label6: TLabel;
Label7: TLabel;
MYMF: TEdit;
MYKZ: TEdit;
Tv1Column1: TcxGridDBColumn;
Label9: TLabel;
MLOrderNo: TEdit;
Tv1Column2: TcxGridDBColumn;
Label10: TLabel;
CRType: TComboBox;
Tv1Column3: TcxGridDBColumn;
cxTabControl1: TcxTabControl;
Tv1Column4: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
ToolButton3: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
Tv1Column6: TcxGridDBColumn;
Panel2: TPanel;
cxGrid2: TcxGrid;
Tv2: TcxGridDBTableView;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxGridPopupMenu2: TcxGridPopupMenu;
DataSource2: TDataSource;
Order_Sub: TClientDataSet;
ADOQuerySub: TADOQuery;
N2: TMenuItem;
N3: TMenuItem;
ToolBar2: TToolBar;
ToolButton12: TToolButton;
ToolButton1: TToolButton;
ADOCmd: TADOQuery;
N4: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
ISMS: TCheckBox;
MS: TEdit;
Label8: TLabel;
Qty: TComboBox;
Label11: TLabel;
KHJC: TEdit;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure CustomerNoNameChange(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure ZJStatusChange(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure v1MYNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton3Click(Sender: TObject);
procedure v1Column3PropertiesEditValueChanged(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure cxGridDBColumn10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure N3Click(Sender: TObject);
procedure cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
procedure ToolButton12Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure Panel2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
procedure N7Click(Sender: TObject);
procedure MSKeyPress(Sender: TObject; var Key: Char);
procedure N8Click(Sender: TObject);
procedure Tv1Column1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
procedure QtyChange(Sender: TObject);
private
canshu1: string;
DQdate: TDateTime;
procedure InitGrid();
function SaveData(): Boolean;
procedure InitSubGrid(FMYID: string);
procedure InitSubGrid2(FMainID: string);
procedure InitStatus();
procedure InitForm();
function DelData(): Boolean;
{ Private declarations }
public
FFInt, FCloth: Integer;
{ Public declarations }
end;
var
frmMCGCKList: TfrmMCGCKList;
implementation
uses
U_DataLink, U_RTFun, U_QCRKInPut, U_ZDYHelp, U_LLRKInPut, U_GYSList,
U_LLRKInPutMH_MCG, U_LLRKInPutMH, U_LLRKInPutX, U_LLRKInPut_CG,
U_LLRKInPutMH_CG, U_BPZdy_LRM, U_LLRKInPutMH_MTHCK, U_LLRKInPutMH_MPD, U_MCP,
U_ZSDSeList, U_MPZKCListNew;
{$R *.dfm}
procedure TfrmMCGCKList.FormDestroy(Sender: TObject);
begin
frmMCGCKList := nil;
end;
procedure TfrmMCGCKList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmMCGCKList.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
canshu1 := Trim(DParameters1);
end;
procedure TfrmMCGCKList.TBCloseClick(Sender: TObject);
begin
WriteCxGrid('<27>޳<EFBFBD><DEB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', Tv1, 'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Close;
end;
procedure TfrmMCGCKList.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
case cxTabControl1.TabIndex of
0:
begin
SQL.Add('exec P_View_Mian_WCK2 ');
end;
1:
begin
SQL.Add('exec P_View_Mian_CK2 ');
end;
end;
if CheckBox1.Checked = False then
begin
sql.Add(' @begdate=' + quotedstr(Trim('2000-01-01')));
sql.Add(',@enddate=' + quotedstr(Trim('2100-01-01')));
BegDate.Visible := false;
EndDate.Visible := false;
if cxTabControl1.TabIndex = 0 then
begin
if ISMS.Checked = false then
begin
sql.Add(' ,@ISMS=' + quotedstr(Trim('0')));
end
else
begin
sql.Add(' ,@ISMS=' + quotedstr(Trim('1')));
end;
sql.Add(',@MS=' + Trim(MS.text));
end
else if cxTabControl1.TabIndex = 1 then
begin
sql.Add(',@Qty=' + quotedstr(Trim(Qty.text)));
end;
end
else
begin
sql.Add(' @begdate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', BegDate.Date))));
sql.Add(',@enddate=' + quotedstr(Trim(FormatDateTime('yyyy-MM-dd', EndDate.Date + 1))));
BegDate.Visible := true;
EndDate.Visible := true;
if cxTabControl1.TabIndex = 0 then
begin
if ISMS.Checked = false then
begin
sql.Add(' ,@ISMS=' + quotedstr(Trim('0')));
end
else
begin
sql.Add(' ,@ISMS=' + quotedstr(Trim('1')));
end;
sql.Add(',@MS=' + Trim(MS.text));
end
else if cxTabControl1.TabIndex = 1 then
begin
sql.Add(',@Qty=' + quotedstr(Trim(Qty.text)));
end;
end;
// ShowMessage(sql.text);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmMCGCKList.InitSubGrid(FMYID: string);
begin
try
ADOQuerySub.DisableControls;
with ADOQuerySub do
begin
Filtered := False;
Close;
sql.Clear;
SQL.Add(' select KHJC=(select X.KHNameJC from KH_Main X where X.KHNo =B.KHNo) ');
SQL.Add(' ,GYSJC=(select Top 1 B.KHNameJC from KH_Main B ');
SQL.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHName=A.KHName) ');
SQL.Add(' ,JHQty=(select Sum(X.Qty) from ML_OrderSubidNew X where X.NewMLID=B.NewMLID) ');
SQL.Add(' ,A.*,B.MLOrderNo,SJQty=A.Qty ');
SQL.Add(' from CK_MYSC_CR A ');
SQL.Add(' left JOIN ML_OrderMainNew B on A.MainID=B.NewMLID ');
SQL.Add(' where A.MYID=''' + Trim(FMYID) + '''');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS20(ADOQuerySub, Order_Sub);
SInitCDSData20(ADOQuerySub, Order_Sub);
finally
ADOQuerySub.EnableControls;
end;
end;
procedure TfrmMCGCKList.InitSubGrid2(FMainID: string);
begin
try
ADOQuerySub.DisableControls;
with ADOQuerySub do
begin
Filtered := False;
Close;
sql.Clear;
SQL.Add(' select KHJC=(select X.KHNameJC from KH_Main X where X.KHNo =B.KHNo) ');
SQL.Add(' ,GYSJC=(select Top 1 B.KHNameJC from KH_Main B ');
SQL.Add(' where isnull(B.KHFlag,'''')=''GYS'' and isnull(B.Valid,'''')=''Y'' and B.KHName=A.KHName) ');
SQL.Add(' ,JHQty=(select Sum(X.Qty) from ML_OrderSubidNew X where X.NewMLID=B.NewMLID) ');
SQL.Add(' ,A.*,B.MLOrderNo,SJQty=A.Qty ');
SQL.Add(' from CK_MYSC_CR A ');
SQL.Add(' left JOIN ML_OrderMainNew B on A.MainID=B.NewMLID ');
SQL.Add(' where A.MainID=''' + Trim(FMainID) + '''');
SQL.Add(' and isnull(MYType,'''') in (''<27>ɹ<EFBFBD><C9B9><EFBFBD>'') ');
SQL.Add(' and CRFLag=''<27><><EFBFBD><EFBFBD>'' ');
SQL.Add(' and A.SJLX=''<27><>'' ');
// ShowMessage(sql.text);
Open;
end;
SCreateCDS20(ADOQuerySub, Order_Sub);
SInitCDSData20(ADOQuerySub, Order_Sub);
finally
ADOQuerySub.EnableControls;
end;
end;
procedure TfrmMCGCKList.InitForm();
begin
BegDate.Date := SGetServerDateMBeg(ADOQueryTemp);
EndDate.Date := SGetServerDate(ADOQueryTemp);
ReadCxGrid('<27>޳<EFBFBD><DEB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', Tv1, 'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
InitStatus();
InitGrid();
end;
procedure TfrmMCGCKList.InitStatus();
begin
ToolButton3.Visible := false;
ToolButton5.Visible := false;
ToolButton6.Visible := false;
ToolButton7.Visible := false;
Tv1Column6.Visible := false;
N1.Visible := false;
N2.Visible := false;
N6.Visible := false;
N7.Visible := false;
ISMS.Visible := false;
MS.Visible := false;
Label8.Visible := false;
Qty.Visible := false;
case cxTabControl1.TabIndex of
0:
begin
ToolButton3.Visible := true;
Tv1Column6.Visible := true;
N6.Visible := true;
N7.Visible := true;
ISMS.Visible := true;
MS.Visible := true;
end;
1:
begin
N1.Visible := true;
N2.Visible := true;
Label8.Visible := true;
Qty.Visible := true;
// ToolButton5.Visible := true;
// ToolButton6.Visible := true;
// ToolButton7.Visible := true;
end;
end;
end;
procedure TfrmMCGCKList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
function TfrmMCGCKList.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
Order_Main.DisableControls;
with Order_Main do
begin
//First;
// while Order_Main.Locate('SSel',True,[]) do
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' delete from YS_Money_CR where YFTypeId=''' + trim(Order_Main.fieldbyname('MYID').AsString) + ''' ');
sql.Add(' insert into CK_MYSC_CR_Log ');
sql.Add(' select * from CK_MYSC_CR where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add(' UPdate CK_MYSC_CR_Log Set DelTime=getdate(),DelerCode=''' + Trim(DCode) + ''',Deler=''' + Trim(DName) + '''');
sql.Add(' where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
sql.Add(' Delete from CK_MYSC_CR where MYID=''' + Trim(Order_Main.fieldbyname('MYID').AsString) + '''');
ExecSQL;
end;
Order_Main.Delete;
end;
end;
Order_Main.EnableControls;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmMCGCKList.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
TcxGridToExcel(Self.Caption, cxGrid1);
end;
procedure TfrmMCGCKList.TBRafreshClick(Sender: TObject);
begin
InitGrid();
TBFind.Click;
end;
procedure TfrmMCGCKList.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmMCGCKList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmMCGCKList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmMCGCKList.CustomerNoNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
end;
procedure TfrmMCGCKList.cxTabControl1Change(Sender: TObject);
begin
InitStatus();
InitGrid();
end;
procedure TfrmMCGCKList.ZJStatusChange(Sender: TObject);
begin
TBFind.Click;
end;
procedure TfrmMCGCKList.SpeedButton2Click(Sender: TObject);
begin
try
frmLLRKInPut_CG := TfrmLLRKInPut_CG.Create(Application);
with frmLLRKInPut_CG do
begin
PState := 0;
FMainID := '';
FMYType := '<27>ɹ<EFBFBD><C9B9><EFBFBD><EFBFBD><EFBFBD>';
FMYTypeFlag := 'CGM';
labMYType.Caption := '(<28><><EFBFBD><EFBFBD>)<29>ɹ<EFBFBD>';
FML := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPut_CG.Free;
end;
end;
procedure TfrmMCGCKList.SpeedButton4Click(Sender: TObject);
begin
try
frmLLRKInPutMH_CG := TfrmLLRKInPutMH_CG.Create(Application);
with frmLLRKInPutMH_CG do
begin
PState := 0;
FMainID := '';
FMYType := '<27>ɹ<EFBFBD><C9B9><EFBFBD>';
FMYTypeFlag := 'CGH';
labMYType.Caption := '(<28><>)<29>ɹ<EFBFBD>';
FML := '<27><>';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPutMH_CG.Free;
end;
end;
procedure TfrmMCGCKList.SpeedButton5Click(Sender: TObject);
begin
try
frmLLRKInPutMH_CG := TfrmLLRKInPutMH_CG.Create(Application);
with frmLLRKInPutMH_CG do
begin
PState := 0;
FMainID := '';
FMYType := '<27>ɹ<EFBFBD><C9B9>޷IJ<DEB7>';
FMYTypeFlag := 'CGW';
labMYType.Caption := '(<28>޷IJ<DEB7>)<29>ɹ<EFBFBD>';
FML := '<27>޷IJ<DEB7>';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPutMH_CG.Free;
end;
end;
procedure TfrmMCGCKList.SpeedButton3Click(Sender: TObject);
begin
try
frmLLRKInPut_CG := TfrmLLRKInPut_CG.Create(Application);
with frmLLRKInPut_CG do
begin
PState := 0;
FMainID := '';
FMYType := '<27>ɹ<EFBFBD><C9B9><EFBFBD>';
FMYTypeFlag := 'CGX';
labMYType.Caption := '(<28><>)<29>ɹ<EFBFBD>';
FML := '<27><>';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPut_CG.Free;
end;
end;
procedure TfrmMCGCKList.SpeedButton6Click(Sender: TObject);
begin
try
frmLLRKInPut_CG := TfrmLLRKInPut_CG.Create(Application);
with frmLLRKInPut_CG do
begin
PState := 0;
FMainID := '';
FMYType := '<27>ɹ<EFBFBD><C9B9><EFBFBD>Ʒ';
FMYTypeFlag := 'CGC';
labMYType.Caption := '<27>ɹ<EFBFBD>(<28><>Ʒ)';
FML := '<27><>Ʒ';
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmLLRKInPut_CG.Free;
end;
end;
procedure TfrmMCGCKList.Button2Click(Sender: TObject);
begin
try
frmGYSList := TfrmGYSList.Create(Application);
with frmGYSList do
begin
KHType.Text := '<27>޳<EFBFBD>';
KHType.TxtCode := '<27>޳<EFBFBD>';
if ShowModal = 1 then
begin
Self.KHNameJC.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
TBFind.Click;
end;
end;
finally
frmGYSList.Free;
end;
end;
procedure TfrmMCGCKList.Button1Click(Sender: TObject);
begin
try
frmGYSList := TfrmGYSList.Create(Application);
with frmGYSList do
begin
KHType.Text := '<27>廨<EFBFBD><E5BBA8>';
KHType.TxtCode := '<27>廨<EFBFBD><E5BBA8>';
if ShowModal = 1 then
begin
Self.JCDanWeiJC.Text := Trim(frmGYSList.Order_Main.fieldbyname('KHNameJC').AsString);
TBFind.Click;
end;
end;
finally
frmGYSList.Free;
end;
end;
procedure TfrmMCGCKList.Button3Click(Sender: TObject);
begin
frmBPZDY_LRM := TfrmBPZDY_LRM.create(self);
with frmBPZDY_LRM do
begin
flag := 'MName';
flagName := '<27><>';
ViewFlag := true;
Panel4.Align := alClient;
ToolBar3.Visible := false;
Button1.Visible := False;
if ShowModal = 1 then
begin
MYName.text := Trim(ClientDataSet1.fieldbyname('BPName').AsString);
end;
free;
end;
end;
procedure TfrmMCGCKList.N6Click(Sender: TObject);
begin
SelOKNo(Order_Main, true);
end;
procedure TfrmMCGCKList.v1MYNamePropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
frmMCP := TfrmMCP.create(self);
with frmMCP do
begin
Flag := 'MName';
flagName := '<27><>';
ViewFlag := true;
Panel4.Align := alClient;
ToolBar3.Visible := false;
ToolBar2.Enabled := false;
Button1.Visible := False;
if ShowModal = 1 then
begin
with Order_Main do
begin
Edit;
FieldByName('MYName').Value := Trim(ClientDataSet1.fieldbyname('BPName').AsString);
FieldByName('MYCode').Value := Trim(ClientDataSet1.fieldbyname('BPCode').AsString);
FieldByName('MYMF').Value := Trim(ClientDataSet1.fieldbyname('BPMF').AsString);
FieldByName('MYKZ').Value := Trim(ClientDataSet1.fieldbyname('BPKZ').AsString);
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select B.KHName,B.KHNameJC,B.KHNo from M_Tree A INNER JOIN KH_Main B on A.CPName =B.KHNameJC where CPID =(');
sql.Add(' select CPParent from M_Tree where CPID =(select CPID from M_ZDY where BPID =''' + Trim(ClientDataSet1.fieldbyname('BPID').AsString) + '''');
sql.Add(' ))');
open;
end;
FieldByName('GYSJC').Value := Trim(ADOQueryTemp.fieldbyname('KHNameJC').AsString);
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update CK_MYSC_CR set MYName =''' + Trim(ClientDataSet1.fieldbyname('BPName').AsString) + '''');
sql.Add(', MYCode =''' + Trim(ClientDataSet1.fieldbyname('BPCode').AsString) + '''');
sql.Add(', MYMF =''' + Trim(ClientDataSet1.fieldbyname('BPMF').AsString) + '''');
sql.Add(', MYKZ =''' + Trim(ClientDataSet1.fieldbyname('BPKZ').AsString) + '''');
sql.Add(', KHName =''' + Trim(ADOQueryTemp.fieldbyname('KHName').AsString) + '''');
sql.Add(' where MYID=' + quotedstr(Trim(Order_Main.FieldByName('MYID').AsString)));
// ShowMessage(sql.text);
execsql;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
end;
free;
end;
end;
procedure TfrmMCGCKList.ToolButton3Click(Sender: TObject);
var
maxmxno: string;
begin
if Order_Main.IsEmpty then
Exit;
if Order_Main.Locate('SSel', True, []) = False then
begin
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫȷ<D2AA>ϳ<EFBFBD><CFB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
while Locate('SSel', True, []) do
begin
if GetLSNo(ADOQueryCmd, maxmxno, 'SC', 'CK_MYSC_CR', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('insert into CK_MYSC_CR');
sql.Add('(MainID,CRType,CRFlag,CRQtyFlag,MYType,MYTypeFlag,MYID,MYCode,MYName,MYMF,MYKZ,Qty,Filler,Filltime,CRTime,KHName,SJLX');
sql.Add(') values(');
sql.Add(quotedstr(Trim(Order_Main.fieldbyname('MainID').AsString)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>')));
sql.Add(',-1 ');
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9><EFBFBD>')));
sql.Add(',' + quotedstr(trim('CGM')));
sql.Add(',' + quotedstr(trim(maxmxno)));
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('MYCode').AsString)));
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('MYName').AsString)));
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('MYMF').AsString)));
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('MYKZ').AsString)));
sql.Add(',' + Trim(Order_Main.fieldbyname('JHQty').AsString));
sql.Add(', ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',CONVERT(VARCHAR(10),getdate(),120)');
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('GYSQC').AsString)));
sql.Add(',' + quotedstr(trim('<27><>')));
sql.Add(')');
execsql;
end;
Order_Main.Delete;
end;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmMCGCKList.v1Column3PropertiesEditValueChanged(Sender: TObject);
var
mvalue, FFieldName: string;
begin
mvalue := TcxTextEdit(Sender).EditingText;
FFieldName := Trim(Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName);
with Order_Main do
begin
Edit;
FieldByName(FFieldName).Value := mvalue;
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('update CK_MYSC_CR set Qty = ' + mvalue);
sql.Add(' where MYID=' + quotedstr(Trim(Order_Main.FieldByName('MYID').AsString)));
// ShowMessage(sql.text);
ExecSQL;
end;
Tv1.Controller.EditingController.ShowEdit();
end;
procedure TfrmMCGCKList.ToolButton7Click(Sender: TObject);
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add(' delete from CK_MYSC_CR ');
sql.Add(' where MYID=' + quotedstr(Trim(Order_Main.FieldByName('MYID').AsString)));
// ShowMessage(sql.text);
execsql;
end;
end;
Order_Main.Delete;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmMCGCKList.ToolButton5Click(Sender: TObject);
var
maxmxno: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
if GetLSNo(ADOQueryCmd, maxmxno, 'SD', 'CK_MYSC_CR', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('insert into CK_MYSC_CR');
sql.Add('(CRType,CRFlag,CRQtyFlag,MYType,MYTypeFlag,MYID,Qty,Filler,Filltime,CRTime,SJLX');
sql.Add(') values(');
sql.Add(quotedstr(trim('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>')));
sql.Add(',-1 ');
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9><EFBFBD>')));
sql.Add(',' + quotedstr(trim('CGM')));
sql.Add(',' + quotedstr(trim(maxmxno)));
sql.Add(',' + Trim('0'));
sql.Add(', ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',CONVERT(VARCHAR(10),getdate(),120)');
sql.Add(',' + quotedstr(trim('<27><>')));
sql.Add(')');
// ShowMessage(sql.text);
execsql;
end;
end;
InitGrid();
TBFind.Click;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmMCGCKList.ToolButton6Click(Sender: TObject);
var
maxmxno: string;
begin
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
if GetLSNo(ADOQueryCmd, maxmxno, 'FZ', 'CK_MYSC_CR', 3, 1) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('insert into CK_MYSC_CR');
sql.Add('(MainID,CRType,CRFlag,CRQtyFlag,MYType,MYTypeFlag,MYID,MYCode,MYName,MYMF,MYKZ,Qty,Filler,Filltime,CRTime,KHName,SJLX');
sql.Add(') values(');
sql.Add(quotedstr(Trim(Order_Main.fieldbyname('MainID').AsString)));
sql.Add(',' + quotedstr(trim('<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>')));
sql.Add(',-1 ');
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD><C9B9><EFBFBD>')));
sql.Add(',' + quotedstr(trim('CGM')));
sql.Add(',' + quotedstr(trim(maxmxno)));
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('MYCode').AsString)));
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('MYName').AsString)));
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('MYMF').AsString)));
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('MYKZ').AsString)));
sql.Add(',' + Trim('0'));
sql.Add(', ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',CONVERT(VARCHAR(10),getdate(),120)');
sql.Add(',' + quotedstr(Trim(Order_Main.fieldbyname('GYSQC').AsString)));
sql.Add(',' + quotedstr(trim('<27><>')));
sql.Add(')');
// ShowMessage(sql.text);
execsql;
end;
InitGrid();
TBFind.Click;
end;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmMCGCKList.N5Click(Sender: TObject);
begin
ReadCxGrid('<27>޳<EFBFBD><DEB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Tv2', Tv2, 'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Panel2.Visible := True;
cxTabControl1.Enabled := False;
cxGrid1.Enabled := False;
InitSubGrid('');
end;
procedure TfrmMCGCKList.N1Click(Sender: TObject);
begin
if cxTabControl1.TabIndex = 0 then
begin
Exit;
end;
ReadCxGrid('<27>޳<EFBFBD><DEB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Tv2', Tv2, 'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
cxGrid1.Enabled := False;
cxTabControl1.Enabled := False;
Panel2.Visible := True;
if Trim(Order_Main.fieldbyname('MainID').AsString) <> '' then
begin
InitSubGrid2(Trim(Order_Main.fieldbyname('MainID').AsString));
end
else
begin
InitSubGrid(Trim(Order_Main.fieldbyname('MYID').AsString));
end;
end;
procedure TfrmMCGCKList.N2Click(Sender: TObject);
begin
if cxTabControl1.TabIndex = 0 then
begin
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with Order_Main do
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add(' delete from CK_MYSC_CR ');
sql.Add(' where MYID=' + quotedstr(Trim(Order_Main.FieldByName('MYID').AsString)));
execsql;
end;
end;
Order_Main.Delete;
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
end;
end;
procedure TfrmMCGCKList.cxGridDBColumn10PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZSDSeList := TfrmZSDSeList.Create(Application);
with frmZSDSeList do
begin
if ShowModal = 1 then
begin
with Self.Order_Sub do
begin
Edit;
Self.Order_Sub.FieldByName('MLOrderNo').Value := Trim(frmZSDSeList.Order_Main.FieldByName('MLOrderNo').AsString);
Self.Order_Sub.FieldByName('KHJC').Value := Trim(frmZSDSeList.Order_Main.FieldByName('KHNameJC').AsString);
Self.Order_Sub.FieldByName('MainID').Value := Trim(frmZSDSeList.Order_Main.FieldByName('NewMLID').AsString);
Self.Order_Sub.FieldByName('MYCode').Value := Trim(frmZSDSeList.Order_Main.FieldByName('MLCode').AsString);
Self.Order_Sub.FieldByName('MYName').Value := Trim(frmZSDSeList.Order_Main.FieldByName('MLName').AsString);
Self.Order_Sub.FieldByName('MYMF').Value := Trim(frmZSDSeList.Order_Main.FieldByName('MLMF').AsString);
Self.Order_Sub.FieldByName('MYKZ').Value := Trim(frmZSDSeList.Order_Main.FieldByName('MLKZ').AsString);
Self.Order_Sub.FieldByName('GYSJC').Value := Trim(frmZSDSeList.Order_Main.FieldByName('GYSName').AsString);
Self.Order_Sub.FieldByName('JHQty').Value := frmZSDSeList.Order_Main.FieldByName('ZQty').AsFloat;
Self.Order_Sub.FieldByName('SJQty').Value := frmZSDSeList.Order_Main.FieldByName('ZQty').AsFloat;
end;
end;
end;
finally
frmZSDSeList.Free;
end;
end;
procedure TfrmMCGCKList.N3Click(Sender: TObject);
begin
with Order_Sub do
begin
Append;
Post;
end;
end;
procedure TfrmMCGCKList.cxGridDBColumn4PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmMPZKCListNew := TfrmMPZKCListNew.Create(Self);
with frmMPZKCListNew do
begin
if ShowModal = 1 then
begin
with Self.Order_Sub do
begin
Edit;
Self.Order_Sub.FieldByName('MYCode').Value := Trim(frmMPZKCListNew.FCode);
Self.Order_Sub.FieldByName('MYName').Value := Trim(frmMPZKCListNew.FName);
Self.Order_Sub.FieldByName('MYMF').Value := '153';
Self.Order_Sub.FieldByName('MYKZ').Value := Trim(frmMPZKCListNew.FKZ);
Self.Order_Sub.FieldByName('GYSJC').Value := Trim(frmMPZKCListNew.FGYS);
Self.Order_Sub.FieldByName('SJQty').Value := frmMPZKCListNew.FMianQty;
end;
end;
end;
finally
frmMPZKCListNew.Free;
end;
end;
procedure TfrmMCGCKList.ToolButton12Click(Sender: TObject);
begin
WriteCxGrid('<27>޳<EFBFBD><DEB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Tv2', Tv2, 'ó<><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
Panel2.Visible := False;
cxGrid1.Enabled := true;
cxTabControl1.Enabled := true;
end;
procedure TfrmMCGCKList.ToolButton1Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>ղ<EFBFBD><D5B2>ܱ<EFBFBD><DCB1><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Order_Sub.Locate('SJQty', null, []) = True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Order_Sub.Locate('SJQty', 0, []) = True then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ0!', '<27><>ʾ', 0);
Exit;
end;
if Order_Sub.Locate('MYName', null, []) = True then
begin
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Order_Sub.Locate('MYName', '', []) = True then
begin
Application.MessageBox('Ʒ<><C6B7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
Panel2.Visible := False;
cxGrid1.Enabled := true;
cxTabControl1.Enabled := true;
InitGrid();
TBFind.Click;
end;
end;
function TfrmMCGCKList.SaveData(): Boolean;
var
maxno, MXmaxno, forderNo: string;
begin
try
ADOCmd.Connection.BeginTrans;
///<2F><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD>
with Order_Sub do
begin
First;
while not Eof do
begin
if Trim(Order_Sub.fieldbyname('MYID').AsString) = '' then
begin
if GetLSNo(ADOQueryTemp, maxno, 'SD', 'CK_MYSC_CR', 3, 1) = False then
begin
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1>ˮ<EFBFBD><CBAE>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
maxno := Trim(Order_Sub.fieldbyname('MYID').AsString);
end;
with ADOCmd do
begin
Close;
SQL.Clear;
sql.Add(' select * from CK_MYSC_CR ');
sql.Add(' where MYID=''' + Trim(maxno) + '''');
Open;
end;
with ADOCmd do
begin
if Trim(Order_Sub.fieldbyname('MYID').AsString) = '' then
begin
Append;
fieldbyname('Filler').Value := Trim(DName);
FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
FieldByName('CRTime').Value := SGetServerDate(ADOQueryTemp);
fieldbyname('CRType').Value := '<27>ֶ<EFBFBD><D6B6><EFBFBD><EFBFBD><EFBFBD>';
fieldbyname('CRFlag').Value := '<27><><EFBFBD><EFBFBD>';
fieldbyname('CRQtyFlag').Value := -1;
fieldbyname('MYType').Value := '<27>ɹ<EFBFBD><C9B9><EFBFBD>';
fieldbyname('MYTypeFLag').Value := 'CGM';
fieldbyname('SJLX').Value := '<27><>';
end
else
begin
Edit;
end;
FieldByName('MYID').Value := Trim(maxno);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select KHName from KH_Main ');
sql.Add(' where KHNameJC=''' + Trim(Order_Sub.FieldByName('GYSJC').AsString) + '''');
Open;
end;
fieldbyname('KHName').Value := Trim(ADOQueryTemp.FieldByName('KHName').AsString);
fieldbyname('MYCode').Value := Trim(Order_Sub.FieldByName('MYCode').AsString);
fieldbyname('MYName').Value := Trim(Order_Sub.FieldByName('MYName').AsString);
fieldbyname('MYMF').Value := Trim(Order_Sub.FieldByName('MYMF').AsString);
fieldbyname('MYKZ').Value := Trim(Order_Sub.FieldByName('MYKZ').AsString);
fieldbyname('MainID').Value := Trim(Order_Sub.FieldByName('MainID').AsString);
fieldbyname('Qty').Value := Order_Sub.FieldByName('SJQty').AsFloat;
Post;
end;
Order_Sub.Edit;
Order_Sub.FieldByName('MYID').Value := Trim(maxno);
Next;
end;
end;
ADOCmd.Connection.CommitTrans;
Result := True;
except
Result := False;
ADOCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
end;
end;
procedure TfrmMCGCKList.N4Click(Sender: TObject);
begin
if Order_Sub.IsEmpty then
Exit;
CopyAddRowCDS(Order_Sub);
with Order_Sub do
begin
Edit;
FieldByName('MYID').Value := null;
Post;
end;
end;
procedure TfrmMCGCKList.Panel2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(Panel2.Handle, wm_SysCommand, $F012, 0);
end;
procedure TfrmMCGCKList.N7Click(Sender: TObject);
begin
SelOKNo(Order_Main, false);
end;
procedure TfrmMCGCKList.MSKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
InitGrid();
end;
end;
procedure TfrmMCGCKList.N8Click(Sender: TObject);
begin
// if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
// Exit;
//
// try
// ADOQueryCmd.Connection.BeginTrans;
// with Order_Sub do
// begin
// with ADOQueryCmd do
// begin
// close;
// sql.Clear;
// sql.Add(' delete from CK_MYSC_CR ');
// sql.Add(' where MYID=' + quotedstr(Trim(Order_Sub.FieldByName('MYID').AsString)));
// ShowMessage(sql.text);
// execsql;
// end;
// end;
// Order_Sub.Delete;
// ADOQueryCmd.Connection.CommitTrans;
// except
// ADOQueryCmd.Connection.RollbackTrans;
// end;
end;
procedure TfrmMCGCKList.Tv1Column1CompareRowValuesForCellMerging(Sender: TcxGridColumn; ARow1: TcxGridDataRow; AProperties1: TcxCustomEditProperties; const AValue1: Variant; ARow2: TcxGridDataRow; AProperties2: TcxCustomEditProperties; const AValue2: Variant; var AAreEqual: Boolean);
begin
if ARow1.Values[Tv1Column1.Index] = ARow2.Values[Tv1Column1.Index] then
AAreEqual := True
else
AAreEqual := False;
end;
procedure TfrmMCGCKList.QtyChange(Sender: TObject);
begin
InitGrid();
end;
end.
Reference in New Issue Copy Permalink