960 lines
26 KiB
ObjectPascal
960 lines
26 KiB
ObjectPascal
unit U_JTSJY;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, StdCtrls, ExtCtrls, ComCtrls, ToolWin, DB, ADODB, Buttons, cxStyles,
|
||
cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, cxDBData,
|
||
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
||
cxClasses, cxControls, cxGridCustomView, cxGrid, DBClient, RM_Dataset,
|
||
RM_System, RM_Common, RM_Class, RM_GridReport, IniFiles, cxLookAndFeels,
|
||
cxLookAndFeelPainters, cxNavigator, dxSkinsCore, dxSkinBlack, dxSkinBlue,
|
||
dxSkinBlueprint, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
|
||
dxSkinDarkSide, dxSkinDevExpressDarkStyle, dxSkinDevExpressStyle,
|
||
dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast, dxSkiniMaginary,
|
||
dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,
|
||
dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
|
||
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
|
||
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
|
||
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinPumpkin,
|
||
dxSkinSeven, dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus,
|
||
dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
|
||
dxSkinTheAsphaltWorld, dxSkinsDefaultPainters, dxSkinValentine,
|
||
dxSkinVS2010, dxSkinWhiteprint, dxSkinXmas2008Blue, dxSkinscxPCPainter;
|
||
|
||
type
|
||
TfrmJTSJY = class(TForm)
|
||
CPInfo: TRichEdit;
|
||
ADOQueryTemp: TADOQuery;
|
||
Panel3: TPanel;
|
||
Panel4: TPanel;
|
||
Panel2: TPanel;
|
||
SQty: TEdit;
|
||
Label4: TLabel;
|
||
Button3: TButton;
|
||
Panel8: TPanel;
|
||
Panel9: TPanel;
|
||
Label1: TLabel;
|
||
ZG1: TEdit;
|
||
ZG2: TEdit;
|
||
Panel6: TPanel;
|
||
btnSampleSel: TButton;
|
||
Button1: TButton;
|
||
Panel10: TPanel;
|
||
cxGrid3: TcxGrid;
|
||
Tv3: TcxGridDBTableView;
|
||
cxGridDBColumn1: TcxGridDBColumn;
|
||
v3Column1: TcxGridDBColumn;
|
||
v3Column2: TcxGridDBColumn;
|
||
cxGridLevel2: TcxGridLevel;
|
||
Panel7: TPanel;
|
||
SpeedButton1: TSpeedButton;
|
||
SpeedButton2: TSpeedButton;
|
||
SpeedButton3: TSpeedButton;
|
||
SpeedButton4: TSpeedButton;
|
||
SpeedButton5: TSpeedButton;
|
||
SpeedButton6: TSpeedButton;
|
||
SpeedButton7: TSpeedButton;
|
||
SpeedButton8: TSpeedButton;
|
||
SpeedButton9: TSpeedButton;
|
||
SpeedButton10: TSpeedButton;
|
||
SpeedButton11: TSpeedButton;
|
||
SpeedButton12: TSpeedButton;
|
||
v3Column4: TcxGridDBColumn;
|
||
ADOCmd: TADOQuery;
|
||
ClientDataSet1: TClientDataSet;
|
||
DataSource1: TDataSource;
|
||
ZG5: TEdit;
|
||
ZG5C1: TLabel;
|
||
ZG5C2: TLabel;
|
||
v3Column3: TcxGridDBColumn;
|
||
RM2: TRMGridReport;
|
||
RMDB_Main: TRMDBDataSet;
|
||
ADOQueryPrint: TADOQuery;
|
||
Panel1: TPanel;
|
||
Label14: TLabel;
|
||
ComboBox1: TComboBox;
|
||
Edit13: TEdit;
|
||
Label15: TLabel;
|
||
Button2: TButton;
|
||
Panel5: TPanel;
|
||
Label2: TLabel;
|
||
MachNO: TComboBox;
|
||
Tv3Column1: TcxGridDBColumn;
|
||
Label7: TLabel;
|
||
Label9: TLabel;
|
||
ZGQty: TEdit;
|
||
Label3: TLabel;
|
||
Y_Type: TComboBox;
|
||
ZG4: TEdit;
|
||
ZG4C2: TLabel;
|
||
ZG4C1: TLabel;
|
||
ZG6C2: TLabel;
|
||
ZG6C1: TLabel;
|
||
ZG3: TEdit;
|
||
ZG6: TEdit;
|
||
JTNote: TEdit;
|
||
Label5: TLabel;
|
||
ZG1C1: TLabel;
|
||
ZG1C2: TLabel;
|
||
ZG2C1: TLabel;
|
||
ZG2C2: TLabel;
|
||
ZG3C1: TLabel;
|
||
ZG3C2: TLabel;
|
||
ClientDataSetYS: TClientDataSet;
|
||
procedure FormDestroy(Sender: TObject);
|
||
procedure btnSampleSelClick(Sender: TObject);
|
||
procedure TBCloseClick(Sender: TObject);
|
||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure Button1Click(Sender: TObject);
|
||
procedure ZG1Click(Sender: TObject);
|
||
procedure SQtyClick(Sender: TObject);
|
||
procedure SpeedButton1Click(Sender: TObject);
|
||
procedure SpeedButton12Click(Sender: TObject);
|
||
procedure Button3Click(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
procedure Edit13Click(Sender: TObject);
|
||
procedure Button2Click(Sender: TObject);
|
||
procedure ZGQtyClick(Sender: TObject);
|
||
procedure cxGridDBColumn1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
private
|
||
ZGKS, SJKS, ZGZL, ZXZL, FactoryName, Y_CodeName, Y_Spec, Y_CodeNameCP, BatchNo, FFFMJID, DZCDYDllName, FTSStr,FZGColor: string;
|
||
FCK, OKInt: Integer;
|
||
function SaveData(DataType: string): Boolean;
|
||
procedure InitGrid();
|
||
procedure InitJP(FName: string);
|
||
procedure PrtData(FMJID: string);
|
||
procedure OpenCom(DllName: string);
|
||
procedure CloseCom(DllName: string);
|
||
procedure On1201(var Message: Tmessage); message 1201;
|
||
procedure TSInfo(TSStr: string);
|
||
{ Private declarations }
|
||
public
|
||
{ Public declarations }
|
||
end;
|
||
|
||
var
|
||
frmJTSJY: TfrmJTSJY;
|
||
newh, newh1: hwnd;
|
||
IniFile: TIniFile;
|
||
|
||
implementation
|
||
|
||
uses
|
||
U_DataLink, U_RTFun, U_Fun, U_CPSel, U_iniParam, U_SCPerson, U_TSOKNO;
|
||
|
||
{$R *.dfm}
|
||
|
||
procedure TfrmJTSJY.FormDestroy(Sender: TObject);
|
||
begin
|
||
frmJTSJY := nil;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.On1201(var Message: Tmessage);
|
||
var
|
||
i1, i2: integer;
|
||
FMJMaoZ: Double;
|
||
begin
|
||
i1 := Message.WParam;
|
||
i2 := Message.LParam;
|
||
FMJMaoZ := RoundFloat(i1 * i2 / 100000, 2);
|
||
SQty.Text := floattostr(FMJMaoZ);
|
||
end;
|
||
|
||
procedure TfrmJTSJY.btnSampleSelClick(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
ZGName,ZGColor1,ZGColor2:string;
|
||
begin
|
||
FZGColor:='';
|
||
try
|
||
frmCPSel := TfrmCPSel.Create(Self);
|
||
with frmCPSel do
|
||
begin
|
||
if ShowModal = 1 then
|
||
begin
|
||
CPInfo.Hint := FHMainId;
|
||
end;
|
||
end;
|
||
finally
|
||
frmCPSel.Close;
|
||
end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from YT_Plan_Main where Mainid=''' + Trim(CPInfo.Hint) + '''');
|
||
Open;
|
||
end;
|
||
with ADOQueryTemp do
|
||
begin
|
||
Y_CodeName := Trim(fieldbyname('Y_CodeName').AsString);
|
||
Y_Spec := Trim(fieldbyname('Y_Spec').AsString);
|
||
BatchNo := Trim(fieldbyname('BatchNo').AsString);
|
||
Y_CodeNameCP := Trim(fieldbyname('Y_CodeNameCP').AsString);
|
||
ZGKS := Trim(fieldbyname('ZGKS').AsString);
|
||
SJKS := Trim(fieldbyname('SJKS').AsString);
|
||
ZGZL := Trim(fieldbyname('ZGZL').AsString);
|
||
ZXZL := Trim(fieldbyname('ZXZL').AsString);
|
||
FactoryName := Trim(fieldbyname('FactoryName').AsString);
|
||
end;
|
||
ADOQueryTemp.Close;
|
||
CPInfo.Text := ' ' + #13 + 'ԭ˿Ʒ<CBBF><C6B7><EFBFBD><EFBFBD>' + Trim(Y_CodeName) + #13 + #13 + '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + Trim(Y_Spec) + #13 + #13 + '<27><><EFBFBD>ţ<EFBFBD>' + Trim(BatchNo) + #13 + #13 + '<27><>ƷƷ<C6B7><C6B7><EFBFBD><EFBFBD>' + Trim(Y_CodeNameCP) + #13 + #13 + 'ֽ<><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + Trim(ZGZL) + #13 + #13 + 'ֽ<><D6BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>' + Trim(ZXZL) + #13 + #13 + 'ֽ<>ܿ<EFBFBD><DCBF><EFBFBD><EFBFBD><EFBFBD>' + Trim(ZGKS); //+ #13 + #13
|
||
//+'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'+Trim(SJKS);
|
||
|
||
ZGQty.Text := ZGKS;
|
||
with Panel8 do
|
||
begin
|
||
for i := 0 to Panel8.ControlCount - 1 do
|
||
begin
|
||
if Controls[i].Tag = 2 then
|
||
begin
|
||
Controls[i].Visible := False;
|
||
end;
|
||
if Controls[i] is TEdit then
|
||
begin
|
||
TEdit(Controls[i]).Text := '';
|
||
end;
|
||
end;
|
||
end; //1122
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from YT_Plan_Rule A inner join ZGColor B on A.RName=B.ColorName ');
|
||
sql.Add(' where Mainid=''' + Trim(CPInfo.Hint) + ''' and RType=''<27><>ɫ'' and isnull(RName,'''')<>''''');
|
||
Open;
|
||
end;
|
||
i:=ADOQueryTemp.RecordCount;
|
||
SCreateCDS20(ADOQueryTemp,ClientDataSetYS);
|
||
SInitCDSData20(ADOQueryTemp,ClientDataSetYS);
|
||
with ClientDataSetYS do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
if FieldByName('Sindex').AsInteger=1 then
|
||
begin
|
||
ZG1.Visible:=True;ZG1C1.Visible:=True;ZG1C2.Visible:=True;
|
||
ZG1.Hint:=Trim(ClientDataSetYS.fieldbyname('RName').AsString);
|
||
if Trim(ZG1.Hint)<>'<27><><EFBFBD><EFBFBD>ɫ' then
|
||
begin
|
||
ZG1C1.Caption:='';
|
||
ZG1C1.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData1').AsString);
|
||
ZG1C2.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData2').AsString);
|
||
end else
|
||
begin
|
||
ZG1C1.Color:=clWindow;ZG1C2.Color:=clWindow;
|
||
ZG1C1.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';//ZG1C2.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';
|
||
end;
|
||
if i = 1 then
|
||
begin
|
||
ZG1.Text := '<27><>';
|
||
FZGColor:=ZG1.Hint;
|
||
end;
|
||
end else
|
||
if FieldByName('Sindex').AsInteger=2 then
|
||
begin
|
||
ZG2.Visible:=True;ZG2C1.Visible:=True;ZG2C2.Visible:=True;
|
||
ZG2.Hint:=Trim(ClientDataSetYS.fieldbyname('RName').AsString);
|
||
if Trim(ZG2.Hint)<>'<27><><EFBFBD><EFBFBD>ɫ' then
|
||
begin
|
||
ZG2C1.Caption:='';
|
||
ZG2C1.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData1').AsString);
|
||
ZG2C2.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData2').AsString);
|
||
end else
|
||
begin
|
||
ZG2C1.Color:=clWindow;ZG2C2.Color:=clWindow;
|
||
ZG2C1.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';//ZG2C2.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';
|
||
end;
|
||
end else
|
||
if FieldByName('Sindex').AsInteger=3 then
|
||
begin
|
||
|
||
ZG3.Visible:=True;ZG3C1.Visible:=True;ZG3C2.Visible:=True;
|
||
ZG3.Hint:=Trim(ClientDataSetYS.fieldbyname('RName').AsString);
|
||
if Trim(ZG3.Hint)<>'<27><><EFBFBD><EFBFBD>ɫ' then
|
||
begin
|
||
ZG3C1.Caption:='';
|
||
ZG3C1.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData1').AsString);
|
||
ZG3C2.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData2').AsString);
|
||
end else
|
||
begin
|
||
ZG3C1.Color:=clWindow;ZG3C2.Color:=clWindow;
|
||
ZG3C1.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';//ZG3C2.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';
|
||
end;
|
||
end else
|
||
if FieldByName('Sindex').AsInteger=4 then
|
||
begin
|
||
ZG4.Visible:=True;ZG4C1.Visible:=True;ZG4C2.Visible:=True;
|
||
ZG4.Hint:=Trim(ClientDataSetYS.fieldbyname('RName').AsString);
|
||
if Trim(ZG4.Hint)<>'<27><><EFBFBD><EFBFBD>ɫ' then
|
||
begin
|
||
ZG4C1.Caption:='';
|
||
ZG4C1.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData1').AsString);
|
||
ZG4C2.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData2').AsString);
|
||
end else
|
||
begin
|
||
ZG4C1.Color:=clWindow;ZG4C2.Color:=clWindow;
|
||
ZG4C1.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';//ZG4C2.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';
|
||
end;
|
||
end else
|
||
if FieldByName('Sindex').AsInteger=5 then
|
||
begin
|
||
ZG5.Visible:=True;ZG5C1.Visible:=True;ZG5C2.Visible:=True;
|
||
ZG5.Hint:=Trim(ClientDataSetYS.fieldbyname('RName').AsString);
|
||
if Trim(ZG5.Hint)<>'<27><><EFBFBD><EFBFBD>ɫ' then
|
||
begin
|
||
ZG5C1.Caption:='';
|
||
ZG5C1.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData1').AsString);
|
||
ZG5C2.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData2').AsString);
|
||
end else
|
||
begin
|
||
ZG5C1.Color:=clWindow;ZG5C2.Color:=clWindow;
|
||
ZG5C1.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';//ZG5C2.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';
|
||
end;
|
||
end else
|
||
if FieldByName('Sindex').AsInteger=6 then
|
||
begin
|
||
ZG6.Visible:=True;ZG6C1.Visible:=True;ZG6C2.Visible:=True;
|
||
ZG6.Hint:=Trim(ClientDataSetYS.fieldbyname('RName').AsString);
|
||
if Trim(ZG6.Hint)<>'<27><><EFBFBD><EFBFBD>ɫ' then
|
||
begin
|
||
ZG6C1.Caption:='';
|
||
ZG6C1.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData1').AsString);
|
||
ZG6C2.Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData2').AsString);
|
||
end else
|
||
begin
|
||
ZG6C1.Color:=clWindow;ZG6C2.Color:=clWindow;
|
||
ZG6C1.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';//ZG6C2.Caption:='<27><>'+#13+'<27><>'+#13+'ɫ';
|
||
end;
|
||
end;
|
||
Next;
|
||
end;
|
||
end;
|
||
{with ClientDataSetYS do
|
||
begin
|
||
First;
|
||
while not Eof do
|
||
begin
|
||
ZGName:='ZG'+Trim(ClientDataSetYS.fieldbyname('Sindex').AsString);
|
||
ZGColor1:=ZGName+'C1';ZGColor2:=ZGName+'C2';
|
||
TEdit(FindComponent('ZG1')).Visible:=True;
|
||
if FindComponent(ZGName) is TEdit then
|
||
begin
|
||
TEdit(FindComponent(Trim(ZGName))).Visible:=True;
|
||
TEdit(FindComponent(Trim(ZGName))).Hint:=Trim(ClientDataSetYS.fieldbyname('RName').AsString);
|
||
end;
|
||
|
||
if i = 1 then
|
||
begin
|
||
TEdit(FindComponent(Trim(ZGName))).Text := '<27><>';
|
||
end;
|
||
if Trim(ClientDataSetYS.fieldbyname('ColorData1').AsString)<>'<27><><EFBFBD><EFBFBD>ɫ' then
|
||
begin
|
||
TLabel(FindComponent(Trim(ZGColor1))).Visible:=True;
|
||
TLabel(FindComponent(Trim(ZGColor1))).Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData1').AsString);
|
||
end else
|
||
begin
|
||
TLabel(FindComponent(Trim(ZGColor1))).Color:=null;
|
||
TLabel(FindComponent(Trim(ZGColor1))).Caption:='<27><>'+#13+'<27><>'+#13+'ɫ'
|
||
end;
|
||
if Trim(ClientDataSetYS.fieldbyname('ColorData2').AsString)<>'<27><><EFBFBD><EFBFBD>ɫ' then
|
||
begin
|
||
TLabel(FindComponent(Trim(ZGColor2))).Visible:=True;
|
||
TLabel(FindComponent(Trim(ZGColor2))).Color:=StringToColor(ClientDataSetYS.fieldbyname('ColorData2').AsString);
|
||
end else
|
||
begin
|
||
TLabel(FindComponent(Trim(ZGColor2))).Color:=null;
|
||
TLabel(FindComponent(Trim(ZGColor2))).Caption:='<27><>'+#13+'<27><>'+#13+'ɫ'
|
||
end;
|
||
Next;
|
||
end;
|
||
end; }
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from YT_Plan_Rule where Mainid=''' + Trim(CPInfo.Hint) + ''' and RType=''<27><>̨'' and isnull(RName,'''')<>'''' ');
|
||
Open;
|
||
end;
|
||
i := ADOQueryTemp.RecordCount;
|
||
if i = 1 then
|
||
begin
|
||
MachNO.ItemIndex := MachNO.Items.IndexOf(ADOQueryTemp.fieldbyname('RName').AsString);
|
||
MachNO.Enabled := False;
|
||
end
|
||
else
|
||
begin
|
||
MachNO.Enabled := True;
|
||
MachNO.ItemIndex := -1;
|
||
end;
|
||
ADOQueryTemp.Close;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.TBCloseClick(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.FormClose(Sender: TObject; var Action: TCloseAction);
|
||
begin
|
||
if FCK = 9 then
|
||
begin
|
||
CloseCom(DZCDYDllName)
|
||
end;
|
||
Action := caFree;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.Button1Click(Sender: TObject);
|
||
begin
|
||
Close;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.ZG1Click(Sender: TObject);
|
||
var
|
||
Fint, i: Integer;
|
||
begin
|
||
TEdit(Sender).Text := '<27><>';
|
||
FZGColor:=TEdit(Sender).Hint;
|
||
Fint := TEdit(Sender).TabOrder;
|
||
for i := 0 to Panel8.ControlCount - 1 do
|
||
begin
|
||
with Panel8 do
|
||
begin
|
||
if Controls[i] is TEdit then
|
||
begin
|
||
if TEdit(Controls[i]).TabOrder <> Fint then
|
||
begin
|
||
TEdit(Controls[i]).Text := '';
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.SQtyClick(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
with Panel7 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.InitJP(FName: string);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
with Panel7 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := Trim(FName);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.SpeedButton1Click(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
begin
|
||
fsj := Trim(TSpeedButton(Sender).Hint);
|
||
if Trim(fsj) = '' then
|
||
Exit;
|
||
fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text);
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := fsj + Trim(TSpeedButton(Sender).Caption);
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll;
|
||
|
||
end;
|
||
|
||
procedure TfrmJTSJY.SpeedButton12Click(Sender: TObject);
|
||
var
|
||
fsj: string;
|
||
begin
|
||
fsj := Trim(TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text);
|
||
if Trim(fsj) = '' then
|
||
Exit;
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).Text := Copy(fsj, 1, Length(fsj) - 1);
|
||
TEdit(FindComponent(Trim(TSpeedButton(Sender).Hint))).SelectAll;
|
||
end;
|
||
|
||
function TfrmJTSJY.SaveData(DataType: string): Boolean;
|
||
var
|
||
maxno, FMJID: string;
|
||
begin
|
||
FMJID := '';
|
||
try
|
||
ADOCmd.Connection.BeginTrans;
|
||
///<2F><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
||
if GetLSNo(ADOCmd, maxno, 'T' + Trim(SCXFlag), 'JY_YT', 4, 1) = False then
|
||
begin
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ˮ<EFBFBD><CBAE><EFBFBD>쳣<EFBFBD><ECB3A3>', '<27><>ʾ', 0);
|
||
exit;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from JY_YT where JYId=''' + Trim(FMJID) + '''');
|
||
Open;
|
||
end;
|
||
with ADOCmd do
|
||
begin
|
||
Append;
|
||
FieldByName('JYID').Value := Trim(maxno);
|
||
FieldByName('FactoryName').value := FactoryName;
|
||
FieldByName('Y_CodeName').value := Trim(Y_CodeName);
|
||
FieldByName('Y_CodeNameCP').value := Trim(Y_CodeNameCP);
|
||
FieldByName('Y_Spec').value := Trim(Y_Spec);
|
||
FieldByName('BatchNo').value := Trim(BatchNo);
|
||
FieldByName('MachNO').value := Trim(MachNO.Text);
|
||
FieldByName('Y_Type').value := Trim(Y_Type.Text);
|
||
FieldByName('JTNote').value := Trim(JTNote.Text);
|
||
FieldByName('ZGColor').value :=Trim(FZGColor);
|
||
FieldByName('CRType').Value := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
FieldByName('Valie').Value := 'Y';
|
||
FieldByName('ZGZL').Value := StrToFloatdef(trim(ZGZL), 0);
|
||
FieldByName('ZGKS').Value := StrToFloatdef(trim(ZGQty.Text), 0);
|
||
FieldByName('ZXZL').Value := StrToFloatdef(trim(ZXZL), 0);
|
||
FieldByName('BZType').Value := '<27><>';
|
||
FieldByName('JYGW').Value := StrToFloatdef(trim(SQty.Text), 0);
|
||
if Trim(FMJID) = '' then
|
||
begin
|
||
FieldByName('Filler').Value := Trim(DName);
|
||
FieldByName('FillTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||
FieldByName('FillCode').Value := Trim(DCode);
|
||
end
|
||
else
|
||
begin
|
||
FieldByName('Editer').Value := Trim(DName);
|
||
FieldByName('EditCode').Value := Trim(DCode);
|
||
FieldByName('EditTime').Value := SGetServerDateTime(ADOQueryTemp);
|
||
end;
|
||
FieldByName('JTType').Value := Trim(SCXFlag);
|
||
Post;
|
||
end;
|
||
FMJID := trim(maxno);
|
||
FFFMJID := FMJID;
|
||
////////////////////////<2F><><EFBFBD>ء<EFBFBD><D8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⼰<EFBFBD><E2BCB0><EFBFBD><EFBFBD>/////////////////////////////////////
|
||
with ADOCmd do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('exec P_JY_Insert_JTS @JYID=''' + trim(FMJID) + '''');
|
||
execsql;
|
||
end;
|
||
////////////////////////<2F><><EFBFBD>ء<EFBFBD><D8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>⼰<EFBFBD><E2BCB0><EFBFBD><EFBFBD>/////////////////////////////////////
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
SQL.Add('select * from JY_YT where JYID=''' + Trim(maxno) + '''');
|
||
Open;
|
||
end;
|
||
with ClientDataSet1 do
|
||
begin
|
||
Append;
|
||
FieldByName('JYID').Value := Trim(maxno);
|
||
FieldByName('ZGKS').Value := trim(ZGQty.Text);
|
||
FieldByName('ZGColor').value :=FZGColor;
|
||
FieldByName('JYGW').Value := trim(SQty.Text);
|
||
FieldByName('MachNO').Value := trim(MachNO.Text);
|
||
FieldByName('JYNW').Value := ADOQueryTemp.fieldbyname('JYNW').Value;
|
||
Post;
|
||
end;
|
||
ADOCmd.Connection.CommitTrans;
|
||
Result := True;
|
||
except
|
||
Result := False;
|
||
ADOCmd.Connection.RollbackTrans;
|
||
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.PrtData(FMJID: string);
|
||
var
|
||
fPrintFile: string;
|
||
Txt, fImagePath: string;
|
||
Moudle: THandle;
|
||
Makebar: TMakebar;
|
||
Mixtext: TMixtext;
|
||
begin
|
||
ExportFtErpFile('<27>ӵ<EFBFBD>˿<EFBFBD><CBBF>ǩ.rmf', ADOQueryTemp);
|
||
fPrintFile := ExtractFilePath(Application.ExeName) + 'Report\<5C>ӵ<EFBFBD>˿<EFBFBD><CBBF>ǩ.rmf';
|
||
with ADOQueryPrint do
|
||
begin
|
||
Close;
|
||
SQL.Clear;
|
||
sql.Add(' EXEC P_JY_Print_YTLab ''' + Trim(FMJID) + '''');
|
||
Open;
|
||
end;
|
||
if ADOQueryPrint.IsEmpty then
|
||
begin
|
||
application.MessageBox('<27><>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>δ<EFBFBD>ҵ<EFBFBD><D2B5><EFBFBD>', '<27><>ʾ<EFBFBD><CABE>Ϣ', MB_ICONERROR);
|
||
exit;
|
||
end;
|
||
try
|
||
Moudle := LoadLibrary('MakeQRBarcode.dll');
|
||
@Makebar := GetProcAddress(Moudle, 'Make');
|
||
@Mixtext := GetProcAddress(Moudle, 'MixText');
|
||
Txt := Trim(ADOQueryPrint.fieldbyname('JYID').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;
|
||
if FileExists(fPrintFile) then
|
||
begin
|
||
RMVariables['QRBARCODE'] := fImagePath;
|
||
RM2.LoadFromFile(fPrintFile);
|
||
Rm2.DefaultCopies := strtointdef(trim(ComboBox1.Text), 1);
|
||
RM2.PrintReport;
|
||
end
|
||
else
|
||
begin
|
||
Application.MessageBox(PChar('û<><C3BB><EFBFBD><EFBFBD>' + fPrintFile), '<27><>ʾ', 0);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.Button3Click(Sender: TObject);
|
||
var
|
||
FReal: Double;
|
||
FStr: string;
|
||
begin
|
||
if Trim(CPInfo.Text) = '' then
|
||
begin
|
||
TSInfo('û<><C3BB>ѡ<EFBFBD><D1A1>Ʒ<EFBFBD><C6B7>!');
|
||
exit;
|
||
end; //1211
|
||
if Trim(FZGColor) = '' then
|
||
begin
|
||
TSInfo('û<><C3BB>ѡ<EFBFBD><D1A1>ֽ<EFBFBD><D6BD><EFBFBD><EFBFBD>ɫ!');
|
||
exit;
|
||
end;
|
||
if Trim(ZGQty.Text) = '' then
|
||
begin
|
||
InitJP('ZGQty');
|
||
ZGQty.SetFocus;
|
||
TSInfo('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!');
|
||
Exit;
|
||
end;
|
||
if TryStrToFloat(ZGQty.Text, FReal) = False then
|
||
begin
|
||
TSInfo('<27><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!');
|
||
Exit;
|
||
end;
|
||
if Trim(SQty.Text) = '' then
|
||
begin
|
||
InitJP('SQty');
|
||
SQty.SetFocus;
|
||
TSInfo('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!');
|
||
Exit;
|
||
end;
|
||
if TryStrToFloat(SQty.Text, FReal) = False then
|
||
begin
|
||
TSInfo('<27><><EFBFBD><EFBFBD><EFBFBD>Ƿ<EFBFBD><C7B7><EFBFBD><EFBFBD><EFBFBD>!');
|
||
Exit;
|
||
end;
|
||
FStr := '1';
|
||
if StrToFloat(SQty.Text) < 20 then
|
||
begin
|
||
FStr := '';
|
||
try
|
||
frmTSOKNO := TfrmTSOKNO.Create(Application);
|
||
with frmTSOKNO do
|
||
begin
|
||
TSStr := '<27><><EFBFBD><EFBFBD>С<EFBFBD><D0A1>20<32><30>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
OKNOFlag := 'ѡ<><D1A1>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
FStr := '1';
|
||
end;
|
||
end;
|
||
finally
|
||
frmTSOKNO.Free;
|
||
end;
|
||
end;
|
||
if StrToFloat(SQty.Text) > 45 then
|
||
begin
|
||
FStr := '';
|
||
try
|
||
frmTSOKNO := TfrmTSOKNO.Create(Application);
|
||
with frmTSOKNO do
|
||
begin
|
||
TSStr := '<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>45<34><35>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
OKNOFlag := 'ѡ<><D1A1>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
FStr := '1';
|
||
end;
|
||
end;
|
||
finally
|
||
frmTSOKNO.Free;
|
||
end;
|
||
end;
|
||
if StrToInt(ZGQty.Text) <> 6 then
|
||
begin
|
||
FStr := '';
|
||
try
|
||
frmTSOKNO := TfrmTSOKNO.Create(Application);
|
||
with frmTSOKNO do
|
||
begin
|
||
TSStr := 'ֽ<>ܿ<EFBFBD><DCBF><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>6<EFBFBD><36>ȷ<EFBFBD><C8B7>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>';
|
||
OKNOFlag := 'ѡ<><D1A1>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
FStr := '1';
|
||
end;
|
||
end;
|
||
finally
|
||
frmTSOKNO.Free;
|
||
end;
|
||
end;
|
||
if FStr = '1' then
|
||
begin
|
||
try
|
||
frmTSOKNO := TfrmTSOKNO.Create(Application);
|
||
with frmTSOKNO do
|
||
begin
|
||
TSStr := 'ȷ<><C8B7>Ҫ<EFBFBD><D2AA>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݴ<EFBFBD>ӡ<EFBFBD><D3A1><EFBFBD><EFBFBD><EFBFBD>ݽ<EFBFBD><DDBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ģ<DEB8>';
|
||
OKNOFlag := 'ѡ<><D1A1>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
if SaveData('<27><><EFBFBD><EFBFBD>') then
|
||
begin
|
||
PrtData(Trim(FFFMJID));
|
||
SQty.Text := '';
|
||
end;
|
||
end;
|
||
end;
|
||
finally
|
||
frmTSOKNO.Free;
|
||
end;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmJTSJY.TSInfo(TSStr: string);
|
||
var
|
||
TSStr10: string;
|
||
begin
|
||
FTSStr := TSStr;
|
||
try
|
||
frmTSOKNO := TfrmTSOKNO.Create(Application);
|
||
with frmTSOKNO do
|
||
begin
|
||
frmTSOKNO.TSStr := Self.FTSStr;
|
||
frmTSOKNO.OKNOFlag := '<27><>ʾ';
|
||
if ShowModal = 1 then
|
||
begin
|
||
|
||
end;
|
||
end;
|
||
finally
|
||
frmTSOKNO.Free;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.InitGrid();
|
||
begin
|
||
with ADOQueryTemp do
|
||
begin
|
||
Close;
|
||
sql.Clear;
|
||
sql.Add('select * from JY_YT where Convert(varchar(10),FillTime,120)=Convert(varchar(10),Getdate(),120)');
|
||
sql.Add(' and Filler=''' + Trim(DName) + ''' order by FillTime desc ');
|
||
Open;
|
||
end;
|
||
SCreateCDS20(ADOQueryTemp, ClientDataSet1);
|
||
SInitCDSData20(ADOQueryTemp, ClientDataSet1);
|
||
end;
|
||
|
||
procedure TfrmJTSJY.FormShow(Sender: TObject);
|
||
begin
|
||
try
|
||
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'FileKPZ.INI');
|
||
DZCDYDllName := IniFile.ReadString('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><><EFBFBD>ӳӵ<D3B3><D3B5><EFBFBD>Dll<6C>ļ<EFBFBD>', '');
|
||
finally
|
||
IniFile.Free;
|
||
end;
|
||
FZGColor:='';
|
||
InitGrid();
|
||
if DZCDYDllName <> '' then
|
||
begin
|
||
OpenCom(DZCDYDllName);
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.Edit13Click(Sender: TObject);
|
||
begin
|
||
if Trim(Edit13.Text) = '' then
|
||
begin
|
||
Edit13.Text := '<27><>';
|
||
OpenCom(DZCDYDllName);
|
||
end
|
||
else
|
||
begin
|
||
Edit13.Text := '';
|
||
if FCK = 9 then
|
||
CloseCom(DZCDYDllName)
|
||
else
|
||
begin
|
||
Exit;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.OpenCom(DllName: string);
|
||
type
|
||
TMyFunc = function(fhandle: hwnd; sCommName: PAnsiChar; IntTime: integer; IsMessage: integer): HWND; stdcall;
|
||
var
|
||
Tf: TMyFunc;
|
||
Tp: TFarProc;
|
||
Th: Thandle;
|
||
begin
|
||
Th := LoadLibrary(Pchar(trim(DllName)));
|
||
if Th > 0 then
|
||
begin
|
||
try
|
||
Tp := GetProcAddress(Th, 'CommOpen');
|
||
if Tp <> nil then
|
||
begin
|
||
Tf := TMyFunc(Tp);
|
||
newh := Tf(self.Handle, 'Comm1', 500, 1);
|
||
if newh < 1 then
|
||
begin
|
||
FCK := 1;
|
||
showmessage('<27><><EFBFBD>ڴ<EFBFBD><DAB4><EFBFBD>ʧ<EFBFBD><CAA7>!');
|
||
Exit;
|
||
end
|
||
else
|
||
begin
|
||
FCK := 9;
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
end;
|
||
finally
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
application.MessageBox(Pchar('<27>Ҳ<EFBFBD><D2B2><EFBFBD> ' + trim(DllName) + '<27><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>'), '<27><>ʾ');
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.CloseCom(DllName: string);
|
||
type
|
||
TMyFunc = function(sCommName: PAnsiChar): HWND; stdcall;
|
||
var
|
||
Tf1: TMyFunc;
|
||
Tp1: TFarProc;
|
||
Th1: Thandle;
|
||
//newh1:hwnd;
|
||
begin
|
||
Th1 := LoadLibrary(Pchar(trim(DllName)));
|
||
if Th1 > 0 then
|
||
begin
|
||
try
|
||
Tp1 := GetProcAddress(Th1, 'CommClose');
|
||
if Tp1 <> nil then
|
||
begin
|
||
Tf1 := TMyFunc(Tp1);
|
||
newh1 := Tf1('Comm1');
|
||
end
|
||
else
|
||
begin
|
||
|
||
end;
|
||
finally
|
||
// FreeLibrary(Th1);
|
||
end;
|
||
end
|
||
else
|
||
begin
|
||
application.MessageBox(Pchar('<27>Ҳ<EFBFBD><D2B2><EFBFBD> ' + trim(DllName) + ' <20>ļ<EFBFBD><C4BC><EFBFBD>'), '<27><>ʾ');
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.Button2Click(Sender: TObject);
|
||
begin
|
||
if ClientDataSet1.IsEmpty then
|
||
Exit;
|
||
try
|
||
frmTSOKNO := TfrmTSOKNO.Create(Application);
|
||
with frmTSOKNO do
|
||
begin
|
||
TSStr := 'ȷ<><C8B7>Ҫ<EFBFBD>ش<EFBFBD><D8B4><EFBFBD>ǩ<EFBFBD><C7A9><EFBFBD><EFBFBD>';
|
||
OKNOFlag := 'ѡ<><D1A1>';
|
||
if ShowModal = 1 then
|
||
begin
|
||
Self.PrtData(Trim(ClientDataSet1.fieldbyname('JYId').AsString));
|
||
end;
|
||
end;
|
||
finally
|
||
frmTSOKNO.Free;
|
||
end;
|
||
|
||
end;
|
||
|
||
procedure TfrmJTSJY.ZGQtyClick(Sender: TObject);
|
||
var
|
||
i: Integer;
|
||
begin
|
||
with Panel7 do
|
||
begin
|
||
for i := 0 to ControlCount - 1 do
|
||
begin
|
||
if Controls[i] is TSpeedButton then
|
||
begin
|
||
TSpeedButton(Controls[i]).Hint := Trim(TEdit(Sender).Name);
|
||
end;
|
||
end;
|
||
end;
|
||
end;
|
||
|
||
procedure TfrmJTSJY.cxGridDBColumn1CustomDrawCell(Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridTableDataCellViewInfo; var ADone: Boolean);
|
||
var
|
||
id, id10: Integer;
|
||
begin
|
||
id := TV3.GetColumnByFieldName('JYNW').Index; //;-TV1.GroupedItemCount;
|
||
id10 := TV3.GetColumnByFieldName('ZGKS').Index; //;-TV1.GroupedItemCount;
|
||
if id < 0 then
|
||
Exit;
|
||
if AViewInfo.GridRecord.Values[id] < 20 then
|
||
begin
|
||
ACanvas.Brush.Color := clRed;
|
||
end;
|
||
if AViewInfo.GridRecord.Values[id] > 45 then
|
||
begin
|
||
ACanvas.Brush.Color := clRed;
|
||
end;
|
||
if AViewInfo.GridRecord.Values[id10] <> 6 then
|
||
begin
|
||
ACanvas.Brush.Color := clRed;
|
||
end;
|
||
end;
|
||
|
||
end.
|
||
|