rtgit/RTFormwork
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
e76a145688
RTFormwork/项目代码/RTBasicsV1/A03基础价格管理/U_ClothQuotationList.pas

1000 lines
27 KiB
ObjectPascal
Raw Normal View History

1
2024-07-07 09:35:27 +08:00
unit U_ClothQuotationList;
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, cxPC, cxButtonEdit,
cxTextEdit, cxDropDownEdit, cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore,
dxSkinsDefaultPainters, cxNavigator, dxDateRanges, dxBarBuiltInMenu,
U_BaseList, RM_e_Graphic, RM_e_Jpeg, RM_E_llPDF, Vcl.Clipbrd, cxContainer,
dxCore, cxDateUtils, cxMaskEdit, dxSkinBasic, 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, dxSkinOffice2016Colorful, dxSkinOffice2016Dark,
dxSkinOffice2019Black, dxSkinOffice2019Colorful, dxSkinOffice2019DarkGray,
dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven, dxSkinSevenClassic,
dxSkinSharp, dxSkinSharpPlus, dxSkinSilver, dxSkinSpringtime, dxSkinStardust,
dxSkinSummer2008, dxSkinTheAsphaltWorld, dxSkinTheBezier, dxSkinValentine,
dxSkinVisualStudio2013Blue, dxSkinVisualStudio2013Dark,
dxSkinVisualStudio2013Light, dxSkinVS2010, dxSkinWhiteprint, dxSkinWXI,
dxSkinXmas2008Blue, dxScrollbarAnnotations, FrameDateSel;
type
TfrmClothQuotationList = class(TfrmBaseList)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBFind: TToolButton;
TBAdd: TToolButton;
TBEdit: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Tv1: TcxGridDBTableView;
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
GPM_1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DS_1: TDataSource;
v1OrdDate: TcxGridDBColumn;
v1DeliveryDate: TcxGridDBColumn;
v1OrdPerson1: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
CDS_2: TClientDataSet;
v1CustomerNoName: TcxGridDBColumn;
ToolButton1: TToolButton;
v1Column1: TcxGridDBColumn;
ToolButton2: TToolButton;
v1Column4: TcxGridDBColumn;
pm2: TPopupMenu;
Panel1: TPanel;
Label4: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
MPRTCodeName: TEdit;
MPRTKZ: TEdit;
MPRTMF: TEdit;
cxTabControl1: TcxTabControl;
tchk: TToolButton;
Tnochk: TToolButton;
cxSplitter1: TcxSplitter;
DS_2: TDataSource;
Tqx: TToolButton;
Tnoqx: TToolButton;
ToolButton5: TToolButton;
v1Column10: TcxGridDBColumn;
v1Column9: TcxGridDBColumn;
GPM_2: TcxGridPopupMenu;
CDS_1: TClientDataSet;
btnTijiao: TToolButton;
btnCXTijiao: TToolButton;
v1Column13: TcxGridDBColumn;
Tv1Column2: TcxGridDBColumn;
Tv1Column3: TcxGridDBColumn;
Tv1Column4: TcxGridDBColumn;
Tv1Column7: TcxGridDBColumn;
Tv1Column14: TcxGridDBColumn;
pm1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
ADOQueryImage: TADOQuery;
ToolButton7: TToolButton;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
frmFrameDateSel1: TfrmFrameDateSel;
BuyName: TcxTextEdit;
MVCNo: TcxTextEdit;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
v1XHNo: TcxGridDBColumn;
VC_SCSCode: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
v1Column5: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
Tv1Column5: TcxGridDBColumn;
Tv1Column13: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
Tv1Column1: TcxGridDBColumn;
Tv1Column8: TcxGridDBColumn;
v1Column6: TcxGridDBColumn;
v1Column7: TcxGridDBColumn;
v1PRTPrice: TcxGridDBColumn;
v1OrderUnit: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
Tv1Column6: TcxGridDBColumn;
Tv1Column9: TcxGridDBColumn;
Tv1Column10: TcxGridDBColumn;
Tv1Column11: TcxGridDBColumn;
Tv1Column12: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
TV2Column1: TcxGridDBColumn;
ToolButton3: TToolButton;
TV2Column2: TcxGridDBColumn;
TV2Column3: TcxGridDBColumn;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure TBFindClick(Sender: TObject);
procedure TBEditClick(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure TBAddClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
procedure CheckBox1Click(Sender: TObject);
procedure CheckBox2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure BuyNameChange(Sender: TObject);
procedure tchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
procedure TqxClick(Sender: TObject);
procedure TnoqxClick(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
procedure btnTijiaoClick(Sender: TObject);
procedure btnCXTijiaoClick(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure TBPrintClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
private
fFlileFlag: string;
procedure InitGrid();
procedure SetStatus();
procedure InitSub();
procedure InitImage();
{ Private declarations }
public
FFInt, FCloth: Integer;
FAuthority, FGSTT, FSubIdS: string;
{ Public declarations }
end;
implementation
uses
U_DataLink, U_ClothQuotationInPut, U_RTFun, U_AttachmentUpload, U_LabelPrint;
{$R *.dfm}
procedure TfrmClothQuotationList.InitImage();
begin
ADOQueryImage.Close;
if CDS_1.IsEmpty then
exit;
with ADOQueryImage do
begin
close;
sql.Clear;
sql.Add('select * from TP_File A');
sql.Add('where WBID=' + quotedstr(trim(CDS_1.fieldbyname('SubId').AsString)));
sql.Add('and TFType=' + quotedstr(trim('HX')));
open;
end;
end;
procedure TfrmClothQuotationList.InitSub();
begin
if CDS_1.IsEmpty then
exit;
with ADOQueryTemp do
begin
close;
sql.Clear;
sql.Add('select * from MV_Cloth_sub A ');
sql.Add('where MVCMID =' + quotedstr((CDS_1.fieldbyname('MVCMID').AsString)));
open;
end;
SCreateCDS(ADOQueryTemp, CDS_2);
SInitCDSData(ADOQueryTemp, CDS_2);
TV2.DataController.Filter.Clear;
end;
procedure TfrmClothQuotationList.N1Click(Sender: TObject);
begin
SelOKNo(CDS_2, true);
end;
procedure TfrmClothQuotationList.N2Click(Sender: TObject);
begin
SelOKNo(CDS_2, False);
end;
procedure TfrmClothQuotationList.N3Click(Sender: TObject);
begin
1
2024-07-07 19:26:56 +08:00
CopyTVFocusValue(TV1);
1
2024-07-07 09:35:27 +08:00
end;
procedure TfrmClothQuotationList.N4Click(Sender: TObject);
begin
CopyTVFocusValue(TV2);
end;
procedure TfrmClothQuotationList.N5Click(Sender: TObject);
begin
SelOKNo(CDS_1, True);
end;
procedure TfrmClothQuotationList.N6Click(Sender: TObject);
begin
SelOKNo(CDS_1, False);
end;
procedure TfrmClothQuotationList.SetStatus();
begin
TBAdd.Enabled := false;
tbedit.Enabled := false;
ToolButton2.Enabled := false;
tchk.Enabled := false;
tnochk.Enabled := false;
Tqx.Enabled := false;
TNoqx.Enabled := false;
TBPrint.Enabled := False;
btnTijiao.Enabled := False;
btnCXTijiao.Enabled := False;
if Trim(FAuthority) = '¼<><C2BC>' then
begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
TBPrint.Enabled := True;
case cxTabControl1.TabIndex of
0:
begin
tbedit.Enabled := true;
Tqx.Enabled := True;
btnTijiao.Enabled := True;
end;
1:
begin
tbedit.Enabled := True;
btnCXTijiao.Enabled := True;
end;
2:
begin
tbedit.Enabled := True;
end;
3:
begin
TNoqx.Enabled := True;
end;
end;
end;
if Trim(FAuthority) = '<27><><EFBFBD><EFBFBD>' then
begin
ToolButton2.Enabled := true;
TBAdd.Enabled := true;
TBPrint.Enabled := True;
case cxTabControl1.TabIndex of
0:
begin
tbedit.Enabled := true;
Tqx.Enabled := true;
btnTijiao.Enabled := True;
end;
1:
begin
tbedit.Enabled := True;
btnCXTijiao.Enabled := True;
tchk.Enabled := True;
end;
2:
begin
tbedit.Enabled := True;
tnochk.Enabled := True;
end;
3:
begin
TNoqx.Enabled := true;
end;
end;
end;
if Trim(FAuthority) = '<27><>ѯ' then
begin
TBPrint.Enabled := True;
end;
end;
procedure TfrmClothQuotationList.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
Action := caFree;
end;
procedure TfrmClothQuotationList.FormCreate(Sender: TObject);
begin
inherited;
frmFrameDateSel1.EndDate.Date := SGetServerDate(ADOQueryTemp);
frmFrameDateSel1.BegDate.Date := frmFrameDateSel1.EndDate.Date - 90;
end;
procedure TfrmClothQuotationList.TBCloseClick(Sender: TObject);
begin
Close;
end;
procedure TfrmClothQuotationList.InitGrid();
var
WSql, SqlStr: string;
begin
WSql := SGetFilters(Panel1, 1, 2);
SqlStr := 'select * from MV_Cloth_Main ';
SqlStr := SqlStr + 'where MVCType=''<27><><EFBFBD><EFBFBD>'' ';
SqlStr := SqlStr + ' and MVCDate>' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.BegDate.Date));
SqlStr := SqlStr + ' and MVCDate<=' + quotedstr(FormatDateTime('yyyy-MM-dd', frmFrameDateSel1.enddate.Date + 1));
case cxTabControl1.TabIndex of
0:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''0''';
end;
1:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''1''';
end;
2:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''9''';
end;
3:
begin
SqlStr := SqlStr + ' and isnull(status,''0'')=''-1''';
end;
end;
// showmessage(SqlStr);
InitCDSData(ADOQueryMain, CDS_1, Tv1, SqlStr, WSql, 'MVCNo');
end;
procedure TfrmClothQuotationList.TBFindClick(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmClothQuotationList.TBPrintClick(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'ClothQuotationPrint';
FFiltration1 := Trim(Self.CDS_1.fieldbyname('MVCMID').AsString);
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmClothQuotationList.TBEditClick(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
// ShowMessage(Trim(CDS_1.fieldbyname('Filler').AsString));
// ShowMessage(Trim(DName));
if Trim(CDS_1.fieldbyname('Filler').AsString) <> Trim(DName) then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
frmClothQuotationInPut := TfrmClothQuotationInPut.Create(Application);
with frmClothQuotationInPut do
begin
PState := '<27>޸<EFBFBD>';
FMVCMID := Trim(Self.CDS_1.fieldbyname('MVCMID').AsString);
FAuthority := self.FAuthority;
FGSTT := self.FGSTT;
fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then
begin
end;
end;
finally
frmClothQuotationInPut.Free;
end;
end;
procedure TfrmClothQuotationList.TBRafreshClick(Sender: TObject);
begin
1
2024-07-07 19:26:56 +08:00
ToolBar1.SetFocus;
1
2024-07-07 09:35:27 +08:00
InitGrid();
end;
procedure TfrmClothQuotationList.TBAddClick(Sender: TObject);
var
maxno: string;
begin
try
frmClothQuotationInPut := TfrmClothQuotationInPut.Create(Application);
with frmClothQuotationInPut do
begin
PState := '<27><><EFBFBD><EFBFBD>';
FMVCMID := '';
FAuthority := self.FAuthority;
FGSTT := self.FGSTT;
fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then
begin
end;
end;
finally
frmClothQuotationInPut.Free;
end;
end;
procedure TfrmClothQuotationList.FormShow(Sender: TObject);
begin
inherited;
fFlileFlag := UserDataFlag + 'HX';
FAuthority := self.fParameters1;
readCxGrid(trim(Self.Caption) + 'tv1', Tv1, '<27><><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>');
readCxGrid(trim(Self.Caption) + 'tv2', Tv2, '<27><><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>');
SetStatus();
InitGrid();
end;
procedure TfrmClothQuotationList.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if ToolButton1.Visible = False then
Exit;
ToolButton1.Click;
end;
procedure TfrmClothQuotationList.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmClothQuotationList.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmClothQuotationList.ToolButton1Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmClothQuotationInPut := TfrmClothQuotationInPut.Create(Application);
with frmClothQuotationInPut do
begin
PState := '<27>鿴';
FMVCMID := Trim(Self.CDS_1.fieldbyname('MVCMID').AsString);
FGSTT := self.FGSTT;
ToolBar2.Visible := False;
TBSave.Visible := False;
// ScrollBox1.Enabled := False;
if ShowModal = 1 then
begin
end;
end;
finally
frmClothQuotationInPut.Free;
end;
end;
procedure TfrmClothQuotationList.ToolButton2Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmClothQuotationInPut := TfrmClothQuotationInPut.Create(Application);
with frmClothQuotationInPut do
begin
PState := '<27><><EFBFBD><EFBFBD>';
FMVCMID := Trim(Self.CDS_1.fieldbyname('MVCMID').AsString);
FAuthority := self.FAuthority;
fFlileFlag := self.fFlileFlag;
if ShowModal = 1 then
begin
end;
end;
finally
frmClothQuotationInPut.Free;
end;
end;
procedure TfrmClothQuotationList.ToolButton3Click(Sender: TObject);
var
WSql: string;
begin
if CDS_1.IsEmpty then
Exit;
WSql := SelCDSKey(CDS_2, ['MVCsID'])[0];
if Trim(WSql) = '' then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
try
frmLabelPrint := TfrmLabelPrint.Create(Application);
with frmLabelPrint do
begin
FLMType := 'ClothQuotationPrint1';
FFiltration1 := WSql;
if ShowModal = 1 then
begin
// Self.InitGrid();
end;
end;
finally
frmLabelPrint.Free;
end;
end;
procedure TfrmClothQuotationList.BuyNameChange(Sender: TObject);
begin
if ADOQueryMain.Active = False then
Exit;
SDofilter(ADOQueryMain, SGetFilters(Panel1, 1, 2));
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
end;
procedure TfrmClothQuotationList.tchkClick(Sender: TObject);
var
MMVCMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MMVCMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MMVCMIDS := MMVCMIDS + trim(fieldbyname('MVCMID').AsString) + ',';
end;
next;
end;
MMVCMIDS := copy(MMVCMIDS, 1, Length(MMVCMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_MV_Cloth_SetStatus ');
sql.Add(' @MVCMIDS=' + QuotedStr(MMVCMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>ID<49><44>' + trim(MMVCMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothQuotationList.TnochkClick(Sender: TObject);
var
MMVCMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MMVCMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MMVCMIDS := MMVCMIDS + trim(fieldbyname('MVCMID').AsString) + ',';
end;
next;
end;
MMVCMIDS := copy(MMVCMIDS, 1, Length(MMVCMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_MV_Cloth_SetStatus ');
sql.Add(' @MVCMIDS=' + QuotedStr(MMVCMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>ID<49><44>' + trim(MMVCMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD>˳ɹ<CBB3>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothQuotationList.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
TBRafresh.Click;
end;
procedure TfrmClothQuotationList.Tv1FocusedRecordChanged(Sender: TcxCustomGridTableView; APrevFocusedRecord, AFocusedRecord: TcxCustomGridRecord; ANewItemRecordFocusingChanged: Boolean);
begin
InitSub();
end;
procedure TfrmClothQuotationList.TqxClick(Sender: TObject);
var
MMVCMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MMVCMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MMVCMIDS := MMVCMIDS + trim(fieldbyname('MVCMID').AsString) + ',';
end;
next;
end;
MMVCMIDS := copy(MMVCMIDS, 1, Length(MMVCMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_MV_Cloth_SetStatus ');
sql.Add(' @MVCMIDS=' + QuotedStr(MMVCMIDS));
sql.Add(',@Operation=''ȡ<><C8A1>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>ID<49><44>' + trim(MMVCMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('ȡ<><C8A1><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothQuotationList.TnoqxClick(Sender: TObject);
var
MMVCMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MMVCMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MMVCMIDS := MMVCMIDS + trim(fieldbyname('MVCMID').AsString) + ',';
end;
next;
end;
MMVCMIDS := copy(MMVCMIDS, 1, Length(MMVCMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD>ȡ<EFBFBD><C8A1>')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>ID<49><44>' + trim(MMVCMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
sql.Add(' exec P_MV_Cloth_SetStatus ');
sql.Add(' @MVCMIDS=' + QuotedStr(MMVCMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1>'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
ShowMessage(sql.Text);
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD><EFBFBD>ȡ<EFBFBD><C8A1><EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothQuotationList.ToolButton5Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
fkeyNO := Trim(Self.CDS_1.fieldbyname('MVCMID').AsString);
fType := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmClothQuotationList.ToolButton7Click(Sender: TObject);
begin
writeCxGrid(trim(Self.Caption) + 'tv1', Tv1, '<27><><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>');
writeCxGrid(trim(Self.Caption) + 'tv2', Tv2, '<27><><EFBFBD>۹<EFBFBD><DBB9><EFBFBD>');
end;
procedure TfrmClothQuotationList.Tv1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
begin
if AViewInfo.GridRecord.Values[tv1.GetColumnByFieldName('status').Index] = '2' then
ACanvas.Brush.Color := clLime;
end;
procedure TfrmClothQuotationList.btnTijiaoClick(Sender: TObject);
var
MMVCMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MMVCMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MMVCMIDS := MMVCMIDS + trim(fieldbyname('MVCMID').AsString) + ',';
end;
next;
end;
MMVCMIDS := copy(MMVCMIDS, 1, Length(MMVCMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_MV_Cloth_SetStatus ');
sql.Add(' @MVCMIDS=' + QuotedStr(MMVCMIDS));
sql.Add(',@Operation=''<27>ύ'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD><EFBFBD>ύ')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>ID<49><44>' + trim(MMVCMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27>ύ<EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
procedure TfrmClothQuotationList.btnCXTijiaoClick(Sender: TObject);
var
MMVCMIDS: string;
begin
if CDS_1.IsEmpty then
exit;
if not CDS_1.Locate('SSel', True, []) then
begin
application.MessageBox('<27><>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ');
Exit;
end;
with CDS_1 do
begin
DisableControls;
First;
MMVCMIDS := '';
while not eof do
begin
if fieldbyname('SSel').AsBoolean then
begin
MMVCMIDS := MMVCMIDS + trim(fieldbyname('MVCMID').AsString) + ',';
end;
next;
end;
MMVCMIDS := copy(MMVCMIDS, 1, Length(MMVCMIDS) - 1);
EnableControls;
end;
try
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add(' exec P_MV_Cloth_SetStatus ');
sql.Add(' @MVCMIDS=' + QuotedStr(MMVCMIDS));
sql.Add(',@Operation=''<27><><EFBFBD><EFBFBD><EFBFBD>ύ'' ');
Sql.Add(',@DCode=' + quotedstr(Trim(DCode)));
Sql.Add(',@DName=' + quotedstr(Trim(DName)));
sql.Add('insert into SY_SysLog(operor,opertime,Model,acction,opevent,result) values( ');
sql.Add(' ' + quotedstr(trim(DName)));
sql.Add(',getdate() ');
sql.Add(',' + quotedstr(trim(self.Caption)));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD>۳<EFBFBD><DBB3><EFBFBD><EFBFBD>ύ')));
sql.Add(',' + quotedstr(trim('<27><><EFBFBD><EFBFBD>ID<49><44>' + trim(MMVCMIDS))));
sql.Add(',' + quotedstr(trim('<27>ɹ<EFBFBD>')));
sql.Add(')');
open;
end;
if ADOQueryCmd.FieldByName('intReturn').AsInteger = -1 then
raise Exception.Create(pchar(trim(ADOQueryCmd.FieldByName('ShowMsg').AsString)));
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ύ<EFBFBD>ɹ<EFBFBD>', '<27><>ʾ');
InitGrid();
except
application.MessageBox(PChar(Exception(ExceptObject).Message), '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
InitGrid();
end;
end;
end.
Reference in New Issue Copy Permalink