2165 lines
64 KiB
ObjectPascal
2165 lines
64 KiB
ObjectPascal
|
unit U_ZHDJInPut;
|
|||
|
|
|
|||
|
|
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, cxDropDownEdit,jpeg,
|
|||
|
|
IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdFTP, cxPC,
|
|||
|
|
cxGridCustomPopupMenu, cxGridPopupMenu, cxGroupBox, cxCheckBox,
|
|||
|
|
RM_Dataset, RM_System, RM_Common, RM_Class, RM_GridReport,IniFiles,
|
|||
|
|
cxImage, Menus,ShellAPI;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfrmZHDJInPut = class(TForm)
|
|||
|
|
ToolBar1: TToolBar;
|
|||
|
|
TBClose: TToolButton;
|
|||
|
|
ADOTemp: TADOQuery;
|
|||
|
|
ADOCmd: TADOQuery;
|
|||
|
|
ADOQuery1: TADOQuery;
|
|||
|
|
TBSave: TToolButton;
|
|||
|
|
Label26: TLabel;
|
|||
|
|
CDS_PRT: TClientDataSet;
|
|||
|
|
RM1: TRMGridReport;
|
|||
|
|
Panel3: TPanel;
|
|||
|
|
Panel5: TPanel;
|
|||
|
|
ODPat: TOpenDialog;
|
|||
|
|
IdFTP1: TIdFTP;
|
|||
|
|
SaveDialog1: TSaveDialog;
|
|||
|
|
TBPrtInfo: TToolButton;
|
|||
|
|
Label4: TLabel;
|
|||
|
|
adoqueryPicture: TADOQuery;
|
|||
|
|
RMDBMain: TRMDBDataSet;
|
|||
|
|
ADOQueryCmd: TADOQuery;
|
|||
|
|
Panel66: TPanel;
|
|||
|
|
Image2: TImage;
|
|||
|
|
Panel2: TPanel;
|
|||
|
|
Button2: TButton;
|
|||
|
|
Image22: TImage;
|
|||
|
|
Panel4: TPanel;
|
|||
|
|
Label1: TLabel;
|
|||
|
|
DYID: TEdit;
|
|||
|
|
KHName: TBtnEditA;
|
|||
|
|
Label3: TLabel;
|
|||
|
|
GuoJia: TBtnEditA;
|
|||
|
|
Label5: TLabel;
|
|||
|
|
Note: TMemo;
|
|||
|
|
cxGrid1: TcxGrid;
|
|||
|
|
Tv1: TcxGridDBTableView;
|
|||
|
|
v1Column7: TcxGridDBColumn;
|
|||
|
|
v1Column4: TcxGridDBColumn;
|
|||
|
|
v1Column6: TcxGridDBColumn;
|
|||
|
|
v1Column1: TcxGridDBColumn;
|
|||
|
|
v1ZICost: TcxGridDBColumn;
|
|||
|
|
v1Column2: TcxGridDBColumn;
|
|||
|
|
cxGrid1Level1: TcxGridLevel;
|
|||
|
|
Label9: TLabel;
|
|||
|
|
v1Column3: TcxGridDBColumn;
|
|||
|
|
v1XS: TcxGridDBColumn;
|
|||
|
|
v1BaoJia: TcxGridDBColumn;
|
|||
|
|
YWY: TBtnEditA;
|
|||
|
|
v1Column9: TcxGridDBColumn;
|
|||
|
|
TBPrtBJ: TToolButton;
|
|||
|
|
cxGridPopupMenu1: TcxGridPopupMenu;
|
|||
|
|
DataSource1: TDataSource;
|
|||
|
|
Order_Sub: TClientDataSet;
|
|||
|
|
Edit2: TEdit;
|
|||
|
|
Panel9: TPanel;
|
|||
|
|
LabBZ: TLabel;
|
|||
|
|
BZ: TComboBox;
|
|||
|
|
LabHuiLv: TLabel;
|
|||
|
|
HuiLv: TEdit;
|
|||
|
|
Label8: TLabel;
|
|||
|
|
XS: TEdit;
|
|||
|
|
PopupMenu1: TPopupMenu;
|
|||
|
|
N1: TMenuItem;
|
|||
|
|
N2: TMenuItem;
|
|||
|
|
N3: TMenuItem;
|
|||
|
|
Label2: TLabel;
|
|||
|
|
LiDan: TBtnEditA;
|
|||
|
|
KHGY: TMemo;
|
|||
|
|
Label7: TLabel;
|
|||
|
|
v1Column5: TcxGridDBColumn;
|
|||
|
|
v1Column8: TcxGridDBColumn;
|
|||
|
|
v1ZIGY: TcxGridDBColumn;
|
|||
|
|
v1Column11: TcxGridDBColumn;
|
|||
|
|
Panel1: TPanel;
|
|||
|
|
v1Column12: TcxGridDBColumn;
|
|||
|
|
v1Column13: TcxGridDBColumn;
|
|||
|
|
ADOQuery2: TADOQuery;
|
|||
|
|
ADOQuery3: TADOQuery;
|
|||
|
|
ADOQuery6: TADOQuery;
|
|||
|
|
Button1: TButton;
|
|||
|
|
procedure TBCloseClick(Sender: TObject);
|
|||
|
|
procedure FormShow(Sender: TObject);
|
|||
|
|
procedure TBSaveClick(Sender: TObject);
|
|||
|
|
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
|||
|
|
procedure FormCreate(Sender: TObject);
|
|||
|
|
procedure Button2Click(Sender: TObject);
|
|||
|
|
procedure TBPrtInfoClick(Sender: TObject);
|
|||
|
|
procedure Image2DblClick(Sender: TObject);
|
|||
|
|
procedure GuoJiaBtnClick(Sender: TObject);
|
|||
|
|
procedure DYIDKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure XSKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure v1ZICostPropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure HuiLvKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
procedure BZChange(Sender: TObject);
|
|||
|
|
procedure YWYBtnClick(Sender: TObject);
|
|||
|
|
procedure KHNameBtnClick(Sender: TObject);
|
|||
|
|
procedure Tv1MouseDown(Sender: TObject; Button: TMouseButton;
|
|||
|
|
Shift: TShiftState; X, Y: Integer);
|
|||
|
|
procedure KHGYChange(Sender: TObject);
|
|||
|
|
procedure N1Click(Sender: TObject);
|
|||
|
|
procedure N2Click(Sender: TObject);
|
|||
|
|
procedure N3Click(Sender: TObject);
|
|||
|
|
procedure TBPrtBJClick(Sender: TObject);
|
|||
|
|
procedure LiDanBtnClick(Sender: TObject);
|
|||
|
|
procedure v1Column5PropertiesEditValueChanged(Sender: TObject);
|
|||
|
|
procedure v1BaoJiaCustomDrawCell(Sender: TcxCustomGridTableView;
|
|||
|
|
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
|||
|
|
var ADone: Boolean);
|
|||
|
|
procedure v1Column3CustomDrawCell(Sender: TcxCustomGridTableView;
|
|||
|
|
ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo;
|
|||
|
|
var ADone: Boolean);
|
|||
|
|
procedure Tv1DblClick(Sender: TObject);
|
|||
|
|
procedure Button1Click(Sender: TObject);
|
|||
|
|
private
|
|||
|
|
lstPat,lstPat2:TStringList;
|
|||
|
|
FangXiang1,FangXiang2:String;
|
|||
|
|
procedure InitData();
|
|||
|
|
procedure SaveImage(maxnoWB:String;FIMNO:String);
|
|||
|
|
procedure ReadINIFile10();
|
|||
|
|
function SaveData():Boolean;
|
|||
|
|
function StrFenHang(FStr:String;var FHStr:String):Boolean;
|
|||
|
|
procedure initOldYP();
|
|||
|
|
{ Private declarations }
|
|||
|
|
public
|
|||
|
|
canshu1,canshu2:String;
|
|||
|
|
PState,CopyInt:Integer;
|
|||
|
|
FMainId,FZIID:String;
|
|||
|
|
|
|||
|
|
{ Public declarations }
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
frmZHDJInPut: TfrmZHDJInPut;
|
|||
|
|
implementation
|
|||
|
|
uses
|
|||
|
|
U_DataLink,U_ZDYHelp,U_RTFun,U_InfoBtn,MMSystem,U_ZHCPList_BJCX,
|
|||
|
|
U_ZHCPBigMP, U_KHListSelJJ,U_ZHCPInPut;
|
|||
|
|
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.TBCloseClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
WriteCxGrid('չ<><D5B9><EFBFBD>Ǽ<EFBFBD>'+canshu1+'YX',Tv1,'չ<><D5B9><EFBFBD>Ǽ<EFBFBD>');
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.InitData();
|
|||
|
|
var
|
|||
|
|
jpg:TJpegImage;
|
|||
|
|
myStream: TADOBlobStream;
|
|||
|
|
FStr:string;
|
|||
|
|
FZT:Boolean;
|
|||
|
|
begin
|
|||
|
|
ReadCxGrid('չ<><D5B9><EFBFBD>Ǽ<EFBFBD>'+canshu1+'YX',Tv1,'չ<><D5B9><EFBFBD>Ǽ<EFBFBD>');
|
|||
|
|
with ADOQuery1 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add(' select * ');
|
|||
|
|
sql.Add(' from ZH_KH_DJ ');
|
|||
|
|
sql.Add(' where ZDID='''+Trim(FMainId)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCSHDataNew(ADOQuery1,Panel5,2);
|
|||
|
|
SCSHDataNew(ADOQuery1,Panel9,2);
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.ZDID,A.ZCID,A.HeSuanStatus,A.ZIID,A.LeiBie,A.XS,A.BaoJia,A.BaoJiaYW,A.ZIIDYS,A.DYID ');
|
|||
|
|
sql.Add(',ZICost=isnull(A.ZICost,B.ZICost),A.ZIName,A.ZIMF,A.ZIKZ,A.ZICF,A.ZIGY,ZIGYYS=isnull(C.ZIGY,A.ZIGY)');
|
|||
|
|
sql.Add(' ,A.ImageFileTP,A.GS');
|
|||
|
|
sql.Add(' from ZH_KH_DJ_CP A ');
|
|||
|
|
sql.Add(' left join ZH_CP_Info B on A.ZIID=B.ZIID ');
|
|||
|
|
sql.Add(' left join ZH_CP_Info C on B.ZIIDYS=C.ZIID ');
|
|||
|
|
sql.Add(' where A.ZDID='''+Trim(FMainId)+''' and A.Valid=''Y'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOTemp,Order_Sub);
|
|||
|
|
SInitCDSData20(ADOTemp,Order_Sub);
|
|||
|
|
if Trim(HuiLv.Text)='' then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select Top 1 * from ZH_KH_DJ order by FillTime desc');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
HuiLv.Text:=Trim(ADOTemp.fieldbyname('HuiLv').AsString);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with adoqueryPicture do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from Image_Info A');
|
|||
|
|
sql.Add(' inner join Image_File B on A.IMID=B.IMID');
|
|||
|
|
sql.Add(' and A.WBID='''+Trim(FMainId)+'''');
|
|||
|
|
sql.Add(' and isnull(A.IMNo,'''')=''<27><>Ƭ'' and A.Valid=''Y'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if adoqueryPicture.IsEmpty=False then
|
|||
|
|
begin
|
|||
|
|
Fstr:=Trim(adoqueryPicture.fieldbyname('ImageName').AsString);
|
|||
|
|
jpg:=TJpegImage.Create();
|
|||
|
|
myStream:=tadoblobstream.Create(tblobfield(adoqueryPicture.fieldbyname('ImageFile')),bmread);
|
|||
|
|
jpg.LoadFromStream(myStream);
|
|||
|
|
Image2.Picture.Assign(jpg);
|
|||
|
|
Image2.Width:=adoqueryPicture.fieldbyname('ImageWidth').Value;
|
|||
|
|
Image2.Height:=adoqueryPicture.fieldbyname('ImageHeight').Value;
|
|||
|
|
if Trim(adoqueryPicture.fieldbyname('FangXiang').AsString)='<27><>ֱ' then
|
|||
|
|
begin
|
|||
|
|
Image2.Top:=1;
|
|||
|
|
Image2.Left:=Round((Panel66.Width-Image2.Width)/2);
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Image2.Left:=1;
|
|||
|
|
Image2.Top:=Round((Panel66.Height-Image2.Height)/2);
|
|||
|
|
end;
|
|||
|
|
Image2.Visible:=True;
|
|||
|
|
end;
|
|||
|
|
if TBSave.Visible=False then
|
|||
|
|
begin
|
|||
|
|
Panel4.Visible:=False;
|
|||
|
|
Panel2.Visible:=False;
|
|||
|
|
KHName.Color:=clMenu;
|
|||
|
|
GuoJia.Color:=clMenu;
|
|||
|
|
|
|||
|
|
YWY.Color:=clMenu;
|
|||
|
|
BZ.Color:=clMenu;
|
|||
|
|
HuiLv.Color:=clMenu;
|
|||
|
|
XS.Color:=clMenu;
|
|||
|
|
KHGY.Color:=clMenu;
|
|||
|
|
Note.Color:=clMenu;
|
|||
|
|
end;
|
|||
|
|
if Trim(canshu1)='<27><><EFBFBD><EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
Panel9.Visible:=True;
|
|||
|
|
v1ZICost.Visible:=True;
|
|||
|
|
v1ZICost.Hidden:=False;
|
|||
|
|
v1XS.Visible:=True;
|
|||
|
|
v1XS.Hidden:=False;
|
|||
|
|
//TBPrtBJ.Visible:=True;
|
|||
|
|
v1BaoJia.Options.Editing:=True;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Panel9.Visible:=False;
|
|||
|
|
v1ZICost.Visible:=False;
|
|||
|
|
v1ZICost.Hidden:=True;
|
|||
|
|
v1XS.Visible:=False;
|
|||
|
|
v1XS.Hidden:=True;
|
|||
|
|
v1BaoJia.Options.Editing:=False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
procedure TfrmZHDJInPut.FormShow(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
InitData();
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
function TfrmZHDJInPut.SaveData():Boolean;
|
|||
|
|
var
|
|||
|
|
maxno,maxmxno,FMXID,FBaoJia,FZIID,FZIIDAdd,FAdd,FZIIDYS:String;
|
|||
|
|
FXH:Integer;
|
|||
|
|
FDate:TDateTime;
|
|||
|
|
begin
|
|||
|
|
Result:=False;
|
|||
|
|
FDate:=SGetServerDate(ADOTemp);
|
|||
|
|
try
|
|||
|
|
ADOCmd.Connection.BeginTrans;
|
|||
|
|
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
if Trim(FMainId)='' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNoHZ(ADOCmd,maxno,'ZD','ZH_KH_DJ',3,1,1)=False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
maxno:=Trim(FMainId);
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('select * from ZH_KH_DJ where ZDId='''+Trim(maxno)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(FMainId)='' then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
end
|
|||
|
|
else begin
|
|||
|
|
Edit;
|
|||
|
|
end;
|
|||
|
|
FieldByName('ZDId').Value:=Trim(maxno);
|
|||
|
|
if Trim(FMainId)='' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('Filler').Value:=Trim(DName);
|
|||
|
|
FieldByName('FillerCode').Value:=Trim(DCode);
|
|||
|
|
FieldByName('Valid').Value:='Y';
|
|||
|
|
FieldByName('ZDDate').Value:=FDate;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('Editer').Value:=Trim(DName);
|
|||
|
|
FieldByName('EditerCode').Value:=Trim(DCode);
|
|||
|
|
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
|||
|
|
end;
|
|||
|
|
RTSetsavedata(ADOCmd,'ZH_KH_DJ',Panel5,2);
|
|||
|
|
RTSetsavedata(ADOCmd,'ZH_KH_DJ',Panel9,2);
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
FMainId:=Trim(maxno);
|
|||
|
|
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_KH_DJ_CP where ZCID='''+Trim(Order_Sub.fieldbyname('ZCID').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
FMXID:=Trim(ADOCmd.fieldbyname('ZCID').AsString);
|
|||
|
|
if Trim(FMXID)='' then
|
|||
|
|
begin
|
|||
|
|
if GetLSNo(ADOCmd,maxmxno,'ZC','ZH_KH_DJ_CP',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
maxmxno:=Trim(FMXID)
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_KH_DJ_CP where ZCID='''+Trim(maxmxno)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
if Trim(FMXID)='' then
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('Filler').Value:=Trim(DName);
|
|||
|
|
FieldByName('FillerCode').Value:=Trim(DCode);
|
|||
|
|
FieldByName('Valid').Value:='Y';
|
|||
|
|
FieldByName('ZIID').Value:=Order_Sub.fieldbyname('ZIID').Value;
|
|||
|
|
FieldByName('ZIIDYS').Value:=Order_Sub.fieldbyname('ZIIDYS').Value;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('Editer').Value:=Trim(DName);
|
|||
|
|
FieldByName('EditerCode').Value:=Trim(DCode);
|
|||
|
|
FieldByName('EditTime').Value:=SGetServerDateTime(ADOTemp);
|
|||
|
|
end;
|
|||
|
|
FieldByName('ZDID').Value:=Trim(maxno);
|
|||
|
|
FieldByName('ZCID').Value:=Trim(maxmxno);
|
|||
|
|
FieldByName('DYID').Value:=Order_Sub.fieldbyname('DYID').Value;
|
|||
|
|
FieldByName('HeSuanStatus').Value:=Order_Sub.fieldbyname('HeSuanStatus').Value;
|
|||
|
|
RTSetSaveDataCDS(ADOCmd,Tv1,Order_Sub,'ZH_KH_DJ_CP',2);
|
|||
|
|
FieldByName('Valid').Value:='Y';
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
if Trim(Order_Sub.fieldbyname('ZIGYYS').AsString)<>Trim(Order_Sub.fieldbyname('ZIGY').AsString) then
|
|||
|
|
begin
|
|||
|
|
FZIID:=Trim(Order_Sub.fieldbyname('ZIID').AsString);
|
|||
|
|
if Pos('-',FZIID)>0 then
|
|||
|
|
begin
|
|||
|
|
FZIID:=Copy(FZIID,1,Pos('-',FZIID)-1);
|
|||
|
|
end;
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_CP_Info where isnull(ZIIDQuHao,'''')='''+Trim(FZIID)+'''');
|
|||
|
|
sql.Add(' and ZIGY=:ZIGY');
|
|||
|
|
Parameters.ParamByName('ZIGY').Value:=Order_Sub.fieldbyname('ZIGY').Value;
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
FAdd:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select AA=isnull(max(ZIIDAddXH),0)+1 from ZH_CP_Info where isnull(ZIIDQuHao,'''')='''+Trim(FZIID)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
FXH:=ADOTemp.fieldbyname('AA').AsInteger;
|
|||
|
|
if Trim(FMXID)='' then
|
|||
|
|
begin
|
|||
|
|
FZIIDYS:=Trim(Order_Sub.fieldbyname('ZIID').AsString);
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FZIIDYS:=Trim(Order_Sub.fieldbyname('ZIIDYS').AsString);
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FXH:=ADOTemp.fieldbyname('ZIIDAddXH').AsInteger;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_KH_DJ_CP Set ZIID='''+Trim(FZIID+'-'+Trim(IntToStr(FXH)))+'''');
|
|||
|
|
SQL.Add(' where ZCID='''+Trim(maxmxno)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_KH_DJ_CP Set ZIIDYS=(select ZIIDYS from ZH_CP_Info A where A.ZIID=ZH_KH_DJ_CP.ZIID )');
|
|||
|
|
SQL.Add(' where ZCID='''+Trim(maxmxno)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
FAdd:='<27><EFBFBD>';
|
|||
|
|
end;
|
|||
|
|
FZIIDAdd:=FZIID+'-'+Trim(IntToStr(FXH));
|
|||
|
|
if Trim(FAdd)='<27><><EFBFBD><EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
if Pos('-',Trim(Order_Sub.fieldbyname('ZIID').AsString))>0 then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_KH_DJ_CP where ZIID='''+Trim(Order_Sub.fieldbyname('ZIID').AsString)+'''');
|
|||
|
|
sql.Add(' and ZCID<>'''+Trim(Order_Sub.fieldbyname('ZCID').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_CP_Info Set ZIGY=:ZIGY');
|
|||
|
|
sql.Add(' where ZIID='''+Trim(Order_Sub.fieldbyname('ZIID').AsString)+'''');
|
|||
|
|
Parameters.ParamByName('ZIGY').Value:=Order_Sub.fieldbyname('ZIGY').Value;
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
FAdd:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FAdd:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
if Trim(FAdd)='<27><><EFBFBD><EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_KH_DJ_CP Set ZIID='''+Trim(FZIIDAdd)+'''');
|
|||
|
|
sql.Add(',ZIIDYS='''+Trim(FZIIDYS)+'''');
|
|||
|
|
SQL.Add(' where ZCID='''+Trim(maxmxno)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('insert into ZH_CP_Info(ZIID,ZIMF,ZIKZ,ZICF,ZIGY,Filler,FillerCode,Valid,ZIName,ZIIDYS,ZIIDQuHao,ZIIDAddXH,ZIDate)');
|
|||
|
|
sql.Add('select :ZIID,ZIMF,ZIKZ,ZICF,:ZIGY,:Filler,:FillerCode,''Y'',ZIName,:ZIIDYS,:ZIIDQuHao,:ZIIDAddXH,:ZIDate');
|
|||
|
|
sql.Add(' from ZH_CP_Info where ZIID='''+Trim(FZIIDYS)+'''');
|
|||
|
|
Parameters.ParamByName('ZIID').Value:=Trim(FZIIDAdd);
|
|||
|
|
Parameters.ParamByName('ZIGY').Value:=Trim(Order_Sub.fieldbyname('ZIGY').AsString);
|
|||
|
|
Parameters.ParamByName('Filler').Value:=Trim(DName);
|
|||
|
|
Parameters.ParamByName('FillerCode').Value:=Trim(DCode);
|
|||
|
|
Parameters.ParamByName('ZIIDYS').Value:=Trim(FZIIDYS);
|
|||
|
|
Parameters.ParamByName('ZIIDQuHao').Value:=Trim(FZIID);
|
|||
|
|
Parameters.ParamByName('ZIIDAddXH').Value:=FXH;
|
|||
|
|
Parameters.ParamByName('ZIDate').Value:=FDate;
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_CP_Info Set ZIGY=:ZIGY');
|
|||
|
|
sql.Add(' where ZIID='''+Trim(FZIIDAdd)+'''');
|
|||
|
|
Parameters.ParamByName('ZIGY').Value:=Order_Sub.fieldbyname('ZIGY').Value;
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('insert into Image_Info(IMID,IMNO,WBID,ImagePath,ImageName,ImageDate,ImageType,Valid)');
|
|||
|
|
sql.Add('select '''+Trim(FZIIDAdd)+'''+substring(IMID,len(IMID)-1,2),IMNO,:WBID,ImagePath,ImageName,ImageDate,ImageType,''Y'' ');
|
|||
|
|
sql.Add(' from Image_Info where WBID='''+Trim(FZIIDYS)+''' and Valid=''Y'' ');
|
|||
|
|
Parameters.ParamByName('WBID').Value:=Trim(FZIIDAdd);
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('insert into Image_File(IMID,IFID,IFType,ImageFile,Valid,ImageWidth,ImageHeight,FangXiang)');
|
|||
|
|
sql.Add('select '''+Trim(FZIIDAdd)+'''+substring(B.IMID,len(B.IMID)-1,2) ');
|
|||
|
|
sql.Add(','''+Trim(FZIIDAdd)+'''+substring(B.IFID,len(B.IFID)-3,4)');
|
|||
|
|
sql.Add(' ,B.IFType,B.ImageFile,''Y'',B.ImageWidth,B.ImageHeight,B.FangXiang');
|
|||
|
|
sql.Add(' from Image_Info A ');
|
|||
|
|
sql.Add(' inner join Image_File B on A.IMID=B.IMID');
|
|||
|
|
sql.Add(' where A.WBID='''+Trim(FZIIDYS)+''' and A.Valid=''Y'' and B.Valid=''Y'' ');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if Trim(Order_Sub.fieldbyname('LeiBie').AsString)='<27><><EFBFBD>ߵ<EFBFBD><DFB5><EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_CP_Info_KC Set GGQty=0 ');
|
|||
|
|
sql.Add(' where DYID='''+Trim(Order_Sub.fieldbyname('DYID').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_CP_Info_KC Set GGQty=1 ');
|
|||
|
|
sql.Add(' where DYID='''+Trim(Order_Sub.fieldbyname('DYID').AsString)+''' and isnull(KWID,'''')<>'''' ');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('ZDID').Value:=Trim(maxno);
|
|||
|
|
FieldByName('ZCID').Value:=Trim(maxmxno);
|
|||
|
|
Post;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_KH_DJ Set DJYang=(select Count(*) from ZH_KH_DJ_CP A where A.ZDID=ZH_KH_DJ.ZDID and A.LeiBie=''<27>Ǽ<EFBFBD><C7BC><EFBFBD>'' and A.Valid=''Y'' )');
|
|||
|
|
sql.Add(',NaYang=(select Count(*) from ZH_KH_DJ_CP A where A.ZDID=ZH_KH_DJ.ZDID and A.LeiBie=''<27><><EFBFBD>ߵ<EFBFBD><DFB5><EFBFBD>'' and A.Valid=''Y'' )');
|
|||
|
|
sql.Add(' where ZDID='''+Trim(maxno)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_KH_DJ Set XunYang=(select Count(*) from ZH_KH_DJ_CP A where A.ZDID=ZH_KH_DJ.ZDID and A.Valid=''Y'' )');
|
|||
|
|
sql.Add(' where ZDID='''+Trim(maxno)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
if Trim(canshu1)='<27><><EFBFBD><EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_KH_DJ_CP ');
|
|||
|
|
sql.Add(' where ZDID='''+Trim(maxno)+''' and Valid=''Y'' and isnull(BaoJia,0)>0 ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty=False then
|
|||
|
|
begin
|
|||
|
|
FBaoJia:='<27>ѱ<EFBFBD><D1B1><EFBFBD>';
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FBaoJia:='';
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_KH_DJ Set BJStatus='''+Trim(FBaoJia)+'''');
|
|||
|
|
sql.Add(' where ZDID='''+Trim(maxno)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_CP_Info Set ZICost=(select Top 1 ZICost from ZH_KH_DJ_CP A where A.ZIID=ZH_CP_Info.ZIID and ZDID='''+Trim(maxno)+'''');
|
|||
|
|
sql.Add('order by FillTime desc)');
|
|||
|
|
sql.Add(' where ZIID in (select ZIID from ZH_KH_DJ_CP CP where ZDID='''+Trim(maxno)+''' ');
|
|||
|
|
sql.Add(' and isnull(ZICost,0)>0 and Valid=''Y'' )'); //and CP.ZIID=ZH_CP_Info.ZIID
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_CP_Info Set KHNameHZ=dbo.F_Get_HZStr(ZIID,''KHNaYang'')');
|
|||
|
|
sql.Add(' where ZIID in(select ZIID from ZH_KH_DJ_CP where ZDID='''+Trim(maxno)+'''and Valid=''Y'' )');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
if Trim(Image2.Hint)<>'' then
|
|||
|
|
begin
|
|||
|
|
SaveImage(maxno,'<27><>Ƭ');
|
|||
|
|
end;
|
|||
|
|
ADOCmd.Connection.CommitTrans;
|
|||
|
|
FMainId:=Trim(maxno);
|
|||
|
|
Result:=True;
|
|||
|
|
except
|
|||
|
|
Result:=False;
|
|||
|
|
Panel1.Visible:=False;
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.TBSaveClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
ToolBar1.SetFocus;
|
|||
|
|
if Trim(KHName.Text)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if Order_Sub.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><>ϸ<EFBFBD><CFB8><EFBFBD>ݲ<EFBFBD><DDB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if Order_Sub.Locate('LeiBie',Null,[]) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if Order_Sub.Locate('LeiBie','',[]) then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
Panel1.Visible:=True;
|
|||
|
|
Panel1.Refresh;
|
|||
|
|
if SaveData() then
|
|||
|
|
begin
|
|||
|
|
Panel1.Visible:=False;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>','<27><>ʾ',0);
|
|||
|
|
ModalResult:=1;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
procedure TfrmZHDJInPut.ReadINIFile10();
|
|||
|
|
var
|
|||
|
|
programIni:Tinifile; //<2F><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>
|
|||
|
|
FileName:string;
|
|||
|
|
begin
|
|||
|
|
FileName:=ExtractFilePath(Paramstr(0))+'SYSTEMSET.INI';
|
|||
|
|
programIni:=Tinifile.create(FileName);
|
|||
|
|
server:=programIni.ReadString('SERVER','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ','127.0.0.1');
|
|||
|
|
programIni.Free;
|
|||
|
|
end;
|
|||
|
|
procedure TfrmZHDJInPut.SaveImage(maxnoWB:string;FIMNO:String);
|
|||
|
|
var
|
|||
|
|
ImagePath,ImagName,MaxNo,MaxNoFile:String;
|
|||
|
|
AJpeg:TJPEGImage;
|
|||
|
|
myStream:TADOBlobStream;
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
if Trim(FIMNO)='<27><>Ƭ' then
|
|||
|
|
begin
|
|||
|
|
ImagePath:=Image2.Hint;
|
|||
|
|
ImagName:=Image2.Hint;
|
|||
|
|
end;
|
|||
|
|
AJpeg:=TJpegImage.Create();
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('UPdate Image_File Set Valid=''N'' ');
|
|||
|
|
sql.Add(' where IMID=(select IMID from Image_Info');
|
|||
|
|
Sql.Add('where WBID='''+Trim(maxnoWB)+''' and Valid=''Y'' and IMNO='''+Trim(FIMNO)+''')');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('UPdate Image_Info Set Editer='''+Trim(DName)+''',EditerCode='''+Trim(DCode)+''',EditTime=getdate()');
|
|||
|
|
sql.Add(',Valid=''N'' where WBID='''+Trim(maxnoWB)+''' and Valid=''Y'' and IMNO='''+Trim(FIMNO)+''' ');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
if GetLSNo(ADOCmd,MaxNo,'IM','Image_Info',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡͼƬ<CDBC><C6AC>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
SQL.Add('select * from Image_Info where 1=2');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('IMID').Value:=Trim(MaxNo);
|
|||
|
|
FieldByName('IMNo').Value:=FIMNO;
|
|||
|
|
FieldByName('WBID').Value:=Trim(maxnoWB);
|
|||
|
|
FieldByName('ImageName').Value:=Trim(ImagName);
|
|||
|
|
FieldByName('ImagePath').Value:=Trim(MaxNo)+Trim(ImagName);
|
|||
|
|
FieldByName('ImageDate').Value:=SGetServerDate(ADOTemp);
|
|||
|
|
Fieldbyname('ImageType').value:=Trim('MP');
|
|||
|
|
Fieldbyname('Valid').value:=Trim('Y');
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
if GetLSNo(ADOCmd,MaxNoFile,'IF','Image_File',4,1)=False then
|
|||
|
|
begin
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡͼƬ<CDBC>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add(' select * from Image_File where 1=2');
|
|||
|
|
open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('IMID').Value:=Trim(MaxNo);
|
|||
|
|
FieldByName('IFID').Value:=Trim(MaxNoFile);
|
|||
|
|
Fieldbyname('Valid').value:=Trim('Y');
|
|||
|
|
if Trim(FIMNO)='<27><>Ƭ' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('ImageWidth').Value:=Image2.Width;
|
|||
|
|
FieldByName('ImageHeight').Value:=Image2.Height;
|
|||
|
|
FieldByName('FangXiang').Value:=FangXiang2;
|
|||
|
|
end;
|
|||
|
|
FieldByName('IFType').Value:='С';
|
|||
|
|
myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('ImageFile')), bmWrite);
|
|||
|
|
if Trim(FIMNO)='<27><>Ƭ' then
|
|||
|
|
begin
|
|||
|
|
AJpeg.Assign(Image2.Picture.Graphic);
|
|||
|
|
end;
|
|||
|
|
AJpeg.SaveToStream(myStream);
|
|||
|
|
myStream.Free;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('IMID').Value:=Trim(MaxNo);
|
|||
|
|
FieldByName('IFID').Value:=Trim(MaxNoFile)+'D';
|
|||
|
|
Fieldbyname('Valid').value:=Trim('Y');
|
|||
|
|
if Trim(FIMNO)='<27><>Ƭ' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('ImageWidth').Value:=Image22.Width;
|
|||
|
|
FieldByName('ImageHeight').Value:=Image22.Height;
|
|||
|
|
FieldByName('FangXiang').Value:=FangXiang2;
|
|||
|
|
end;
|
|||
|
|
FieldByName('IFType').Value:='<27><>';
|
|||
|
|
myStream := TADOBlobStream.Create(TBlobField(ADOCmd.FieldByName('ImageFile')), bmWrite);
|
|||
|
|
if Trim(FIMNO)='<27><>Ƭ' then
|
|||
|
|
begin
|
|||
|
|
AJpeg.Assign(Image22.Picture.Graphic);
|
|||
|
|
end;
|
|||
|
|
AJpeg.SaveToStream(myStream);
|
|||
|
|
myStream.Free;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
ReadINIFile10();
|
|||
|
|
server:=ReadINIFileStr('SYSTEMSET.INI','SERVER','<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ַ','127.0.0.1');
|
|||
|
|
IdFTP1.Host :=server;//PicSvr;
|
|||
|
|
IdFTP1.Username := 'three';
|
|||
|
|
IdFTP1.Password := '641010';
|
|||
|
|
IdFTP1.Connect();
|
|||
|
|
except
|
|||
|
|
IdFTP1.Quit;
|
|||
|
|
Application.MessageBox('<27><EFBFBD><DEB7><EFBFBD><EFBFBD>ӵ<EFBFBD><D3B5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>飡', '<27><>ʾ', MB_ICONWARNING);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if IdFTP1.Connected then
|
|||
|
|
begin
|
|||
|
|
if Trim(FIMNO)='<27><>Ƭ' then
|
|||
|
|
begin
|
|||
|
|
IdFTP1.Put(lstPat2[0], 'MP'+'\'+Trim(MaxNo)+Trim(ImagName));
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if IdFTP1.Connected then IdFTP1.Quit;
|
|||
|
|
except
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ͼƬ<CDBC><C6AC><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ',0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
Procedure TfrmZHDJInPut.FormClose(Sender: TObject;
|
|||
|
|
var Action: TCloseAction);
|
|||
|
|
begin
|
|||
|
|
ModalResult:=1;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
|
|||
|
|
function TfrmZHDJInPut.StrFenHang(FStr:string;var FHStr:String):Boolean;
|
|||
|
|
var
|
|||
|
|
i,j:Integer;
|
|||
|
|
LSStr:String;
|
|||
|
|
begin
|
|||
|
|
Result:=False;
|
|||
|
|
FStr:=Trim(FStr);
|
|||
|
|
FHStr:='';
|
|||
|
|
j:=1;
|
|||
|
|
i:=Pos(' ',FStr);
|
|||
|
|
while i>0 do
|
|||
|
|
begin
|
|||
|
|
if j=1 then
|
|||
|
|
begin
|
|||
|
|
LSStr:=Copy(FStr,1,i-1); //'1234 5678 456'
|
|||
|
|
FHStr:='1:'+LSStr;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
LSStr:=Copy(FStr,1,i-1);
|
|||
|
|
if Trim(LSStr)='' then
|
|||
|
|
begin
|
|||
|
|
Fstr:=Copy(Fstr,i+1,Length(Fstr)-i);
|
|||
|
|
end else
|
|||
|
|
FHStr:=FHStr+#13+#10+inttostr(j)+':'+LSStr;
|
|||
|
|
end;
|
|||
|
|
if Trim(LSStr)<>'' then
|
|||
|
|
begin
|
|||
|
|
j:=j+1;
|
|||
|
|
Fstr:=Copy(Fstr,i+1,Length(Fstr)-i);
|
|||
|
|
end;
|
|||
|
|
i:=Pos(' ',FStr);
|
|||
|
|
end;
|
|||
|
|
if j=1 then
|
|||
|
|
begin
|
|||
|
|
FHStr:=FStr;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
if Trim(FStr)<>'' then
|
|||
|
|
begin
|
|||
|
|
FHStr:=FHStr+#13+#10+inttostr(j)+':'+FStr;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Result:=True;
|
|||
|
|
end;
|
|||
|
|
procedure TfrmZHDJInPut.FormCreate(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
lstPat := TStringList.Create;
|
|||
|
|
lstPat2 := TStringList.Create;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.Button2Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
AJpeg:TJPEGImage;
|
|||
|
|
Bitmap,Bitmap22: TBitmap;
|
|||
|
|
ARect,ARect22: TRect;
|
|||
|
|
TPHeight, AHeightOffset: Integer;
|
|||
|
|
TPWidth, AWidthOffset: Integer;
|
|||
|
|
WZShuiPing,WZChuiZhi:Integer;
|
|||
|
|
WZFlag:String;
|
|||
|
|
begin
|
|||
|
|
lstPat2.Clear;
|
|||
|
|
if ODPat.Execute then
|
|||
|
|
begin
|
|||
|
|
lstPat2.AddStrings(ODPat.Files);
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if lstPat2.Count>1 then
|
|||
|
|
begin
|
|||
|
|
lstPat2.Clear;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ϴ<EFBFBD><CFB4><EFBFBD><EFBFBD><EFBFBD>ͼƬ!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end else
|
|||
|
|
if lstPat2.Count<1 then
|
|||
|
|
begin
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
Panel1.Visible:=True;
|
|||
|
|
Panel1.Refresh;
|
|||
|
|
AJpeg:=TJpegImage.Create();
|
|||
|
|
AJpeg.LoadFromFile(ExtractFileName(ODPat.FileName));
|
|||
|
|
Image2.Hint:=ExtractFileName(ODPat.FileName);
|
|||
|
|
TPWidth:=AJpeg.Width;
|
|||
|
|
TPHeight:=AJpeg.Height;
|
|||
|
|
Bitmap := TBitmap.Create;
|
|||
|
|
Bitmap22 := TBitmap.Create;
|
|||
|
|
Bitmap.Width :=Panel66.Width-2;
|
|||
|
|
Bitmap.Height :=Round(Panel66.Width/TPWidth*TPHeight);
|
|||
|
|
if Bitmap.Height>Panel66.Height then
|
|||
|
|
begin
|
|||
|
|
WZFlag:='<27><>ֱ';
|
|||
|
|
Bitmap.Height:=Panel66.Height-2;
|
|||
|
|
Bitmap.Width :=Round(Panel66.Height/TPHeight*TPWidth);
|
|||
|
|
end;
|
|||
|
|
Bitmap22.Width:=Bitmap.Width*2;
|
|||
|
|
Bitmap22.Height:=Bitmap.Height*2;
|
|||
|
|
Bitmap.Canvas.FillRect(Rect(0, 0, Bitmap.Width, Bitmap.Height));
|
|||
|
|
ARect := Rect(0, 0, Bitmap.Width, Bitmap.Height);
|
|||
|
|
Bitmap.Canvas.StretchDraw(ARect, AJPeg);
|
|||
|
|
Image2.Height:=Bitmap.Height;
|
|||
|
|
Image2.Width:=Bitmap.Width;
|
|||
|
|
Image2.Picture.Assign(BitMap);
|
|||
|
|
if Trim(WZFlag)='<27><>ֱ' then
|
|||
|
|
begin
|
|||
|
|
Image2.Top:=1;
|
|||
|
|
Image2.Left:=Round((Panel66.Width-Image2.Width)/2);
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
Image2.Left:=1;
|
|||
|
|
Image2.Top:=Round((Panel66.Height-Image2.Height)/2);
|
|||
|
|
end;
|
|||
|
|
FangXiang2:=WZFlag;
|
|||
|
|
Bitmap22.Canvas.FillRect(Rect(0, 0, Bitmap22.Width, Bitmap22.Height));
|
|||
|
|
ARect22 := Rect(0, 0, Bitmap22.Width, Bitmap22.Height);
|
|||
|
|
Bitmap22.Canvas.StretchDraw(ARect22, AJPeg);
|
|||
|
|
Image22.Height:=Bitmap22.Height;
|
|||
|
|
Image22.Width:=Bitmap22.Width;
|
|||
|
|
Image22.Picture.Assign(Bitmap22);
|
|||
|
|
Image2.Visible:=True;
|
|||
|
|
Edit2.Text:=Copy(Image2.Hint,1,Length(Image2.Hint)-4);
|
|||
|
|
Panel1.Visible:=False;
|
|||
|
|
end;
|
|||
|
|
procedure TfrmZHDJInPut.TBPrtInfoClick(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fPrintFile,Txt,fImagePath,maxno:string;
|
|||
|
|
i,j:Integer;
|
|||
|
|
Moudle: THandle;
|
|||
|
|
Makebar:TMakebar;
|
|||
|
|
Mixtext:TMixtext;
|
|||
|
|
begin
|
|||
|
|
if Trim(FMainId)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_KH_DJ_CP where ZCID='''+Trim(Order_Sub.fieldbyname('ZCID').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\չ<><D5B9><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ǩ85.rmf';
|
|||
|
|
if FileExists(fPrintFile)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\չ<><D5B9><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ǩ85.rmf'),'<27><>ʾ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Order_Sub.Locate('SSel',True,[])=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while Locate('SSel',True,[]) do
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add(' select B.* ');
|
|||
|
|
sql.Add(' from ZH_KH_DJ_CP A');
|
|||
|
|
sql.Add(' inner join ZH_CP_Info B on A.ZIID=B.ZIID');
|
|||
|
|
sql.Add(' where A.ZIID='''+Trim(Order_Sub.fieldbyname('ZIID').AsString)+'''');
|
|||
|
|
sql.Add(' and A.Valid=''Y'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOTemp,CDS_PRT);
|
|||
|
|
SInitCDSData20(ADOTemp,CDS_PRT);
|
|||
|
|
try
|
|||
|
|
ADOQueryCmd.Connection.BeginTrans;
|
|||
|
|
if GetLSNo(ADOQueryCmd,maxno,'DYKC','ZH_CP_Info_KC',4,1,)=False then
|
|||
|
|
begin
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('ȡ<><C8A1>Ʒ<EFBFBD><C6B7>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
SQL.Add('select * from ZH_CP_Info_KC where DYId='''+Trim(maxno)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Append;
|
|||
|
|
FieldByName('ZIId').Value:=Trim(Order_Sub.fieldbyname('ZIID').AsString);
|
|||
|
|
FieldByName('DYId').Value:=Trim(maxno);
|
|||
|
|
FieldByName('Filler').Value:=Trim(DName);
|
|||
|
|
FieldByName('FillerCode').Value:=Trim(DCode);
|
|||
|
|
FieldByName('Valid').Value:='Y';
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
with ADOQueryCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_CP_Info_KC Set DYXH=isnull((select max(DYXH) from ZH_CP_Info_KC A ');
|
|||
|
|
sql.Add(' where A.ZIID='''+Trim(Order_Sub.fieldbyname('ZIID').AsString)+'''),0)+1 ');
|
|||
|
|
sql.Add(' where DYID='''+Trim(maxno)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
ADOQueryCmd.Connection.CommitTrans;
|
|||
|
|
except
|
|||
|
|
ADOQueryCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӡ<EFBFBD><D3A1>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
Moudle:=LoadLibrary('MakeQRBarcode.dll');
|
|||
|
|
@Makebar:=GetProcAddress(Moudle,'Make');
|
|||
|
|
@Mixtext:=GetProcAddress(Moudle,'MixText');
|
|||
|
|
Txt:=Trim(maxno);
|
|||
|
|
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><CEAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
RMVariables['QRBARCODE']:=fImagePath;
|
|||
|
|
RMVariables['DYID']:=Trim(maxno);
|
|||
|
|
RM1.LoadFromFile(fPrintFile);
|
|||
|
|
//RM1.ShowReport;
|
|||
|
|
RM1.PrintReport;
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('SSel').Value:=False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.Image2DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Trim(FMainId)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܲ鿴<DCB2><E9BFB4>ͼ!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
frmZHCPBigMP:=TfrmZHCPBigMP.Create(Application);
|
|||
|
|
with frmZHCPBigMP do
|
|||
|
|
begin
|
|||
|
|
frmZHCPBigMP.FMainId:=Self.FMainId;
|
|||
|
|
frmZHCPBigMP.FIMNO:='<27><>Ƭ';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmZHCPBigMP.Free;
|
|||
|
|
end; ;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.GuoJiaBtnClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from KH_Main where isnull(KHNameJC,'''')='''+Trim(KHName.Text)+'''');
|
|||
|
|
sql.add(' and isnull(KHFlag,'''')='''+Trim('KH')+''' and isnull(Valid,'''')=''Y'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty=False then
|
|||
|
|
begin
|
|||
|
|
if Trim(canshu2)<>'<27><>Ȩ<EFBFBD><C8A8>' then
|
|||
|
|
begin
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
frmZDYHelp:=TfrmZDYHelp.Create(Application);
|
|||
|
|
with frmZDYHelp do
|
|||
|
|
begin
|
|||
|
|
flag:='GuoJia';
|
|||
|
|
flagname:='<27><><EFBFBD><EFBFBD>';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
GuoJia.Text:=Trim(ClientDataSet1.fieldbyname('ZdyName').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmZDYHelp.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.initOldYP();
|
|||
|
|
var FMXCYID,FColNo,FCYType,CPID:String;
|
|||
|
|
begin
|
|||
|
|
with ADOQuery6 do
|
|||
|
|
begin
|
|||
|
|
close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.CYID MXCYType,A.ColorNo,CYType=isnull((select Top 1 C.CYType from CP_YDang B inner join CP_YDang C on C.CYID=B.CYType where B.CYID=A.CYID)');
|
|||
|
|
SQL.Add(',(select Top 1 B.CYType from CP_YDang B where B.CYID=A.CYID))');
|
|||
|
|
sql.Add(',CYID=isnull((select Top 1 C.CYID from CP_YDang B inner join CP_YDang C on C.CYID=B.CYType where B.CYID=A.CYID),');
|
|||
|
|
sql.Add('(select Top 1 B.CYID from CP_YDang B where B.CYID=A.CYID))');
|
|||
|
|
sql.Add(' from CP_YDang_Color A where A.CLRID='''+trim(DYID.Text)+'''');
|
|||
|
|
//ShowMessage(sql.Text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQuery2 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from CP_YDang where CYID='''+Trim(DYID.Text)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOQuery3 do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from CP_YDang where CYID='''+Trim(ADOQuery2.fieldbyname('CYType').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOQuery6.IsEmpty=false then
|
|||
|
|
begin
|
|||
|
|
CPID:=Trim(ADOQuery6.fieldbyname('CYType').AsString);
|
|||
|
|
FMXCYID:=Trim(ADOQuery6.fieldbyname('CYID').AsString);
|
|||
|
|
FColNo:=Trim(ADOQuery6.fieldbyname('ColorNo').AsString);
|
|||
|
|
FCYType:=Trim(ADOQuery6.fieldbyname('MXCYType').AsString);
|
|||
|
|
end;
|
|||
|
|
if ADOQuery2.IsEmpty=false then
|
|||
|
|
begin
|
|||
|
|
CPID:=Trim(ADOQuery2.fieldbyname('CYType').AsString);
|
|||
|
|
FMXCYID:=Trim(ADOQuery2.fieldbyname('CYID').AsString);
|
|||
|
|
end;
|
|||
|
|
if ADOQuery3.IsEmpty=false then
|
|||
|
|
begin
|
|||
|
|
CPID:=Trim(ADOQuery3.fieldbyname('CYType').AsString);
|
|||
|
|
FMXCYID:=Trim(ADOQuery3.fieldbyname('CYID').AsString);
|
|||
|
|
FCYType:=Trim(DYID.Text);
|
|||
|
|
end;
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add(' exec P_Select_CP_YDang1 :CYType,:CP,:RON,:WSql,:Stats ');
|
|||
|
|
Parameters.ParamByName('CYType').Value:=CPID;
|
|||
|
|
Parameters.ParamByName('CP').Value:=1;
|
|||
|
|
Parameters.ParamByName('RON').Value:=100;
|
|||
|
|
Parameters.ParamByName('WSql').Value:=' CYID='''+Trim(FMXCYID)+''' ';
|
|||
|
|
Parameters.ParamByName('Stats').Value:=2;
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.DYIDKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
var
|
|||
|
|
FZIID,FLeiBie,FZIIDYS,fsj:String;
|
|||
|
|
begin
|
|||
|
|
if Key=#13 then
|
|||
|
|
begin
|
|||
|
|
InitOldYP();
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
if Copy(Trim(DYID.Text),1,4)='DYKC' then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_CP_Info_KC where DYID='''+Trim(DYID.Text)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
FZIID:=Trim(ADOTemp.fieldbyname('ZIID').AsString);
|
|||
|
|
DYID.Hint:=Trim(DYID.Text);
|
|||
|
|
if Trim(FZIID)='' then
|
|||
|
|
begin
|
|||
|
|
PlaySound('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
|
|||
|
|
DYID.Text:='';
|
|||
|
|
DYID.Hint:='';
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
if Copy(Trim(DYID.Text),1,3)='Y20' then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_CP_Info where ZIID='''+Trim(DYID.Text)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
PlaySound('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
|
|||
|
|
DYID.Text:='';
|
|||
|
|
DYID.Hint:='';
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
FZIID:=Trim(DYID.Text);
|
|||
|
|
DYID.Hint:=Trim(DYID.Text);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_CP_Info where ZIID='''+Trim(FZIID)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
FZIIDYS:=Trim(ADOTemp.fieldbyname('ZIIDYS').AsString);
|
|||
|
|
if Order_Sub.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
FLeiBie:='<27>Ǽ<EFBFBD><C7BC><EFBFBD>';
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FLeiBie:=Trim(Order_Sub.fieldbyname('LeiBie').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.*,ZIGYYS=B.ZIGY ');
|
|||
|
|
sql.Add(' ,ImageFileTP=(select ImageFile from Image_Info B inner join Image_File C on B.IMID=C.IMID ');
|
|||
|
|
sql.Add(' where B.WBID=A.ZIID and B.IMNO=''ͼƬ'' and B.Valid=''Y'' and C.Valid=''Y'' and C.IFType=''С'' )');
|
|||
|
|
sql.Add(',GS=(select Sum(GGQty) from ZH_CP_Info_KC KC where KC.ZIID=A.ZIID )');
|
|||
|
|
sql.Add(' from ZH_CP_Info A ');
|
|||
|
|
sql.Add(' left join ZH_CP_Info B on A.ZIIDYS=B.ZIID ');
|
|||
|
|
sql.Add(' where A.ZIID='''+Trim(FZIID)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if Copy(DYID.Text,1,4)='TGML' then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
SQL.Add('select Top 1 B.*,E.*,MLDLNo SKID,MLPinYin=dbo.getPinYin(A.MLName) ');
|
|||
|
|
sql.Add(',ColGS=(select count(B.TJML) from Image_Info B where B.TJML=A.TJML)');
|
|||
|
|
sql.Add(',ImageFile ImageFileTP,GS=cast(1 as decimal(18,2)),ZICost=cast(0 as decimal(18,2))');
|
|||
|
|
sql.Add(' ,A.MLID,A.MLNo,A.MLName ZIName,A.MLMF ZIMF,A.MLKZ ZIKZ,A.MBPID,A.MLCF ZICF,');
|
|||
|
|
sql.Add(' A.MLType,A.GYLX,A.TJGYName ZIGY,A.GYType,A.GYTypeJC');
|
|||
|
|
sql.Add(' from ML_Manage A ');
|
|||
|
|
sql.Add(' left join Image_Info B on B.TJML=A.TJML ');
|
|||
|
|
sql.Add(' left join Image_File E on B.IMID=E.IMID ');
|
|||
|
|
sql.Add(' left join BP_DY C on C.TFID=B.IMID and C.MLID=A.MLID');
|
|||
|
|
sql.Add(' left join BP_DY D on D.TFID=A.PTID and D.MLID=A.MLID');
|
|||
|
|
sql.Add(' where isnull(A.MLType,'''')=''<27>̽<EFBFBD><CCBD><EFBFBD><EFBFBD><EFBFBD>'' and isnull(C.DYID,D.DYID)='''+trim(DYID.Text)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
PlaySound('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
|
|||
|
|
DYID.Text:='';
|
|||
|
|
DYID.Hint:='';
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
FZIID:=Trim(DYID.Text);
|
|||
|
|
DYID.Hint:=Trim(DYID.Text);
|
|||
|
|
end;
|
|||
|
|
if Copy(Trim(DYID.Text),1,2)='QM' then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.MXID,A.MXTime,A.RCGangNo,A.GangNo,A.JH,A.KgQty,A.YQty,A.MQty,A.KuWei,');
|
|||
|
|
sql.Add(' B.MYType,B.MYID,B.MLID,B.BPID,B.DYID,B.PTID,B.MYCode,B.MYName ZIName,B.MYColor, ');
|
|||
|
|
sql.Add(' B.MYColorNo,B.MYMF ZIMF,B.MYKZ ZIKZ,B.Note,B.Note2,A.MXNote,');
|
|||
|
|
sql.Add(' Case when isnull(A.RCGangNo,'''')='''' then A.GangNo else A.RCGangNo end As DYGangNo,');
|
|||
|
|
sql.Add(' C.GYLX,C.GYLXName ZIGY,C.MLCF ZICF,C.MLJWMD,C.GYType,GS=cast(1 as decimal(18,2)),ZICost=cast(0 as decimal(18,2))');
|
|||
|
|
sql.Add(' ,ImageFileTP=cast('''' as varchar(50))');
|
|||
|
|
sql.Add(' Case when ISNULL(A.MQty,0)>0 and ISNULL(A.KgQty,0)>0 ');
|
|||
|
|
sql.Add(' then Cast(CAST(A.MQty as decimal(18,1)) AS varchar(10))+''M''+'' '' ');
|
|||
|
|
sql.Add(' +Cast(CAST(A.KgQty as decimal(18,1)) AS varchar(10))+''Kg''+'' '' ');
|
|||
|
|
sql.Add(' When ISNULL(A.MQty,0)>0 and ISNULL(A.KgQty,0)=0 ');
|
|||
|
|
sql.Add(' then Cast(CAST(A.MQty as decimal(18,1)) AS varchar(10))+''M'' ');
|
|||
|
|
sql.Add(' When ISNULL(A.KgQty,0)>0 and ISNULL(A.MQty,0)=0 ');
|
|||
|
|
sql.Add(' then Cast(CAST(A.KgQty as decimal(18,1)) AS varchar(10))+''Kg''');
|
|||
|
|
sql.Add(' end as QtyStr ');
|
|||
|
|
sql.Add(' from CK_MYSC_CR_MX A ');
|
|||
|
|
sql.Add(' inner join CK_MYSC_CR B on A.MYID=B.MYID ');
|
|||
|
|
sql.Add(' left join ML_Manage C on B.MLID=C.MLID ');
|
|||
|
|
sql.Add(' Where A.MXID='''+trim(DYID.Text)+'''');
|
|||
|
|
SQL.Add(' or B.DYID='''+trim(DYID.Text)+'''');
|
|||
|
|
//ShowMessage(sql.Text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from RT_PTColor where PTID='''+Trim(ADOTemp.fieldbyname('PTID').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
fsj:=Trim(ADOCmd.fieldbyname('ColDaiMa').AsString);
|
|||
|
|
if fsj<>'' then
|
|||
|
|
Panel66.Color:=StrToInt('$'+Trim(fsj));
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
PlaySound('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
|
|||
|
|
DYID.Text:='';
|
|||
|
|
DYID.Hint:='';
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
FZIID:=Trim(DYID.Text);
|
|||
|
|
DYID.Hint:=Trim(DYID.Text);
|
|||
|
|
end;
|
|||
|
|
if Copy(DYID.Text,1,4)='DY20' then
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.DYID,');
|
|||
|
|
sql.Add(' B.MLID,B.MLNo,B.MLName ZIName,B.MLMF ZIMF,B.MLKZ ZIKZ,B.MBPID,B.MLCF ZICF,');
|
|||
|
|
sql.Add(' B.MLType,B.GYLX,B.GYLXName ZIGY,B.GYType,B.GYTypeJC,');
|
|||
|
|
sql.Add(' C.PTID,C.ColNamekh,C.ColNo,GS=cast(1 as decimal(18,2)),ZICost=cast(0 as decimal(18,2))');
|
|||
|
|
sql.Add(' ,D.ColNameEng,D.ColDaiMa ');
|
|||
|
|
sql.Add(' ,ImageFileTP=cast('''' as varchar(50))');
|
|||
|
|
sql.Add(' from BP_DY A ');
|
|||
|
|
sql.Add(' inner join ML_Manage B on A.MLID=B.MLID ');
|
|||
|
|
sql.Add(' inner join BP_ZDY BP on B.MBPID=BP.BPID ');
|
|||
|
|
sql.Add(' left join BP_ColZDY C on A.TFID=C.PTID and BP.SKID=C.SKID ');
|
|||
|
|
sql.Add(' left join RT_PTColor D on C.PTID=D.PTID ');
|
|||
|
|
sql.Add(' Where A.DYID='''+trim(DYID.Text)+'''');
|
|||
|
|
//ShowMessage(sql.Text);
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from RT_PTColor where PTID='''+Trim(ADOTemp.fieldbyname('PTID').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
fsj:=Trim(ADOCmd.fieldbyname('ColDaiMa').AsString);
|
|||
|
|
if fsj<>'' then
|
|||
|
|
Panel66.Color:=StrToInt('$'+Trim(fsj));
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
PlaySound('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.wav', 0, SND_FILENAME or SND_ASYNC);
|
|||
|
|
DYID.Text:='';
|
|||
|
|
DYID.Hint:='';
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
FZIID:=Trim(ADOTemp.fieldbyname('MLNo').Value);
|
|||
|
|
DYID.Hint:=Trim(DYID.Text);
|
|||
|
|
end;
|
|||
|
|
end
|
|||
|
|
else
|
|||
|
|
begin
|
|||
|
|
FZIID:=Trim(DYID.Text);
|
|||
|
|
DYID.Hint:=Trim(DYID.Text);
|
|||
|
|
end;
|
|||
|
|
if FZIIDYS='' then FZIIDYS:=Trim(DYID.Text);
|
|||
|
|
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
if Trim(DYID.Hint)<>'' then
|
|||
|
|
begin
|
|||
|
|
if Locate('DYID',Trim(DYID.Hint),[])=True then
|
|||
|
|
begin
|
|||
|
|
DYID.Text:='';
|
|||
|
|
DYID.Hint:='';
|
|||
|
|
PlaySound('<27>ѵǼ<D1B5>.wav', 0, SND_FILENAME or SND_ASYNC);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
if Locate('ZIID',Trim(FZIID),[])=True then
|
|||
|
|
begin
|
|||
|
|
DYID.Text:='';
|
|||
|
|
DYID.Hint:='';
|
|||
|
|
PlaySound('<27>ѵǼ<D1B5>.wav', 0, SND_FILENAME or SND_ASYNC);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Append;
|
|||
|
|
FieldByName('DYID').Value:=Trim(DYID.Hint);
|
|||
|
|
FieldByName('ZIID').Value:=Trim(FZIID);
|
|||
|
|
FieldByName('ZIIDYS').Value:=Trim(FZIIDYS);
|
|||
|
|
FieldByName('ZIName').Value:=ADOTemp.fieldbyname('ZIName').Value;
|
|||
|
|
FieldByName('ZIMF').Value:=ADOTemp.fieldbyname('ZIMF').Value;
|
|||
|
|
FieldByName('ZIKZ').Value:=ADOTemp.fieldbyname('ZIKZ').Value;
|
|||
|
|
FieldByName('ZICF').Value:=ADOTemp.fieldbyname('ZICF').Value;
|
|||
|
|
FieldByName('ZIGY').Value:=ADOTemp.fieldbyname('ZIGY').Value;
|
|||
|
|
FieldByName('GS').Value:=ADOTemp.fieldbyname('GS').Value;
|
|||
|
|
FieldByName('ZICost').Value:=ADOTemp.fieldbyname('ZICost').Value;
|
|||
|
|
FieldByName('ImageFileTP').Value:=ADOTemp.fieldbyname('ImageFileTP').Value;
|
|||
|
|
FieldByName('ZIGYYS').Value:=ADOTemp.fieldbyname('ZIGY').Value;
|
|||
|
|
FieldByName('LeiBie').Value:=Trim(FLeiBie);
|
|||
|
|
FieldByName('ZICost').Value:=ADOTemp.fieldbyname('ZICost').Value;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
DYID.Text:='';
|
|||
|
|
DYID.Hint:='';
|
|||
|
|
KHGY.Text:=Trim(ADOTemp.fieldbyname('ZIGY').AsString);
|
|||
|
|
PlaySound('<27>Ǽdzɹ<C7B3>.wav', 0, SND_FILENAME or SND_ASYNC);
|
|||
|
|
//ZIGY.Text:=Trim(KHGY.Text);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.XSKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
var
|
|||
|
|
FReal:Double;
|
|||
|
|
FXS:String;
|
|||
|
|
begin
|
|||
|
|
if Key=#13 then
|
|||
|
|
begin
|
|||
|
|
if Order_Sub.IsEmpty then Exit;
|
|||
|
|
if Trim(BZ.Text)='$' then
|
|||
|
|
begin
|
|||
|
|
if Trim(HuiLv.Text)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>ʲ<EFBFBD><CAB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(HuiLv.Text,FReal)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>ʷǷ<CAB7><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
FXS:=Trim(XS.Text);
|
|||
|
|
if Trim(FXS)='' then
|
|||
|
|
begin
|
|||
|
|
FXS:='1';
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(FXS,FReal)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('ϵ<><CFB5><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>е<EFBFBD>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('XS').Value:=FXS;
|
|||
|
|
if Trim(Order_Sub.fieldbyname('ZICost').AsString)<>'' then
|
|||
|
|
begin
|
|||
|
|
if Trim(BZ.Text)='$' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJia').Value:=SSWR(Order_Sub.fieldbyname('ZICost').Value*StrtoFloat(FXS)/StrtoFloat(HuiLv.Text));
|
|||
|
|
FieldByName('HeSuanStatus').Value:='<27>Ѻ<EFBFBD><D1BA><EFBFBD>';
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJia').Value:=SSWR(Order_Sub.fieldbyname('ZICost').Value*StrtoFloat(FXS));
|
|||
|
|
FieldByName('HeSuanStatus').Value:='<27>Ѻ<EFBFBD><D1BA><EFBFBD>';
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('HeSuanStatus').Value:=Null;
|
|||
|
|
end;
|
|||
|
|
Post;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.v1ZICostPropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalue,FXS,FHuiLv,FZiCost,FName:String;
|
|||
|
|
Freal:Double;
|
|||
|
|
begin
|
|||
|
|
mvalue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
FName:=Tv1.Controller.FocusedColumn.DataBinding.FilterFieldName;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
if Trim(mvalue)='' then
|
|||
|
|
begin
|
|||
|
|
if FName='XS' then
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName(FName).Value:=1;
|
|||
|
|
Post;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName(FName).Value:=Null;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName(FName).Value:=mvalue;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
FHuiLv:=HuiLv.Text;
|
|||
|
|
FXS:=Trim(Order_Sub.fieldbyname('XS').AsString);
|
|||
|
|
if FXS='' then
|
|||
|
|
begin
|
|||
|
|
if Trim(XS.Text)<>'' then
|
|||
|
|
begin
|
|||
|
|
FXS:=XS.Text;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FXS:='1';
|
|||
|
|
end;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('XS').Value:=FXS;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
FZiCost:=Trim(Order_Sub.fieldbyname('ZiCost').AsString);
|
|||
|
|
if Trim(FZiCost)='' then
|
|||
|
|
begin
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('BaoJia').Value:=null;
|
|||
|
|
FieldByName('HeSuanStatus').Value:=Null;
|
|||
|
|
post;
|
|||
|
|
end;
|
|||
|
|
Exit;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
if Trim(BZ.Text)='$' then
|
|||
|
|
begin
|
|||
|
|
if Trim(HuiLv.Text)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>ʲ<EFBFBD><CAB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(HuiLv.Text,FReal)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>ʷǷ<CAB7><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FHuiLv:='1';
|
|||
|
|
end;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('BaoJia').Value:=SSWR(StrtoFloat(FZiCost)*StrtoFloat(FXS)/StrtoFloat(FHuiLv));
|
|||
|
|
FieldByName('HeSuanStatus').Value:='<27>Ѻ<EFBFBD><D1BA><EFBFBD>';
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.HuiLvKeyPress(Sender: TObject; var Key: Char);
|
|||
|
|
var
|
|||
|
|
FReal:Double;
|
|||
|
|
FXS:String;
|
|||
|
|
begin
|
|||
|
|
if Key=#13 then
|
|||
|
|
begin
|
|||
|
|
if Order_Sub.IsEmpty then Exit;
|
|||
|
|
if Trim(BZ.Text)='$' then
|
|||
|
|
begin
|
|||
|
|
if Trim(HuiLv.Text)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>ʲ<EFBFBD><CAB2><EFBFBD>Ϊ<EFBFBD><CEAA>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(HuiLv.Text,FReal)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>ʷǷ<CAB7><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
FXS:=Trim(XS.Text);
|
|||
|
|
if Trim(FXS)='' then
|
|||
|
|
begin
|
|||
|
|
FXS:='1';
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(FXS,FReal)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('ϵ<><CFB5><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD>»<EFBFBD><C2BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
if Trim(Order_Sub.fieldbyname('ZICost').AsString)<>'' then
|
|||
|
|
begin
|
|||
|
|
if Trim(BZ.Text)='$' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJia').Value:=SSWR(Order_Sub.fieldbyname('ZICost').Value*StrtoFloat(FXS)/StrtoFloat(HuiLv.Text));
|
|||
|
|
FieldByName('HeSuanStatus').Value:='<27>Ѻ<EFBFBD><D1BA><EFBFBD>';
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJia').Value:=SSWR(Order_Sub.fieldbyname('ZICost').Value*StrtoFloat(FXS));
|
|||
|
|
FieldByName('HeSuanStatus').Value:='<27>Ѻ<EFBFBD><D1BA><EFBFBD>';
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('HeSuanStatus').Value:=Null;
|
|||
|
|
end;
|
|||
|
|
Post;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.BZChange(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FReal:Double;
|
|||
|
|
FXS:String;
|
|||
|
|
begin
|
|||
|
|
//if Key=#13 then
|
|||
|
|
begin
|
|||
|
|
if Order_Sub.IsEmpty then Exit;
|
|||
|
|
if Trim(BZ.Text)='$' then
|
|||
|
|
begin
|
|||
|
|
if Trim(HuiLv.Text)='' then Exit;
|
|||
|
|
if TryStrToFloat(HuiLv.Text,FReal)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('<27><><EFBFBD>ʷǷ<CAB7><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
FXS:=Trim(XS.Text);
|
|||
|
|
if Trim(FXS)='' then
|
|||
|
|
begin
|
|||
|
|
FXS:='1';
|
|||
|
|
end;
|
|||
|
|
if TryStrToFloat(FXS,FReal)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('ϵ<><CFB5><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
if Trim(Order_Sub.fieldbyname('ZICost').AsString)<>'' then
|
|||
|
|
begin
|
|||
|
|
if Trim(BZ.Text)='$' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJia').Value:=SSWR(Order_Sub.fieldbyname('ZICost').Value*StrtoFloat(FXS)/StrtoFloat(HuiLv.Text));
|
|||
|
|
FieldByName('HeSuanStatus').Value:='<27>Ѻ<EFBFBD><D1BA><EFBFBD>';
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJia').Value:=SSWR(Order_Sub.fieldbyname('ZICost').Value*StrtoFloat(FXS));
|
|||
|
|
FieldByName('HeSuanStatus').Value:='<27>Ѻ<EFBFBD><D1BA><EFBFBD>';
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('HeSuanStatus').Value:=Null;
|
|||
|
|
end;
|
|||
|
|
Post;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.YWYBtnClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from KH_Main where isnull(KHNameJC,'''')='''+Trim(KHName.Text)+'''');
|
|||
|
|
sql.add(' and isnull(KHFlag,'''')='''+Trim('KH')+''' and isnull(Valid,'''')=''Y'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty=False then
|
|||
|
|
begin
|
|||
|
|
if Trim(canshu2)<>'<27><>Ȩ<EFBFBD><C8A8>' then
|
|||
|
|
begin
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
frmInfoBtn:=TfrmInfoBtn.Create(Application);
|
|||
|
|
with frmInfoBtn do
|
|||
|
|
begin
|
|||
|
|
FSql:='select XSInfo=UserName from SY_User where USERID<>''ADMIN'' ';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
YWY.Text:=Trim(FXSInfo);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmInfoBtn.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.KHNameBtnClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
try
|
|||
|
|
frmKHListSelJJ:=TfrmKHListSelJJ.Create(Application);
|
|||
|
|
with frmKHListSelJJ do
|
|||
|
|
begin
|
|||
|
|
frmKHListSelJJ.canshu2:=Trim(Self.canshu2);
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
Self.KHName.Text:=Trim(frmKHListSelJJ.CDS_HZ.fieldbyname('KHNameJC').AsString);
|
|||
|
|
Self.KHName.TxtCode:=Trim(frmKHListSelJJ.CDS_HZ.fieldbyname('KHNo').AsString);
|
|||
|
|
Self.GuoJia.Text:=Trim(frmKHListSelJJ.CDS_HZ.fieldbyname('KHQuYu').AsString);
|
|||
|
|
Self.YWY.Text:=Trim(frmKHListSelJJ.CDS_HZ.fieldbyname('YWY').AsString);
|
|||
|
|
Self.LiDan.Text:=Trim(frmKHListSelJJ.CDS_HZ.fieldbyname('LiDan').AsString);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmKHListSelJJ.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.Tv1MouseDown(Sender: TObject; Button: TMouseButton;
|
|||
|
|
Shift: TShiftState; X, Y: Integer);
|
|||
|
|
begin
|
|||
|
|
if Order_Sub.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
KHGY.Text:='';
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
KHGY.Text:=Order_Sub.fieldbyname('ZIGY').AsString;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.KHGYChange(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_Sub.IsEmpty then Exit;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('ZIGY').Value:=KHGY.Text;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.N1Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
SelOKNo(Order_Sub,True);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.N2Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
SelOKNo(Order_Sub,False);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.N3Click(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>','<27><>ʾ',32+4)<>IDYES then Exit;
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_KH_DJ_CP where ZCID='''+Trim(Order_Sub.fieldbyname('ZCID').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
Order_Sub.Delete;
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
ADOCmd.Connection.BeginTrans;
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
//First;
|
|||
|
|
// while Order_Main.Locate('SSel',True,[]) do
|
|||
|
|
begin
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add(' UPdate ZH_KH_DJ_CP Set DelTime=getdate(),DelerCode='''+Trim(DCode)+''',Deler='''+Trim(DName)+''', Valid=''N'' ');
|
|||
|
|
sql.Add(' where ZCID='''+Trim(Order_Sub.fieldbyname('ZCID').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_CP_Info_KC Set GGQty=1 ');
|
|||
|
|
sql.Add(' where DYID='''+Trim(Order_Sub.fieldbyname('DYID').AsString)+''' and isnull(KWID,'''')<>'''' ');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_KH_DJ Set DJYang=(select Count(*) from ZH_KH_DJ_CP A where A.ZDID=ZH_KH_DJ.ZDID and A.LeiBie=''<27>Ǽ<EFBFBD><C7BC><EFBFBD>'' and A.Valid=''Y'' )');
|
|||
|
|
sql.Add(',NaYang=(select Count(*) from ZH_KH_DJ_CP A where A.ZDID=ZH_KH_DJ.ZDID and A.LeiBie=''<27><><EFBFBD><EFBFBD>'' and A.Valid=''Y'' )');
|
|||
|
|
sql.Add(' where ZDID='''+Trim(Order_Sub.fieldbyname('ZDID').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_KH_DJ Set XunYang=(select Count(*) from ZH_KH_DJ_CP A where A.ZDID=ZH_KH_DJ.ZDID and A.Valid=''Y'' )');
|
|||
|
|
sql.Add(' where ZDID='''+Trim(Order_Sub.fieldbyname('ZDID').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
with ADOCmd do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('Update ZH_CP_Info Set KHNameHZ=dbo.F_Get_HZStr(ZIID,''KHNaYang'')');
|
|||
|
|
sql.Add(' where ZIID='''+Trim(Order_Sub.fieldbyname('ZDID').AsString)+'''');
|
|||
|
|
ExecSQL;
|
|||
|
|
end;
|
|||
|
|
//Order_Sub.Delete;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
ADOCmd.Connection.CommitTrans;
|
|||
|
|
Order_Sub.Delete;
|
|||
|
|
except
|
|||
|
|
ADOCmd.Connection.RollbackTrans;
|
|||
|
|
Application.MessageBox('<27><><EFBFBD><EFBFBD>ɾ<EFBFBD><C9BE><EFBFBD>쳣<EFBFBD><ECB3A3>','<27><>ʾ',0);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.TBPrtBJClick(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
fPrintFile,Txt,fImagePath,maxno:string;
|
|||
|
|
i,j:Integer;
|
|||
|
|
Moudle: THandle;
|
|||
|
|
Makebar:TMakebar;
|
|||
|
|
Mixtext:TMixtext;
|
|||
|
|
begin
|
|||
|
|
if Trim(FMainId)='' then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while not Eof do
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_KH_DJ_CP where ZCID='''+Trim(Order_Sub.fieldbyname('ZCID').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<>б<EFBFBD><D0B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD><DDA3><EFBFBD><EFBFBD>ܴ<EFBFBD>ӡ!','<27><>ʾ',0);
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
Next;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
fPrintFile:= ExtractFilePath(Application.ExeName) + 'Report\չ<><D5B9><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ǩBJ85.rmf';
|
|||
|
|
if FileExists(fPrintFile)=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>'+ExtractFilePath(Application.ExeName)+'Report\չ<><D5B9><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7>ǩBJ85.rmf'),'<27><>ʾ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
if Order_Sub.Locate('SSel',True,[])=False then
|
|||
|
|
begin
|
|||
|
|
Application.MessageBox('û<><C3BB>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!','<27><>ʾ',0);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.DisableControls;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
First;
|
|||
|
|
while Locate('SSel',True,[]) do
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
SQL.Clear;
|
|||
|
|
sql.Add(' select A.* ');
|
|||
|
|
sql.Add(' from ZH_KH_DJ_CP A');
|
|||
|
|
sql.Add(' where A.ZCID='''+Trim(Order_Sub.fieldbyname('ZCID').AsString)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
SCreateCDS20(ADOTemp,CDS_PRT);
|
|||
|
|
SInitCDSData20(ADOTemp,CDS_PRT);
|
|||
|
|
try
|
|||
|
|
Moudle:=LoadLibrary('MakeQRBarcode.dll');
|
|||
|
|
@Makebar:=GetProcAddress(Moudle,'Make');
|
|||
|
|
@Mixtext:=GetProcAddress(Moudle,'MixText');
|
|||
|
|
Txt:=Trim(CDS_PRT.fieldbyname('DYID').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><CEAC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>','<27><>ʾ<EFBFBD><CABE>Ϣ',MB_ICONERROR);
|
|||
|
|
exit;
|
|||
|
|
end;
|
|||
|
|
RMVariables['QRBARCODE']:=fImagePath;
|
|||
|
|
RM1.LoadFromFile(fPrintFile);
|
|||
|
|
//RM1.ShowReport;
|
|||
|
|
RM1.PrintReport;
|
|||
|
|
Edit;
|
|||
|
|
FieldByName('SSel').Value:=False;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
Order_Sub.EnableControls;
|
|||
|
|
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.LiDanBtnClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from KH_Main where isnull(KHNameJC,'''')='''+Trim(KHName.Text)+'''');
|
|||
|
|
sql.add(' and isnull(KHFlag,'''')='''+Trim('KH')+''' and isnull(Valid,'''')=''Y'' ');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
if ADOTemp.IsEmpty=False then
|
|||
|
|
begin
|
|||
|
|
if Trim(canshu2)<>'<27><>Ȩ<EFBFBD><C8A8>' then
|
|||
|
|
begin
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
try
|
|||
|
|
frmInfoBtn:=TfrmInfoBtn.Create(Application);
|
|||
|
|
with frmInfoBtn do
|
|||
|
|
begin
|
|||
|
|
FSql:='select XSInfo=UserName from SY_User where USERID<>''ADMIN'' ';
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
LiDan.Text:=Trim(FXSInfo);
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmInfoBtn.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.v1Column5PropertiesEditValueChanged(
|
|||
|
|
Sender: TObject);
|
|||
|
|
var
|
|||
|
|
mvalue:String;
|
|||
|
|
begin
|
|||
|
|
mvalue:=TcxTextEdit(Sender).EditingText;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
Edit;
|
|||
|
|
if Trim(mvalue)='' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJiaYW').Value:=Null;
|
|||
|
|
if Trim(fieldbyname('HeSuanStatus').AsString)='' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJia').Value:=Null;
|
|||
|
|
end;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJiaYW').Value:=mvalue;
|
|||
|
|
if Trim(fieldbyname('BaoJia').AsString)='' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJia').Value:=mvalue;
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
if Trim(fieldbyname('HeSuanStatus').AsString)='' then
|
|||
|
|
begin
|
|||
|
|
FieldByName('BaoJia').Value:=mvalue;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.v1BaoJiaCustomDrawCell(
|
|||
|
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
|||
|
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
var
|
|||
|
|
id,id10:Integer;
|
|||
|
|
begin
|
|||
|
|
Id:=TV1.GetColumnByFieldName('HeSuanStatus').Index;
|
|||
|
|
Id10:=TV1.GetColumnByFieldName('BaoJia').Index;
|
|||
|
|
if AViewInfo.GridRecord.Values[id]=null then
|
|||
|
|
begin
|
|||
|
|
if AViewInfo.GridRecord.Values[id10]<>null then
|
|||
|
|
begin
|
|||
|
|
if AViewInfo.GridRecord.Values[id10]<>0 then
|
|||
|
|
begin
|
|||
|
|
ACanvas.Brush.Color:=clRed;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.v1Column3CustomDrawCell(
|
|||
|
|
Sender: TcxCustomGridTableView; ACanvas: TcxCanvas;
|
|||
|
|
AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
|||
|
|
var
|
|||
|
|
id:Integer;
|
|||
|
|
begin
|
|||
|
|
Id:=TV1.GetColumnByFieldName('LeiBie').Index;//;-TV1.GroupedItemCount;
|
|||
|
|
if Trim(AViewInfo.GridRecord.Values[id])='<27><><EFBFBD>ߵ<EFBFBD><DFB5><EFBFBD>' then
|
|||
|
|
begin
|
|||
|
|
ACanvas.Brush.Color:=clSkyBlue;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.Tv1DblClick(Sender: TObject);
|
|||
|
|
begin
|
|||
|
|
if Order_Sub.IsEmpty then Exit;
|
|||
|
|
try
|
|||
|
|
frmZHCPInPut:=TfrmZHCPInPut.Create(Application);
|
|||
|
|
with frmZHCPInPut do
|
|||
|
|
begin
|
|||
|
|
PState:=1;
|
|||
|
|
FMainId:=Trim(Order_Sub.fieldbyname('ZIID').AsString);
|
|||
|
|
TBSave.Visible:=False;
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
//InitGrid();
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
finally
|
|||
|
|
frmZHCPInPut.Free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfrmZHDJInPut.Button1Click(Sender: TObject);
|
|||
|
|
var
|
|||
|
|
FZIID,FLeiBie,FZIIDYS,fsj:String;
|
|||
|
|
begin
|
|||
|
|
frmZHCPList_BJCX:=TfrmZHCPList_BJCX.create(self);
|
|||
|
|
with frmZHCPList_BJCX do
|
|||
|
|
begin
|
|||
|
|
if ShowModal=1 then
|
|||
|
|
begin
|
|||
|
|
FZIID:=Trim(Order_Main.fieldbyname('ZIID').AsString);
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select * from ZH_CP_Info where ZIID='''+Trim(FZIID)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
FZIIDYS:=Trim(ADOTemp.fieldbyname('ZIIDYS').AsString);
|
|||
|
|
if Order_Sub.IsEmpty then
|
|||
|
|
begin
|
|||
|
|
FLeiBie:='<27>Ǽ<EFBFBD><C7BC><EFBFBD>';
|
|||
|
|
end else
|
|||
|
|
begin
|
|||
|
|
FLeiBie:=Trim(Order_Sub.fieldbyname('LeiBie').AsString);
|
|||
|
|
end;
|
|||
|
|
with ADOTemp do
|
|||
|
|
begin
|
|||
|
|
Close;
|
|||
|
|
sql.Clear;
|
|||
|
|
sql.Add('select A.*,ZIGYYS=B.ZIGY ');
|
|||
|
|
sql.Add(' ,ImageFileTP=(select ImageFile from Image_Info B inner join Image_File C on B.IMID=C.IMID ');
|
|||
|
|
sql.Add(' where B.WBID=A.ZIID and B.IMNO=''ͼƬ'' and B.Valid=''Y'' and C.Valid=''Y'' and C.IFType=''С'' )');
|
|||
|
|
sql.Add(',GS=(select Sum(GGQty) from ZH_CP_Info_KC KC where KC.ZIID=A.ZIID )');
|
|||
|
|
sql.Add(',DYID=(select Top 1 DYID from ZH_CP_Info_KC KC where KC.ZIID=A.ZIID )');
|
|||
|
|
sql.Add(' from ZH_CP_Info A ');
|
|||
|
|
sql.Add(' inner join ZH_CP_Info B on A.ZIIDYS=B.ZIID ');
|
|||
|
|
sql.Add(' where A.ZIID='''+Trim(FZIID)+'''');
|
|||
|
|
Open;
|
|||
|
|
end;
|
|||
|
|
with Order_Sub do
|
|||
|
|
begin
|
|||
|
|
if Locate('ZIID',Trim(FZIID),[])=True then
|
|||
|
|
begin
|
|||
|
|
DYID.Text:='';
|
|||
|
|
DYID.Hint:='';
|
|||
|
|
application.MessageBox('<27>ѵǼ<D1B5>,<2C><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8>Ǽ<EFBFBD>','<27><>ʾ');
|
|||
|
|
Exit;
|
|||
|
|
end;
|
|||
|
|
Append;
|
|||
|
|
FieldByName('DYID').Value:=Trim(ADOTemp.fieldbyname('DYID').Value);
|
|||
|
|
FieldByName('ZIID').Value:=Trim(FZIID);
|
|||
|
|
FieldByName('ZIIDYS').Value:=Trim(FZIIDYS);
|
|||
|
|
FieldByName('ZIName').Value:=ADOTemp.fieldbyname('ZIName').Value;
|
|||
|
|
FieldByName('ZIMF').Value:=ADOTemp.fieldbyname('ZIMF').Value;
|
|||
|
|
FieldByName('ZIKZ').Value:=ADOTemp.fieldbyname('ZIKZ').Value;
|
|||
|
|
FieldByName('ZICF').Value:=ADOTemp.fieldbyname('ZICF').Value;
|
|||
|
|
FieldByName('ZIGY').Value:=ADOTemp.fieldbyname('ZIGY').Value;
|
|||
|
|
FieldByName('GS').Value:=ADOTemp.fieldbyname('GS').Value;
|
|||
|
|
FieldByName('ZICost').Value:=ADOTemp.fieldbyname('ZICost').Value;
|
|||
|
|
FieldByName('ImageFileTP').Value:=ADOTemp.fieldbyname('ImageFileTP').Value;
|
|||
|
|
FieldByName('ZIGYYS').Value:=ADOTemp.fieldbyname('ZIGY').Value;
|
|||
|
|
FieldByName('LeiBie').Value:=Trim(FLeiBie);
|
|||
|
|
FieldByName('ZICost').Value:=ADOTemp.fieldbyname('ZICost').Value;
|
|||
|
|
Post;
|
|||
|
|
end;
|
|||
|
|
KHGY.Text:=Trim(ADOTemp.fieldbyname('ZIGY').AsString);
|
|||
|
|
end;
|
|||
|
|
free;
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|