Group_02/D10sxYilanbuyi
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
42c1c13f95
D10sxYilanbuyi/A02基础产品管理/U_ClothInfoInput.pas

809 lines
22 KiB
ObjectPascal
Raw Normal View History

1234
2025-06-06 13:56:41 +08:00
unit U_ClothInfoInput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData, cxDataStorage,
cxEdit, DB, cxDBData, ADODB, DBClient, cxGridLevel, cxGridCustomTableView,
cxGridTableView, cxGridDBTableView, cxClasses, cxControls, cxGridCustomView,
cxGrid, ComCtrls, ToolWin, cxGridCustomPopupMenu, cxGridPopupMenu, cxTextEdit,
cxButtonEdit, StdCtrls, ExtCtrls, cxCurrencyEdit, BtnEdit, U_BaseList,
cxLookAndFeels, cxLookAndFeelPainters, dxSkinsCore, dxSkinsDefaultPainters,
录入页面
2025-06-07 17:31:07 +08:00
cxNavigator, dxDateRanges, dxBarBuiltInMenu, cxCheckBox, cxDropDownEdit,
dxSkinBasic, dxSkinBlack, dxSkinBlue, dxSkinBlueprint, dxSkinCaramel,
dxSkinCoffee, dxSkinDarkroom, dxSkinDarkSide, dxSkinDevExpressDarkStyle,
dxSkinDevExpressStyle, dxSkinFoggy, dxSkinGlassOceans, dxSkinHighContrast,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMetropolis, dxSkinMetropolisDark, dxSkinMoneyTwins,
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinOffice2013DarkGray,
dxSkinOffice2013LightGray, dxSkinOffice2013White, dxSkinOffice2016Colorful,
dxSkinOffice2016Dark, dxSkinOffice2019Black, dxSkinOffice2019Colorful,
dxSkinOffice2019DarkGray, dxSkinOffice2019White, dxSkinPumpkin, dxSkinSeven,
dxSkinSevenClassic, dxSkinSharp, dxSkinSharpPlus, dxSkinSilver,
dxSkinSpringtime, dxSkinStardust, dxSkinSummer2008, dxSkinTheAsphaltWorld,
dxSkinTheBezier, dxSkinValentine, dxSkinVisualStudio2013Blue,
dxSkinVisualStudio2013Dark, dxSkinVisualStudio2013Light, dxSkinVS2010,
dxSkinWhiteprint, dxSkinWXI, dxSkinXmas2008Blue, cxContainer, cxLabel, cxPC,
dxScrollbarAnnotations;
1234
2025-06-06 13:56:41 +08:00
type
TfrmClothInfoInput = class(TForm)
ToolBar1: TToolBar;
ToolButton1: TToolButton;
TBClose: TToolButton;
ADOQueryCmd: TADOQuery;
ADOQueryTemp: TADOQuery;
ToolButton6: TToolButton;
CDS_1: TClientDataSet;
DS_1: TDataSource;
GPM_1: TcxGridPopupMenu;
录入页面
2025-06-07 17:31:07 +08:00
cxPageControl1: TcxPageControl;
cxTabSheet1: TcxTabSheet;
cxTabSheet2: TcxTabSheet;
cxTabSheet3: TcxTabSheet;
cxTabSheet4: TcxTabSheet;
cxGrid2: TcxGrid;
cxGridDBTableView1: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn2: TcxGridDBColumn;
cxGridDBColumn3: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn5: TcxGridDBColumn;
cxGridDBColumn6: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn8: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
cxTabSheet5: TcxTabSheet;
cxGrid1: TcxGrid;
cxGridDBTableView2: TcxGridDBTableView;
cxGridDBColumn11: TcxGridDBColumn;
cxGridDBColumn12: TcxGridDBColumn;
cxGridDBColumn13: TcxGridDBColumn;
cxGridDBColumn14: TcxGridDBColumn;
cxGridDBColumn15: TcxGridDBColumn;
cxGridDBColumn16: TcxGridDBColumn;
cxGridDBColumn17: TcxGridDBColumn;
cxGridDBColumn18: TcxGridDBColumn;
cxGridDBColumn19: TcxGridDBColumn;
cxGridDBColumn20: TcxGridDBColumn;
cxGridLevel2: TcxGridLevel;
cxTabSheet6: TcxTabSheet;
cxGrid3: TcxGrid;
cxGridDBTableView3: TcxGridDBTableView;
cxGridDBColumn21: TcxGridDBColumn;
cxGridDBColumn22: TcxGridDBColumn;
cxGridDBColumn23: TcxGridDBColumn;
cxGridDBColumn24: TcxGridDBColumn;
cxGridDBColumn25: TcxGridDBColumn;
cxGridDBColumn26: TcxGridDBColumn;
cxGridDBColumn27: TcxGridDBColumn;
cxGridDBColumn28: TcxGridDBColumn;
cxGridDBColumn29: TcxGridDBColumn;
cxGridDBColumn30: TcxGridDBColumn;
cxGridLevel3: TcxGridLevel;
Panel1: TPanel;
C_GramWeight: TcxTextEdit;
C_Name: TcxTextEdit;
C_Width: TcxTextEdit;
cxLabel37: TcxLabel;
cxLabel38: TcxLabel;
cxLabel39: TcxLabel;
cxLabel40: TcxLabel;
cxLabel41: TcxLabel;
cxLabel42: TcxLabel;
cxLabel43: TcxLabel;
cxLabel44: TcxLabel;
cxLabel45: TcxLabel;
cxLabel46: TcxLabel;
cxLabel47: TcxLabel;
cxLabel48: TcxLabel;
cxTextEdit38: TcxTextEdit;
cxTextEdit39: TcxTextEdit;
cxTextEdit40: TcxTextEdit;
cxTextEdit42: TcxTextEdit;
cxTextEdit44: TcxTextEdit;
cxTextEdit45: TcxTextEdit;
cxTextEdit46: TcxTextEdit;
cxTextEdit47: TcxTextEdit;
cxTextEdit48: TcxTextEdit;
Panel2: TPanel;
cxLabel10: TcxLabel;
cxLabel11: TcxLabel;
cxLabel12: TcxLabel;
cxLabel13: TcxLabel;
cxLabel14: TcxLabel;
cxLabel15: TcxLabel;
cxLabel16: TcxLabel;
cxLabel17: TcxLabel;
cxLabel18: TcxLabel;
cxLabel19: TcxLabel;
cxLabel20: TcxLabel;
cxLabel7: TcxLabel;
cxLabel8: TcxLabel;
cxLabel9: TcxLabel;
cxTextEdit10: TcxTextEdit;
cxTextEdit11: TcxTextEdit;
cxTextEdit12: TcxTextEdit;
cxTextEdit13: TcxTextEdit;
cxTextEdit14: TcxTextEdit;
cxTextEdit15: TcxTextEdit;
cxTextEdit16: TcxTextEdit;
cxTextEdit17: TcxTextEdit;
cxTextEdit18: TcxTextEdit;
cxTextEdit7: TcxTextEdit;
cxTextEdit8: TcxTextEdit;
cxTextEdit9: TcxTextEdit;
Panel3: TPanel;
cxLabel1: TcxLabel;
cxLabel2: TcxLabel;
cxLabel21: TcxLabel;
cxLabel22: TcxLabel;
cxLabel23: TcxLabel;
cxLabel24: TcxLabel;
cxLabel25: TcxLabel;
cxLabel26: TcxLabel;
cxLabel27: TcxLabel;
cxLabel28: TcxLabel;
cxLabel3: TcxLabel;
cxLabel4: TcxLabel;
cxLabel5: TcxLabel;
cxLabel55: TcxLabel;
cxLabel56: TcxLabel;
cxLabel57: TcxLabel;
cxLabel58: TcxLabel;
cxLabel59: TcxLabel;
cxLabel6: TcxLabel;
cxLabel60: TcxLabel;
cxLabel61: TcxLabel;
cxLabel62: TcxLabel;
cxLabel63: TcxLabel;
cxLabel64: TcxLabel;
cxLabel65: TcxLabel;
cxTextEdit1: TcxTextEdit;
cxTextEdit19: TcxTextEdit;
cxTextEdit2: TcxTextEdit;
cxTextEdit20: TcxTextEdit;
cxTextEdit21: TcxTextEdit;
cxTextEdit22: TcxTextEdit;
cxTextEdit23: TcxTextEdit;
cxTextEdit24: TcxTextEdit;
cxTextEdit3: TcxTextEdit;
cxTextEdit37: TcxTextEdit;
cxTextEdit4: TcxTextEdit;
cxTextEdit41: TcxTextEdit;
cxTextEdit43: TcxTextEdit;
cxTextEdit49: TcxTextEdit;
cxTextEdit5: TcxTextEdit;
cxTextEdit50: TcxTextEdit;
cxTextEdit51: TcxTextEdit;
cxTextEdit52: TcxTextEdit;
cxTextEdit53: TcxTextEdit;
cxTextEdit54: TcxTextEdit;
cxTextEdit55: TcxTextEdit;
cxTextEdit56: TcxTextEdit;
cxTextEdit6: TcxTextEdit;
Panel4: TPanel;
cxLabel100: TcxLabel;
cxLabel101: TcxLabel;
cxLabel102: TcxLabel;
cxLabel103: TcxLabel;
cxLabel104: TcxLabel;
cxLabel105: TcxLabel;
cxLabel106: TcxLabel;
cxLabel109: TcxLabel;
cxLabel110: TcxLabel;
cxLabel111: TcxLabel;
cxLabel82: TcxLabel;
cxLabel83: TcxLabel;
cxLabel84: TcxLabel;
cxLabel85: TcxLabel;
cxLabel86: TcxLabel;
cxLabel87: TcxLabel;
cxLabel88: TcxLabel;
cxLabel89: TcxLabel;
cxLabel90: TcxLabel;
cxLabel91: TcxLabel;
cxLabel92: TcxLabel;
cxLabel93: TcxLabel;
cxLabel94: TcxLabel;
cxLabel95: TcxLabel;
cxLabel96: TcxLabel;
cxLabel97: TcxLabel;
cxLabel98: TcxLabel;
cxLabel99: TcxLabel;
cxTextEdit72: TcxTextEdit;
cxTextEdit73: TcxTextEdit;
cxTextEdit74: TcxTextEdit;
cxTextEdit75: TcxTextEdit;
cxTextEdit76: TcxTextEdit;
cxTextEdit77: TcxTextEdit;
cxTextEdit78: TcxTextEdit;
cxTextEdit79: TcxTextEdit;
cxTextEdit80: TcxTextEdit;
cxTextEdit81: TcxTextEdit;
cxTextEdit82: TcxTextEdit;
cxTextEdit83: TcxTextEdit;
cxTextEdit84: TcxTextEdit;
cxTextEdit85: TcxTextEdit;
cxTextEdit86: TcxTextEdit;
cxTextEdit87: TcxTextEdit;
cxTextEdit88: TcxTextEdit;
cxTextEdit89: TcxTextEdit;
cxTextEdit90: TcxTextEdit;
cxTextEdit91: TcxTextEdit;
cxTextEdit92: TcxTextEdit;
cxTextEdit93: TcxTextEdit;
cxTextEdit94: TcxTextEdit;
cxTextEdit97: TcxTextEdit;
cxTextEdit98: TcxTextEdit;
Panel5: TPanel;
cxLabel107: TcxLabel;
cxLabel108: TcxLabel;
cxLabel112: TcxLabel;
cxLabel29: TcxLabel;
cxLabel30: TcxLabel;
cxLabel31: TcxLabel;
cxLabel32: TcxLabel;
cxLabel33: TcxLabel;
cxLabel34: TcxLabel;
cxLabel35: TcxLabel;
cxLabel36: TcxLabel;
cxLabel49: TcxLabel;
cxLabel50: TcxLabel;
cxLabel51: TcxLabel;
cxLabel52: TcxLabel;
cxLabel53: TcxLabel;
cxLabel54: TcxLabel;
cxLabel66: TcxLabel;
cxLabel67: TcxLabel;
cxLabel68: TcxLabel;
cxLabel69: TcxLabel;
cxLabel70: TcxLabel;
cxLabel71: TcxLabel;
cxLabel72: TcxLabel;
cxLabel73: TcxLabel;
cxLabel74: TcxLabel;
cxLabel75: TcxLabel;
cxLabel76: TcxLabel;
cxLabel77: TcxLabel;
cxLabel78: TcxLabel;
cxLabel79: TcxLabel;
cxLabel80: TcxLabel;
cxLabel81: TcxLabel;
cxTextEdit25: TcxTextEdit;
cxTextEdit26: TcxTextEdit;
cxTextEdit27: TcxTextEdit;
cxTextEdit28: TcxTextEdit;
cxTextEdit29: TcxTextEdit;
cxTextEdit30: TcxTextEdit;
cxTextEdit31: TcxTextEdit;
cxTextEdit32: TcxTextEdit;
cxTextEdit33: TcxTextEdit;
cxTextEdit34: TcxTextEdit;
cxTextEdit35: TcxTextEdit;
cxTextEdit36: TcxTextEdit;
cxTextEdit57: TcxTextEdit;
cxTextEdit58: TcxTextEdit;
cxTextEdit59: TcxTextEdit;
cxTextEdit60: TcxTextEdit;
cxTextEdit61: TcxTextEdit;
cxTextEdit62: TcxTextEdit;
cxTextEdit63: TcxTextEdit;
cxTextEdit64: TcxTextEdit;
cxTextEdit65: TcxTextEdit;
cxTextEdit66: TcxTextEdit;
cxTextEdit67: TcxTextEdit;
cxTextEdit68: TcxTextEdit;
cxTextEdit69: TcxTextEdit;
cxTextEdit70: TcxTextEdit;
cxTextEdit71: TcxTextEdit;
cxTextEdit95: TcxTextEdit;
cxTextEdit96: TcxTextEdit;
Panel6: TPanel;
cxLabel116: TcxLabel;
cxLabel117: TcxLabel;
cxLabel118: TcxLabel;
cxLabel119: TcxLabel;
cxLabel120: TcxLabel;
cxLabel121: TcxLabel;
cxLabel122: TcxLabel;
cxLabel123: TcxLabel;
cxLabel124: TcxLabel;
cxLabel125: TcxLabel;
cxLabel126: TcxLabel;
cxLabel127: TcxLabel;
cxLabel128: TcxLabel;
cxLabel129: TcxLabel;
cxLabel130: TcxLabel;
cxLabel131: TcxLabel;
cxLabel132: TcxLabel;
cxLabel133: TcxLabel;
cxLabel134: TcxLabel;
cxLabel135: TcxLabel;
cxLabel136: TcxLabel;
cxLabel137: TcxLabel;
cxLabel138: TcxLabel;
cxLabel139: TcxLabel;
cxLabel140: TcxLabel;
cxLabel141: TcxLabel;
cxLabel142: TcxLabel;
cxLabel143: TcxLabel;
cxTextEdit100: TcxTextEdit;
cxTextEdit101: TcxTextEdit;
cxTextEdit102: TcxTextEdit;
cxTextEdit103: TcxTextEdit;
cxTextEdit104: TcxTextEdit;
cxTextEdit105: TcxTextEdit;
cxTextEdit106: TcxTextEdit;
cxTextEdit107: TcxTextEdit;
cxTextEdit108: TcxTextEdit;
cxTextEdit109: TcxTextEdit;
cxTextEdit110: TcxTextEdit;
cxTextEdit111: TcxTextEdit;
cxTextEdit112: TcxTextEdit;
cxTextEdit113: TcxTextEdit;
cxTextEdit114: TcxTextEdit;
cxTextEdit115: TcxTextEdit;
cxTextEdit116: TcxTextEdit;
cxTextEdit117: TcxTextEdit;
cxTextEdit118: TcxTextEdit;
cxTextEdit119: TcxTextEdit;
cxTextEdit120: TcxTextEdit;
cxTextEdit121: TcxTextEdit;
cxTextEdit122: TcxTextEdit;
cxTextEdit123: TcxTextEdit;
cxTextEdit99: TcxTextEdit;
1234
2025-06-06 13:56:41 +08:00
procedure FormShow(Sender: TObject);
procedure TBCloseClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure CYColorKeyPress(Sender: TObject; var Key: Char);
procedure CYJGGYBtnDnClick(Sender: TObject);
procedure C_WidthBtnDnClick(Sender: TObject);
procedure C_WidthBtnUpClick(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure C_FromNameBtnUpClick(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure SetXH();
procedure ToolButton3Click(Sender: TObject);
procedure Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
private
canshu1: string;
Fint: Integer;
procedure InitGrid();
function SaveData(): Boolean;
{ Private declarations }
public
FBCIID, FCTID: string;
CopyInt: Integer;
{ Public declarations }
end;
var
frmClothInfoInput: TfrmClothInfoInput;
implementation
uses
U_DataLink, U_RTFun, U_iniParam, U_ZDYHelp, U_AttachmentUpload, U_ClothInfoSel;
{$R *.dfm}
procedure TfrmClothInfoInput.SetXH();
var
i: Integer;
begin
with CDS_1 do
begin
First;
i := 1;
while not Eof do
begin
with CDS_1 do
begin
Edit;
FieldByName('XHNoTemp').Value := i;
Post;
end;
i := i + 1;
Next;
end;
end;
with CDS_1 do
begin
CDS_1.IndexFieldNames := '';
First;
i := 1;
while not Eof do
begin
with CDS_1 do
begin
Edit;
FieldByName('SerialNo').Value := FieldByName('XHNoTemp').AsInteger;
Post;
end;
i := i + 1;
Next;
end;
CDS_1.IndexFieldNames := 'SerialNo';
end;
end;
procedure TfrmClothInfoInput.InitGrid();
begin
with ADOQueryTemp do
begin
Close;
SQL.Clear;
SQL.Add('select * from V_BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
SCSHData(ADOQueryTemp, ScrollBox1, 2);
SCSHData(ADOQueryTemp, ScrollBox1, 0);
C_FromName.TxtCode := Trim(ADOQueryTemp.fieldbyname('FromBCIID').AsString);
C_FromName.Text := Trim(ADOQueryTemp.fieldbyname('C_FromName').AsString);
with ADOQueryTemp do
begin
Close;
SQL.Clear;
sql.Add(' select * from Bs_Cloth_Process ');
sql.Add(' where BCIID=''' + Trim(FBCIID) + '''');
sql.Add(' order by SerialNo ');
Open;
end;
SCreateCDS(ADOQueryTemp, CDS_1);
SInitCDSData(ADOQueryTemp, CDS_1);
end;
procedure TfrmClothInfoInput.FormShow(Sender: TObject);
begin
InitGrid();
if CopyInt = 1 then
begin
FBCIID := '';
BCIID.text := '';
C_Code.text := '';
end;
end;
procedure TfrmClothInfoInput.TBCloseClick(Sender: TObject);
begin
Close;
end;
function TfrmClothInfoInput.SaveData(): Boolean;
var
MaxBCIID, MaxBCPID: string;
begin
try
ADOQueryCmd.Connection.BeginTrans;
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> //////////////////////
if Trim(FBCIID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxBCIID, 'Y', 'BS_Cloth_Info', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
BCIID.Text := trim(MaxBCIID);
end
else
begin
MaxBCIID := Trim(FBCIID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info where BCIID=''' + Trim(FBCIID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FBCIID) = '' then
begin
Append;
FieldByName('CTID').Value := Trim(FCTID);
FieldByName('FILLID').Value := Trim(DCode);
FieldByName('FILLER').Value := Trim(DName);
FieldByName('FILLTIME').Value := SGetServerDateTime(ADOQueryTemp);
end
else
begin
Edit;
FieldByName('EDITER').Value := Trim(DName);
FieldByName('EDITTIME').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('BCIID').Value := Trim(MaxBCIID);
if trim(C_Code.Text) = '' then
C_Code.Text := Trim(MaxBCIID);
RTSetsavedata(ADOQueryCmd, 'BS_Cloth_Info', ScrollBox1, 2);
Post;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('delete BS_Cloth_Info_Link where ToID=''' + Trim(MaxBCIID) + '''');
ExecSQL;
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Cloth_Info_Link where 1=2');
Open;
end;
with ADOQueryCmd do
begin
Append;
FieldByName('ToID').Value := Trim(MaxBCIID);
FieldByName('FromID').Value := Trim(C_FromName.TxtCode);
Post;
end;
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add('select count(*) as AA from BS_Cloth_Info where C_Code=''' + Trim(C_Code.Text) + '''');
Open;
if FieldByName('AA').AsInteger > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Result := False;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD><D8B8><EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end;
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> //////////////////////
///
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> //////////////////////
with CDS_1 do
begin
First;
while not Eof do
begin
if Trim(CDS_1.fieldbyname('BCPID').AsString) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxBCPID, 'P', 'Bs_Cloth_Process', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
MaxBCPID := Trim(CDS_1.fieldbyname('BCPID').AsString);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from Bs_Cloth_Process where BCPID=''' + Trim(MaxBCPID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if ADOQueryCmd.IsEmpty then
Append
else
Edit;
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_1, 'Bs_Cloth_Process', 0);
FieldByName('BCPID').Value := Trim(MaxBCPID);
FieldByName('BCIID').Value := Trim(MaxBCIID);
Post;
end;
with CDS_1 do
begin
Edit;
FieldByName('BCPID').Value := Trim(MaxBCPID);
Post;
end;
Next;
end;
end;
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD>ӱ<EFBFBD> //////////////////////
///
///
///
ADOQueryCmd.Connection.CommitTrans;
FBCIID := MaxBCIID;
Result := True;
except
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
end;
end;
procedure TfrmClothInfoInput.CYJGGYBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
end;
procedure TfrmClothInfoInput.ToolButton1Click(Sender: TObject);
var
MC_Code: string;
begin
if C_Name.Text = '' then
begin
Application.MessageBox('<27><>Ʒ<EFBFBD><C6B7><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD>գ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if trim(C_Code.Text) = '' then
begin
if GetLSNo(ADOQueryCmd, MC_Code, 'C', 'BS_Cloth_Info', 4, 0) = False then
begin
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD>Ʒ<EFBFBD><C6B7><EFBFBD><EFBFBD>ʧ<EFBFBD><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
C_Code.Text := MC_Code;
end;
SetXH();
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD>', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
procedure TfrmClothInfoInput.ToolButton2Click(Sender: TObject);
var
i: Integer;
begin
i := CDS_1.RecordCount; //<2F><>ǰ<EFBFBD><C7B0>dataset<65>ж<EFBFBD><D0B6><EFBFBD><EFBFBD>м<EFBFBD>¼
i := i + 1;
CopyAddRow(Tv1, CDS_1);
with CDS_1 do
begin
Edit;
FieldByName('SerialNo').Value := i;
FieldByName('FtyWastage').Value := 0;
Post;
end;
SetXH();
end;
procedure TfrmClothInfoInput.ToolButton3Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
if Trim(CDS_1.fieldbyname('BCPID').AsString) <> '' then
begin
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete Bs_Cloth_Process where BCPID=''' + Trim(CDS_1.fieldbyname('BCPID').AsString) + '''');
ExecSQL;
end;
end;
CDS_1.Delete;
SetXH();
end;
procedure TfrmClothInfoInput.C_FromNameBtnUpClick(Sender: TObject);
begin
try
frmClothInfoSel := TfrmClothInfoSel.Create(Application);
with frmClothInfoSel do
begin
FCTType := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
C_FromName.TxtCode := Trim(CDS_1.fieldbyname('BCIID').AsString);
C_FromName.Text := Trim(CDS_1.fieldbyname('C_Name').AsString);
end;
end;
finally
frmClothInfoSel.Free;
end;
end;
procedure TfrmClothInfoInput.CYColorKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
SelectNext(ActiveControl as TWinControl, True, True);
end;
end;
procedure TfrmClothInfoInput.C_WidthBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
procedure TfrmClothInfoInput.C_WidthBtnUpClick(Sender: TObject);
var
fsj: string;
FWZ: Integer;
begin
fsj := Trim(TEdit(Sender).Hint);
FWZ := Pos('/', fsj);
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := Copy(fsj, 1, FWZ - 1);
flagname := Copy(fsj, FWZ + 1, Length(fsj) - FWZ);
if ShowModal = 1 then
begin
TEdit(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
end;
end;
finally
frmZDYHelp.Free;
end;
end;
procedure TfrmClothInfoInput.ToolButton6Click(Sender: TObject);
begin
if trim(C_Code.Text) = '' then
Exit;
try
frmAttachmentUpload := TfrmAttachmentUpload.Create(Application);
with frmAttachmentUpload do
begin
FEditAuthority := True;
fkeyNO := trim(C_Code.Text);
fType := '<27><>ƷƷ<C6B7><C6B7><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
end;
end;
finally
frmAttachmentUpload.Free;
end;
end;
procedure TfrmClothInfoInput.Tv1Column1PropertiesButtonClick(Sender: TObject; AButtonIndex: Integer);
begin
try
frmZDYHelp := TfrmZDYHelp.Create(Application);
with frmZDYHelp do
begin
flag := 'FtyType';
flagname := '<27><><EFBFBD><EFBFBD>';
if ShowModal = 1 then
begin
CDS_1.Edit;
CDS_1.fieldbyname('FtyType').Value := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
CDS_1.Post;
end;
end;
finally
frmZDYHelp.Free;
end;
tv1.Controller.EditingController.ShowEdit();
end;
end.
Reference in New Issue Copy Permalink