Group_99/D7myYunxiang
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
87728906b3
D7myYunxiang/合同管理(Contract.dll)/U_MLConTract_NX.pas

1320 lines
35 KiB
ObjectPascal
Raw Normal View History

1
2025-01-20 13:04:03 +08:00
unit U_MLConTract_NX;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid, cxMemo,
cxRichEdit, ComCtrls, cxContainer, cxTextEdit, cxMaskEdit, cxButtonEdit,
StdCtrls, ToolWin, DBClient, ADODB, ExtCtrls, BtnEdit, cxCalendar, StrUtils,
cxCurrencyEdit, cxImage, cxDBEdit, Menus, RM_Common, RM_Class, RM_e_Xls,
RM_Dataset, RM_System, RM_GridReport, cxGridCustomPopupMenu, cxGridPopupMenu,
cxPC, cxSplitter, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdFTP, ShellAPI, cxCheckBox, cxGroupBox, ImgList, cxLookAndFeels,
cxLookAndFeelPainters, cxNavigator, dxBarBuiltInMenu, dxSkinsCore,
Apply new .gitignore
2025-07-19 16:54:23 +08:00
dxSkinDarkRoom,
dxSkinOffice2013White,
dxSkinSharpPlus,
dxSkinSpringTime,
dxSkinsDefaultPainters,
dxSkinscxPCPainter;
1
2025-01-20 13:04:03 +08:00
type
TfrmMLConTract_NX = class(TForm)
ToolBar1: TToolBar;
TBRafresh: TToolButton;
TBAdd: TToolButton;
TBPrint: TToolButton;
TBClose: TToolButton;
Panel1: TPanel;
BegDate: TDateTimePicker;
EndDate: TDateTimePicker;
Tv1: TcxGridDBTableView;
Cxgrid1Level1: TcxGridLevel;
Cxgrid1: TcxGrid;
cxGridPopupMenu1: TcxGridPopupMenu;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
ADOQueryTemp: TADOQuery;
DataSource1: TDataSource;
TBExport: TToolButton;
v1OrdDate: TcxGridDBColumn;
v1ConNo: TcxGridDBColumn;
Order_Main: TClientDataSet;
RM1: TRMGridReport;
RMDBMain: TRMDBDataSet;
RMXLSExport1: TRMXLSExport;
v1KHNameJC: TcxGridDBColumn;
Label4: TLabel;
PopupMenu1: TPopupMenu;
ToolButton1: TToolButton;
Label9: TLabel;
ConNoHZ: TEdit;
Label12: TLabel;
ADOQueryPrint: TADOQuery;
CDS_Print: TClientDataSet;
v1SYRYWY: TcxGridDBColumn;
v1ZQty: TcxGridDBColumn;
ADOQuerySub: TADOQuery;
DataSource2: TDataSource;
cxTabControl1: TcxTabControl;
Tchk: TToolButton;
Tnochk: TToolButton;
v1SYRNameJC: TcxGridDBColumn;
ADOQueryImage: TADOQuery;
DSImage: TDataSource;
IdFTP1: TIdFTP;
Label6: TLabel;
DataSource3: TDataSource;
Order_Print: TClientDataSet;
v1ZMoney: TcxGridDBColumn;
v1Column3: TcxGridDBColumn;
cxGroupBox2: TcxGroupBox;
Image3: TImage;
ListView1: TListView;
Panel12: TPanel;
Label8: TLabel;
Button4: TButton;
Panel13: TPanel;
Image1: TImage;
WJName: TEdit;
Button7: TButton;
WJPach: TEdit;
Button8: TButton;
Panel2: TPanel;
ODPat: TOpenDialog;
ImageList1: TImageList;
IdFTP2: TIdFTP;
PopupMenu2: TPopupMenu;
MenuItem1: TMenuItem;
N3: TMenuItem;
MenuItem2: TMenuItem;
N4: TMenuItem;
CheckBox1: TCheckBox;
N5: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
v1ChkZT: TcxGridDBColumn;
Label3: TLabel;
ChkZT: TComboBox;
v1SYRYWFZR: TcxGridDBColumn;
Label5: TLabel;
Panel3: TPanel;
Image5: TImage;
Button6: TButton;
Button2: TButton;
Button5: TButton;
Button3: TButton;
Ncx: TMenuItem;
v1YWConNo: TcxGridDBColumn;
Button9: TButton;
KHNameHZ: TEdit;
Button10: TButton;
Button11: TButton;
SYRYWY: TEdit;
SYRYWFZR: TEdit;
v1Ssel: TcxGridDBColumn;
v1Column1: TcxGridDBColumn;
v1Column2: TcxGridDBColumn;
v1Column4: TcxGridDBColumn;
ToolButton2: TToolButton;
Label1: TLabel;
Label7: TLabel;
FSYRYWY: TBtnEditA;
FSYRYWFZR: TBtnEditA;
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure TBExportClick(Sender: TObject);
procedure TBPrintClick(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 N1Click(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure cxTabControl1Change(Sender: TObject);
procedure TchkClick(Sender: TObject);
procedure TnochkClick(Sender: TObject);
procedure MenuItem1Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure MenuItem2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Image4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure ListView1DblClick(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Image5Click(Sender: TObject);
procedure NcxClick(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure KHNameHZKeyPress(Sender: TObject; var Key: Char);
procedure ChkZTChange(Sender: TObject);
procedure BegDateChange(Sender: TObject);
procedure KHNameHZChange(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure FSYRYWYBtnClick(Sender: TObject);
procedure FSYRYWFZRBtnClick(Sender: TObject);
private
DQdate: TDateTime;
procedure InitGrid();
procedure InitForm();
function DelData(): Boolean;
procedure SetStatus();
procedure Initimage();
{ Private declarations }
public
FFInt, FCloth: Integer;
canshu1, canshu2, canshu3: string;
fFlileFlag: string;
{ Public declarations }
end;
var
frmMLConTract_NX: TfrmMLConTract_NX;
implementation
uses
U_DataLink, U_MLOrderInPut, U_Fun, U_FjList_RZ, U_MLOrderInPut_SQJH,
U_KHList_CX, U_ZDYHelp_YW, U_MLOrderInPut_JGNX, U_MLOrderInPut_XSWX,
U_MLOrderInPut_JGWX, U_MLOrderInPutHZ;
{$R *.dfm}
procedure TfrmMLConTract_NX.Initimage();
var
ListItem: TListItem;
Flag: Cardinal;
info: SHFILEINFOA;
Icon: TIcon;
begin
ListView1.Items.Clear;
with adoqueryTemp do
begin
close;
sql.Clear;
sql.Add('select fileName from TP_File ');
sql.Add('where WBID=''' + trim(Order_Main.fieldbyname('MLConID').AsString) + ''' ');
sql.Add('and TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ''');
open;
if not IsEmpty then
begin
while not eof do
begin
with ListView1 do
begin
LargeImages := ImageList1;
Icon := TIcon.Create;
ListItem := Items.Add;
ListItem.Caption := trim(fieldbyname('fileName').AsString);
Flag := (SHGFI_LARGEICON or SHGFI_ICON or SHGFI_USEFILEATTRIBUTES);
SHGetFileInfo(Pchar(trim(fieldbyname('fileName').AsString)), 0, info, Sizeof(info), Flag);
Icon.Handle := info.hIcon;
ImageList1.AddIcon(Icon);
ListItem.ImageIndex := ImageList1.Count - 1;
end;
next;
end;
end;
end;
end;
procedure TfrmMLConTract_NX.SetStatus();
begin
tchk.Visible := false;
tnochk.Visible := false;
Ncx.Visible := false;
N5.Visible := true;
N7.Visible := true;
if (Trim(canshu1) = '<27><>Ȩ<EFBFBD><C8A8>') and (trim(canshu2) = '') then
begin
tchk.Visible := true;
tnochk.Visible := true;
Ncx.Visible := true;
end
else if (Trim(canshu1) = '<27><>Ȩ<EFBFBD><C8A8>') and (trim(canshu2) = '<27><>ѯ') then
begin
tbadd.Visible := false;
N5.Visible := False;
N7.Visible := false;
end;
end;
procedure TfrmMLConTract_NX.FormDestroy(Sender: TObject);
begin
frmMLConTract_NX := nil;
end;
procedure TfrmMLConTract_NX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmMLConTract_NX.FormCreate(Sender: TObject);
begin
cxgrid1.Align := alClient;
DQdate := SGetServerDate(ADOQueryTemp);
canshu1 := trim(DParameters1);
canshu2 := trim(DdataBase);
end;
procedure TfrmMLConTract_NX.TBCloseClick(Sender: TObject);
begin
Close;
WriteCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC>Ϣ<EFBFBD>Ǽ<EFBFBD>11', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
end;
procedure TfrmMLConTract_NX.InitGrid();
var
fwhere, Pwhere: string;
begin
ToolBar1.SetFocus;
Pwhere := SGetFilters(Panel1, 1, 2);
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
sql.Clear;
sql.add('select * from ( ');
sql.add('select A.* ');
sql.Add(',ChkZT=(case when isnull(ChkStatus,''0'')=''0'' then ''δ<><CEB4><EFBFBD><EFBFBD>'' else ''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' end)');
sql.Add(',IFFZ=(select count(B.WBID) from TP_File B where B.WBID=A.MLConID and B.TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ'')');
sql.Add(',ZQty=(select Sum(B.Qty) from ML_ConSub B where B.MLConID=A.MLConID)');
sql.Add(',ZMoney=(select Sum(B.ConMoney) from ML_ConSub B where B.MLConID=A.MLConID)');
sql.Add(',KHNameJC=(select Top 1 B.KHNameJC from KH_Main B where B.KHNo=A.KHNo)');
sql.Add(',KHNameHZ=(select Top 1 isnull(B.KHNameJC,'''')+'';''+isnull(B.KHName,'''')+'';''+isnull([dbo].[getPinYin](B.KHName),'''')+'';''+B.KHNo from KH_Main B where B.KHNo=A.KHNo)');
sql.Add(',SYRNameJC=(select Top 1 B.KHNameJC from KH_Main B where B.KHName=A.SYRName)');
sql.Add(', ConNoHZ=isnull(A.ConNo,'''') +'';''+isnull(A.KHConNo,'''')+'';''+isnull(A.YWConNo,'''')');
sql.Add(' from ML_ConMain A where 1=1 ');
if CheckBox1.Checked = true then
begin
BegDate.Visible := true;
enddate.Visible := true;
sql.Add('and A.OrdDate>=''' + Trim(FormatDateTime('yyyy-MM-dd', BegDate.DateTime)) + ''' ');
sql.Add('and A.OrdDate<''' + Trim(FormatDateTime('yyyy-MM-dd', endDate.DateTime + 1)) + ''' ');
end;
if canshu1 <> '<27><>Ȩ<EFBFBD><C8A8>' then
begin
SQL.Add(' and (A.SYRYWY=''' + trim(DName) + ''' or A.filler=''' + trim(DName) + ''')');
end;
case cxTabControl1.TabIndex of
1:
begin
sql.Add(' and isnull(A.ConType,'''')=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
end;
2:
begin
sql.Add(' and isnull(A.ConType,'''')=''<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>''');
end;
3:
begin
sql.Add(' and isnull(A.ConType,'''')=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
end;
4:
begin
sql.Add(' and isnull(A.ConType,'''')=''<27>ӹ<EFBFBD><D3B9><EFBFBD><EFBFBD><EFBFBD>''');
end;
end;
sql.Add(' and A.Chkstatus<>''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>''');
sql.add(' ) AA');
if Pwhere <> '' then
sql.Add(' where ' + Pwhere);
Open;
end;
SCreateCDS20(ADOQueryMain, Order_Main);
SInitCDSData20(ADOQueryMain, Order_Main);
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmMLConTract_NX.InitForm();
begin
ReadCxGrid('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ<EFBFBD><CDAC>Ϣ<EFBFBD>Ǽ<EFBFBD>11', Tv1, '<27><><EFBFBD><EFBFBD>ָʾ<D6B8><CABE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>');
BegDate.DateTime := StrToDate(FormatDateTime('yyyy', SGetServerDate10(ADOQueryTemp)) + '-01-01');
EndDate.DateTime := SGetServerDate10(ADOQueryTemp);
if trim(DdataBase) = '<27><>ѯ' then
begin
TBadd.Visible := false;
end;
SetStatus();
InitGrid();
end;
function TfrmMLConTract_NX.DelData(): Boolean;
begin
try
Result := false;
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select * from ML_OrderSubidNew B');
sql.Add(' where exists(select * from ML_ConSub A where A.CSID=B.ConSubId');
sql.Add(' and A.MLConID=''' + Trim(Order_Main.fieldbyname('MLConID').AsString) + ''')');
Open;
end;
if ADOQueryTemp.IsEmpty = False then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƻ<EFBFBD><C6BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update ML_ConMain set Chkstatus=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'' where MLConID=''' + Trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
ExecSQL;
end;
ADOQueryCmd.Connection.CommitTrans;
Result := True;
except
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmMLConTract_NX.TBExportClick(Sender: TObject);
begin
if ADOQueryMain.IsEmpty then
Exit;
SelExportData(Tv1, ADOQueryMain, '<27><><EFBFBD><EFBFBD>Ⱦɫ<C8BE>ƻ<EFBFBD><C6BB><EFBFBD>');
end;
procedure TfrmMLConTract_NX.TBPrintClick(Sender: TObject);
var
fPrintFile: string;
Porderno, LBName, SYRName, FConType: string;
i, j: Integer;
Txt, fImagePath: string;
Moudle: THandle;
Makebar: TMakebar;
Mixtext: TMixtext;
begin
if Order_Main.IsEmpty then
Exit;
with ADOQueryPrint do
begin
Close;
sql.Clear;
sql.add('exec P_Print_HTInfo :MLConID');
Parameters.ParamByName('MLConID').Value := Trim(Order_Main.fieldbyname('MLConID').AsString);
Open;
end;
SCreateCDS20(ADOQueryPrint, CDS_Print);
SInitCDSData20(ADOQueryPrint, CDS_Print);
{try
Moudle:=LoadLibrary('MakeQRBarcode.dll');
@Makebar:=GetProcAddress(Moudle,'Make');
@Mixtext:=GetProcAddress(Moudle,'MixText');
Txt:=Trim(ADOQueryPrint.fieldbyname('OrderNo').AsString);
fImagePath:=ExtractFilePath(Application.ExeName)+'image\temp.bmp' ;
if not DirectoryExists(pchar(ExtractFilePath(Application.ExeName)+'image')) then
CreateDirectory(pchar(ExtractFilePath(Application.ExeName)+'image'),nil);
if FileExists(fImagePath) then DeleteFile(fImagePath);
Makebar(pchar(Txt),Length(Txt),3,3,0,PChar(fImagePath),3);
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
exit;
end;}
FConType := Trim(Order_Main.fieldbyname('ConType').AsString);
if Pos('<27><><EFBFBD><EFBFBD>', FConType) > 0 then
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ.rmf';
end;
if Pos('<27><><EFBFBD><EFBFBD>', FConType) > 0 then
begin
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͬ.rmf';
end;
if FileExists(fPrintFile) then
begin
// RMVariables['QRBARCODE'] := fImagePath;
//RMVariables['SYRName']:=Trim(SYRName);
RM1.LoadFromFile(fPrintFile);
RM1.ShowReport;
end
else
begin
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
end;
end;
procedure TfrmMLConTract_NX.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmMLConTract_NX.TBAddClick(Sender: TObject);
begin
Panel3.Visible := true;
end;
procedure TfrmMLConTract_NX.FormShow(Sender: TObject);
begin
InitForm();
end;
procedure TfrmMLConTract_NX.Tv1CellDblClick(Sender: TcxCustomGridTableView; ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton; AShift: TShiftState; var AHandled: Boolean);
begin
if Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName = 'IFFZ' then
begin
cxGroupBox2.Visible := true;
Initimage();
end
else
ToolButton1.Click;
end;
procedure TfrmMLConTract_NX.CheckBox1Click(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmMLConTract_NX.CheckBox2Click(Sender: TObject);
begin
TBRafresh.Click;
end;
procedure TfrmMLConTract_NX.N1Click(Sender: TObject);
begin
SelOKNo(Order_Main, false);
end;
procedure TfrmMLConTract_NX.N2Click(Sender: TObject);
begin
SelOKNo(Order_Main, True);
end;
procedure TfrmMLConTract_NX.ToolButton1Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmMLOrderInPutHZ := TfrmMLOrderInPutHZ.Create(Application);
with frmMLOrderInPutHZ do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MLConID').AsString);
canshu1 := self.canshu1;
canshu2 := self.canshu2;
FConType := Trim(Self.Order_Main.fieldbyname('ConType').AsString);
TBSave.Visible := False;
ToolBar2.Visible := false;
if ShowModal = 1 then
begin
initgrid();
end;
end;
finally
frmMLOrderInPutHZ.Free;
end;
end;
procedure TfrmMLConTract_NX.cxTabControl1Change(Sender: TObject);
begin
SetStatus();
InitGrid();
end;
procedure TfrmMLConTract_NX.TchkClick(Sender: TObject);
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><>ʾ');
exit;
end;
try
with Order_Main do
begin
first;
while not eof do
begin
if FieldByName('Ssel').AsBoolean = true then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update ML_ConMain SET Chkstatus=''<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'',chker=''' + trim(DName) + ''',chkTime=getdate() ');
sql.Add('where MLConID=' + quotedstr(trim(Order_Main.fieldbyname('MLConID').AsString)));
execsql;
end;
end;
next;
end;
end;
InitGrid();
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmMLConTract_NX.TnochkClick(Sender: TObject);
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><>ʾ');
exit;
end;
try
with Order_Main do
begin
first;
while not eof do
begin
if FieldByName('Ssel').AsBoolean = true then
begin
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('update ML_ConMain SET Chkstatus=''δ<><CEB4><EFBFBD><EFBFBD>'',chker='''',chkTime=null ');
sql.Add('where MLConID=' + quotedstr(trim(Order_Main.fieldbyname('MLConID').AsString)));
execsql;
end;
end;
next;
end;
end;
InitGrid();
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˳ɹ<CBB3><C9B9><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ');
except
application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmMLConTract_NX.MenuItem1Click(Sender: TObject);
var
OpenDiaLog: TOpenDialog;
fFileName: string;
fFilePath: string;
begin
OpenDiaLog := TOpenDialog.Create(Self);
if OpenDiaLog.Execute then
begin
fFilePath := OpenDiaLog.FileName;
fFileName := ExtractFileName(OpenDiaLog.FileName);
Panel12.Visible := True;
WJName.Text := Trim(fFileName);
WJName.Hint := Trim(fFileName);
WJPach.Text := fFilePath;
Button8.Visible := False;
Button4.Visible := True;
Button7.Visible := True;
Panel12.Refresh;
end;
end;
procedure TfrmMLConTract_NX.N3Click(Sender: TObject);
var
fFileName: string;
begin
if listView1.SelCount < 1 then
exit;
fFileName := ListView1.Selected.Caption;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID=''' + trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
sql.Add('and TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ''');
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
execsql;
end;
Initimage();
InitGrid();
end;
procedure TfrmMLConTract_NX.N4Click(Sender: TObject);
var
SaveDialog: TSaveDialog;
fFileName: string;
fFilePath: string;
begin
if listView1.SelCount < 1 then
exit;
try
fFileName := ListView1.Selected.Caption;
SaveDialog := TSaveDialog.Create(Self);
SaveDialog.FileName := fFileName;
if SaveDialog.Execute then
begin
Panel2.Caption := '<27><><EFBFBD>ڱ<EFBFBD><DAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible := true;
application.ProcessMessages;
fFilePath := SaveDialog.FileName;
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', 'FTP<54><50>ַ', '127.0.0.1');
;
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible := true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\' + Trim(fFileName), fFilePath, false, true);
except
Panel2.Visible := false;
Application.MessageBox('<27>ͻ<EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Panel2.Visible := false;
Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible := false;
if IdFTP1.Connected then
IdFTP1.Quit;
end;
except
Panel2.Visible := false;
end;
end;
procedure TfrmMLConTract_NX.MenuItem2Click(Sender: TObject);
begin
if listView1.SelCount < 1 then
exit;
Panel12.Visible := True;
Button4.Visible := False;
Button7.Visible := False;
Button8.Visible := True;
Panel12.Refresh;
WJName.Text := Trim(ListView1.Selected.Caption);
WJName.Hint := Trim(ListView1.Selected.Caption);
end;
procedure TfrmMLConTract_NX.Image3Click(Sender: TObject);
begin
cxGroupBox2.Visible := false;
end;
procedure TfrmMLConTract_NX.Image1Click(Sender: TObject);
begin
Panel12.Visible := false;
end;
procedure TfrmMLConTract_NX.Button4Click(Sender: TObject);
var
fFileName: string;
fFilePath: string;
maxNo: string;
begin
try
adoqueryCmd.Connection.BeginTrans;
begin
fFilePath := WJPach.Text;
fFileName := WJName.Text;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select TFId from TP_File ');
sql.Add('where WBID=''' + trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
sql.Add(' and TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ''');
sql.Add(' and FileName=' + quotedstr(trim(fFileName)));
open;
end;
if ADOQueryCmd.IsEmpty = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27>˸<EFBFBD><CBB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD>޸<EFBFBD><DEB8>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
Panel12.Visible := False;
Panel2.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible := true;
application.ProcessMessages;
if GetLSNo(ADOQueryCmd, maxNo, 'MD', 'TP_File', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID=''' + trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
sql.Add('and TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ''');
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
execsql;
end;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID=''' + trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
sql.Add('and TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ''');
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
open;
append;
fieldbyname('TFID').Value := trim(maxNo);
fieldbyname('WBID').Value := trim(Order_Main.fieldbyname('MLConID').AsString);
fieldbyname('TFType').Value := '<27><><EFBFBD>Ϻ<EFBFBD>ͬ';
fieldbyname('FileName').Value := trim(fFileName);
post;
end;
if fFilePath <> '' then
begin
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName));
IdFTP1.Quit;
except
IdFTP1.Quit;
Application.MessageBox('<27>ϴ<EFBFBD><CFB4>ļ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
end;
end;
IdFTP1.Quit;
Panel2.Visible := false;
Initimage();
InitGrid();
end;
adoqueryCmd.Connection.CommitTrans;
except
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmMLConTract_NX.Button8Click(Sender: TObject);
var
fFileName: string;
begin
fFileName := WJName.Hint;
with ADOQueryCmd do
begin
close;
sql.Clear;
sql.Add('UPdate TP_File Set FileName=''' + Trim(WJName.Text) + '''');
sql.Add('where WBID=''' + trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
sql.Add('and TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ''');
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
execsql;
end;
Panel12.Visible := False;
Initimage();
end;
procedure TfrmMLConTract_NX.Button7Click(Sender: TObject);
var
fFileName: string;
fFilePath: string;
maxNo: string;
begin
try
adoqueryCmd.Connection.BeginTrans;
fFilePath := WJPach.Text;
fFileName := WJName.Hint;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select TFId from TP_File ');
sql.Add('where WBID=''' + trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
sql.Add('and TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ''');
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
open;
if not adoqueryCmd.IsEmpty then
begin
ADOQueryCmd.Connection.RollbackTrans;
application.MessageBox('<27>˸<EFBFBD><CBB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ѵ<EFBFBD><D1B4>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD>޸<EFBFBD><DEB8>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
exit;
end;
end;
Panel12.Visible := False;
Panel2.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible := true;
application.ProcessMessages;
if GetLSNo(ADOQueryCmd, maxNo, 'FJ', 'TP_File', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('delete from TP_File ');
sql.Add('where WBID=''' + trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
sql.Add('and TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ''');
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
execsql;
end;
with adoqueryCmd do
begin
close;
sql.Clear;
sql.Add('select * from TP_File ');
sql.Add('where WBID=''' + trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
sql.Add('and TFType=''<27><><EFBFBD>Ϻ<EFBFBD>ͬ''');
sql.Add('and FileName=' + quotedstr(trim(fFileName)));
open;
append;
fieldbyname('TFID').Value := trim(maxNo);
fieldbyname('WBID').Value := trim(Order_Main.fieldbyname('MLConID').AsString);
fieldbyname('TFType').Value := '<27><><EFBFBD>Ϻ<EFBFBD>ͬ';
fieldbyname('FileName').Value := trim(fFileName);
post;
end;
if fFilePath <> '' then
begin
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
IdFTP1.Put(fFilePath, 'FJ\' + Trim(fFileName));
IdFTP1.Quit;
except
IdFTP1.Quit;
Application.MessageBox('<27>ϴ<EFBFBD><CFB4>ļ<EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD><DCA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
end;
end;
IdFTP1.Quit;
Panel2.Visible := false;
Initimage();
adoqueryCmd.Connection.CommitTrans;
except
adoqueryCmd.Connection.RollbackTrans;
application.MessageBox('<27>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', 0);
end;
end;
procedure TfrmMLConTract_NX.Image4Click(Sender: TObject);
begin
Panel3.Visible := false;
end;
procedure TfrmMLConTract_NX.Button2Click(Sender: TObject);
begin
Button6.Click;
{try
frmMLOrderInPut_JGNX := TfrmMLOrderInPut_JGNX.Create(Application);
with frmMLOrderInPut_JGNX do
begin
PState := 0;
FMainId := '';
canshu1 := self.canshu1;
canshu2 := self.canshu2;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmMLOrderInPut_JGNX.Free;
end;
Panel3.Visible := false; }
end;
procedure TfrmMLConTract_NX.N5Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if ((Trim(DParameters1) <> '<27><>Ȩ<EFBFBD><C8A8>') and (UpperCase(Trim(Order_Main.fieldbyname('Filler').AsString)) <> UpperCase(Trim(DName)))) then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
try
frmMLOrderInPutHZ := TfrmMLOrderInPutHZ.Create(Application);
with frmMLOrderInPutHZ do
begin
PState := 1;
FMainId := Trim(Self.Order_Main.fieldbyname('MLConID').AsString);
canshu1 := self.canshu1;
canshu2 := self.canshu2;
FConType := Trim(Self.Order_Main.fieldbyname('ConType').AsString);
if ShowModal = 1 then
begin
initgrid();
end;
end;
finally
frmMLOrderInPutHZ.Free;
end;
end;
procedure TfrmMLConTract_NX.N7Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if (UpperCase(Trim(Order_Main.fieldbyname('Filler').AsString)) <> UpperCase(Trim(DName))) and (Trim(canshu1) <> '<27><>Ȩ<EFBFBD><C8A8>') then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
if DelData() then
begin
InitGrid();
end;
end;
procedure TfrmMLConTract_NX.Button6Click(Sender: TObject);
var
GConTpe: string;
begin
if Trim(FSYRYWY.Text) = '' then
begin
Application.MessageBox('ҵ<><D2B5>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(FSYRYWFZR.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
GConTpe := TButton(Sender).Caption;
try
frmMLOrderInPutHZ := TfrmMLOrderInPutHZ.Create(Application);
with frmMLOrderInPutHZ do
begin
PState := 0;
FMainId := '';
canshu1 := self.canshu1;
canshu2 := self.canshu2;
FConType := GConTpe;
SYRYWYF := Trim(FSYRYWY.Text);
SYRYWFZRF := Trim(FSYRYWFZR.Text);
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmMLOrderInPutHZ.Free;
end;
Panel3.Visible := false;
end;
procedure TfrmMLConTract_NX.ListView1DblClick(Sender: TObject);
var
sFieldName: string;
fileName: string;
begin
if ListView1.Items.Count < 1 then
EXIT;
if listView1.SelCount < 1 then
exit;
sFieldName := leftbstr(ExtractFilePath(Application.ExeName), 1) + ':\ͼƬ<CDBC>鿴';
if not DirectoryExists(pchar(sFieldName)) then
CreateDirectory(pchar(sFieldName), nil);
fileName := ListView1.Selected.Caption;
sFieldName := sFieldName + '\' + trim(fileName);
try
IdFTP1.Host := ReadINIFileStr('SYSTEMSET.INI', 'SERVER', '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ', '127.0.0.1');
IdFTP1.Username := 'three';
IdFTP1.Password := '641010';
IdFTP1.Connect();
except
;
end;
if IdFTP1.Connected then
begin
Panel2.Caption := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>Ե<EFBFBD>...';
Panel2.Visible := true;
application.ProcessMessages;
try
IdFTP1.Get('FJ\' + Trim(fileName), sFieldName, true, false);
except
Panel2.Visible := false;
Application.MessageBox('<27>ͻ<EFBFBD>ͼ<EFBFBD><CDBC><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
end
else
begin
Panel2.Visible := false;
Application.MessageBox('<27>޷<EFBFBD><DEB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', MB_ICONWARNING);
IdFTP1.Quit;
Exit;
end;
Panel2.Visible := false;
if IdFTP1.Connected then
IdFTP1.Quit;
ShellExecute(Handle, 'open', PChar(sFieldName), '', '', SW_SHOWNORMAL);
end;
procedure TfrmMLConTract_NX.Button5Click(Sender: TObject);
begin
Button6.Click;
{try
frmMLOrderInPut_XSWX := TfrmMLOrderInPut_XSWX.Create(Application);
with frmMLOrderInPut_XSWX do
begin
PState := 0;
FMainId := '';
canshu1 := self.canshu1;
canshu2 := self.canshu2;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmMLOrderInPut_XSWX.Free;
end;
Panel3.Visible := false; }
end;
procedure TfrmMLConTract_NX.Button3Click(Sender: TObject);
begin
{ try
frmMLOrderInPut_JGWX := TfrmMLOrderInPut_JGWX.Create(Application);
with frmMLOrderInPut_JGWX do
begin
PState := 0;
FMainId := '';
canshu1 := self.canshu1;
canshu2 := self.canshu2;
if ShowModal = 1 then
begin
InitGrid();
end;
end;
finally
frmMLOrderInPut_JGWX.Free;
end;
Panel3.Visible := false;}
end;
procedure TfrmMLConTract_NX.Image5Click(Sender: TObject);
begin
Panel3.Visible := false;
end;
procedure TfrmMLConTract_NX.NcxClick(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
if (UpperCase(Trim(Order_Main.fieldbyname('Filler').AsString)) <> UpperCase(Trim(DName))) and (Trim(canshu1) <> '<27><>Ȩ<EFBFBD><C8A8>') then
begin
Application.MessageBox('<27><><EFBFBD>ܲ<EFBFBD><DCB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD><CBB5><EFBFBD><EFBFBD><EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
try
ADOQueryCmd.Connection.BeginTrans;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('update ML_ConMain set Chkstatus='''' where MLConID=''' + Trim(Order_Main.fieldbyname('MLConID').AsString) + '''');
ExecSQL;
end;
InitGrid();
ADOQueryCmd.Connection.CommitTrans;
except
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
end;
end;
procedure TfrmMLConTract_NX.Button9Click(Sender: TObject);
begin
try
frmKHList_CX := TfrmKHList_CX.Create(Application);
with frmKHList_CX do
begin
cxGrid3.Visible := false;
if ShowModal = 1 then
begin
Self.KHNameHZ.Text := Trim(CDS_HZ.fieldbyname('KHNameJC').AsString);
end;
end;
finally
frmKHList_CX.Free;
end;
InitGrid();
end;
procedure TfrmMLConTract_NX.Button10Click(Sender: TObject);
begin
frmZDYHelpYW := TfrmZDYHelpYW.Create(self);
with frmZDYHelpYW do
begin
if ShowModal = 1 then
begin
SYRYWY.Text := Trim(ClientDataSet1.fieldbyname('UserName').AsString);
end;
free;
end;
InitGrid();
end;
procedure TfrmMLConTract_NX.Button11Click(Sender: TObject);
begin
frmZDYHelpYW := TfrmZDYHelpYW.Create(self);
with frmZDYHelpYW do
begin
if ShowModal = 1 then
begin
SYRYWFZR.Text := Trim(ClientDataSet1.fieldbyname('UserName').AsString);
end;
free;
end;
InitGrid();
end;
procedure TfrmMLConTract_NX.KHNameHZKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
InitGrid();
end;
procedure TfrmMLConTract_NX.ChkZTChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmMLConTract_NX.BegDateChange(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmMLConTract_NX.KHNameHZChange(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 TfrmMLConTract_NX.ToolButton2Click(Sender: TObject);
begin
if Order_Main.IsEmpty then
Exit;
try
frmMLOrderInPutHZ := TfrmMLOrderInPutHZ.Create(Application);
with frmMLOrderInPutHZ do
begin
PState := 1;
CopyInt := 99;
FMainId := Trim(Self.Order_Main.fieldbyname('MLConID').AsString);
canshu1 := self.canshu1;
canshu2 := self.canshu2;
FConType := Trim(Self.Order_Main.fieldbyname('ConType').AsString);
if ShowModal = 1 then
begin
initgrid();
end;
end;
finally
frmMLOrderInPutHZ.Free;
end;
end;
procedure TfrmMLConTract_NX.FSYRYWYBtnClick(Sender: TObject);
begin
frmZDYHelpYW := TfrmZDYHelpYW.Create(self);
with frmZDYHelpYW do
begin
if ShowModal = 1 then
begin
FSYRYWY.Text := Trim(ClientDataSet1.fieldbyname('UserName').AsString);
end;
free;
end;
end;
procedure TfrmMLConTract_NX.FSYRYWFZRBtnClick(Sender: TObject);
begin
frmZDYHelpYW := TfrmZDYHelpYW.Create(self);
with frmZDYHelpYW do
begin
if ShowModal = 1 then
begin
FSYRYWFZR.Text := Trim(ClientDataSet1.fieldbyname('UserName').AsString);
end;
free;
end;
end;
end.
Reference in New Issue Copy Permalink