Group_99/D10szXIANGYING
7
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
95fa3bf810
D10szXIANGYING/A01基础公司管理/U_CustInput.pas

736 lines
18 KiB
ObjectPascal
Raw Normal View History

12345
2025-11-14 15:11:06 +08:00
unit U_CustInput;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxGraphics, cxCustomData, cxStyles, cxTL, cxMaskEdit, DB, ADODB,
cxInplaceContainer, cxDBTL, cxControls, cxTLData, ComCtrls, ToolWin, StdCtrls,
cxFilter, cxData, cxDataStorage, cxEdit, cxDBData, DBClient,
cxGridCustomTableView, cxGridTableView, cxGridDBTableView, ExtCtrls,
cxSplitter, cxGridLevel, cxClasses, cxGridCustomView, cxGrid,
cxGridCustomPopupMenu, cxGridPopupMenu, RM_Dataset, RM_System, RM_Common,
RM_Class, RM_GridReport, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdFTP, ShellAPI, IniFiles, cxCheckBox, cxCalendar, cxButtonEdit,
cxTextEdit, cxDropDownEdit, BtnEdit, cxLookAndFeels, cxLookAndFeelPainters,
cxNavigator, dxSkinsCore, dxSkinsDefaultPainters, dxDateRanges,
dxBarBuiltInMenu, U_BaseList, dxScrollbarAnnotations;
type
TfrmCustInput = class(TForm)
ToolBar1: TToolBar;
TBClose: TToolButton;
ADOQueryTemp: TADOQuery;
ADOQueryCmd: TADOQuery;
ADOQueryMain: TADOQuery;
cxGridPopupMenu2: TcxGridPopupMenu;
ToolButton3: TToolButton;
CDS_LXR: TClientDataSet;
DSLXR: TDataSource;
ScrollBox1: TScrollBox;
Label2: TLabel;
Label6: TLabel;
Label7: TLabel;
CoName: TEdit;
CoNote: TMemo;
Label1: TLabel;
CoAbbrName: TEdit;
CoCode: TEdit;
Panel1: TPanel;
Label4: TLabel;
Label8: TLabel;
CoAddress: TMemo;
Panel3: TPanel;
ToolBar3: TToolBar;
ToolButton2: TToolButton;
ToolButton6: TToolButton;
ToolButton7: TToolButton;
cxGrid2: TcxGrid;
TV2: TcxGridDBTableView;
cxGridLevel2: TcxGridLevel;
Label10: TLabel;
CoLevel: TComboBox;
0526
2026-05-26 10:27:37 +08:00
TV2KHAddress: TcxGridDBColumn;
12345
2025-11-14 15:11:06 +08:00
cocountry: TBtnEditC;
Label3: TLabel;
Label5: TLabel;
ParentCoName: TBtnEditC;
Label9: TLabel;
Saleser: TBtnEditC;
Label11: TLabel;
dept: TBtnEditC;
cai 1.14
2026-01-14 17:31:53 +08:00
CoBusinessType: TComboBox;
0526
2026-05-26 10:27:37 +08:00
cxGrid1: TcxGrid;
TV1: TcxGridDBTableView;
cxGridDBColumn1: TcxGridDBColumn;
cxGridDBColumn4: TcxGridDBColumn;
cxGridDBColumn7: TcxGridDBColumn;
cxGridDBColumn9: TcxGridDBColumn;
cxGridDBColumn10: TcxGridDBColumn;
cxGridDBColumn11: TcxGridDBColumn;
cxGridLevel1: TcxGridLevel;
ToolButton1: TToolButton;
ToolButton4: TToolButton;
CDS_1: TClientDataSet;
DS_1: TDataSource;
12345
2025-11-14 15:11:06 +08:00
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure TBCloseClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure TBRafreshClick(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure ToolButton7Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure cocountryBtnDnClick(Sender: TObject);
cai 1.14
2026-01-14 17:31:53 +08:00
// procedure cocountryBtnUpClick(Sender: TObject);
12345
2025-11-14 15:11:06 +08:00
procedure ParentCoNameBtnUpClick(Sender: TObject);
procedure SaleserBtnUpClick(Sender: TObject);
0526
2026-05-26 10:27:37 +08:00
procedure deptBtnUpClick(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
12345
2025-11-14 15:11:06 +08:00
private
{ Private declarations }
procedure InitGrid();
function SaveData(): Boolean;
0526
2026-05-26 10:27:37 +08:00
procedure KHEdit();
12345
2025-11-14 15:11:06 +08:00
public
fkhType: string;
{ Public declarations }
FCOID: string;
end;
var
frmCustInput: TfrmCustInput;
implementation
uses
U_DataLink, U_RTFun, U_ZDYHelp, U_YGSel, U_CompanySel, U_UserSel;
{$R *.dfm}
procedure TfrmCustInput.InitGrid();
begin
try
ADOQueryMain.DisableControls;
with ADOQueryMain do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from BS_Company where CoType=''<27>ͻ<EFBFBD>'' and COID=''' + Trim(FCOID) + '''');
Open;
end;
SCSHData(ADOQueryMain, ScrollBox1, 2);
ParentCoName.TxtCode := ADOQueryMain.FieldByName('ParentCoCode').AsString;
Saleser.TxtCode := ADOQueryMain.FieldByName('SalesId').AsString;
with ADOQueryMain do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from BS_Company_contact where COID=' + quotedstr(Trim(FCOID)));
Open;
end;
SCreateCDS(ADOQueryMain, CDS_LXR);
SInitCDSData(ADOQueryMain, CDS_LXR);
0526
2026-05-26 10:27:37 +08:00
with ADOQueryMain do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from KH_Address where COID=' + quotedstr(Trim(FCOID)));
Open;
end;
SCreateCDS(ADOQueryMain, CDS_1);
SInitCDSData(ADOQueryMain, CDS_1);
12345
2025-11-14 15:11:06 +08:00
finally
ADOQueryMain.EnableControls;
end;
end;
procedure TfrmCustInput.ParentCoNameBtnUpClick(Sender: TObject);
begin
try
frmCompanySel := TfrmCompanySel.Create(Application);
with frmCompanySel do
begin
FCoType := '<27>ͻ<EFBFBD>';
if ShowModal = 1 then
begin
ParentCoName.Text := Trim(CDS_1.fieldbyname('CoAbbrName').AsString);
ParentCoName.TxtCode := Trim(CDS_1.fieldbyname('CoCode').AsString);
end;
end;
finally
frmCompanySel.Free;
end;
end;
procedure TfrmCustInput.FormDestroy(Sender: TObject);
begin
frmCustInput := nil;
end;
procedure TfrmCustInput.cocountryBtnDnClick(Sender: TObject);
begin
TBtnEditC(Sender).Text := '';
TBtnEditC(Sender).TxtCode := '';
end;
cai 1.14
2026-01-14 17:31:53 +08:00
//procedure TfrmCustInput.cocountryBtnUpClick(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;
12345
2025-11-14 15:11:06 +08:00
0526
2026-05-26 10:27:37 +08:00
procedure TfrmCustInput.deptBtnUpClick(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;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmCustInput.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
procedure TfrmCustInput.TBCloseClick(Sender: TObject);
begin
WriteCxGrid(trim(self.Caption) + 'TV2', Tv2, '<27><>Ӧ<EFBFBD>̹<EFBFBD><CCB9><EFBFBD>');
close;
end;
procedure TfrmCustInput.FormShow(Sender: TObject);
var
i: integer;
a: string;
begin
ReadCxGrid(trim(self.Caption) + 'TV2', Tv2, '<27><>Ӧ<EFBFBD>̹<EFBFBD><CCB9><EFBFBD>');
InitGrid();
if trim(FCOID) = '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' exec P_BS_Com_Get_No @Str=''K'' ');
Open;
end;
CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring);
end;
//<2F><><EFBFBD><EFBFBD><EFBFBD>˵<EFBFBD>ҲҪ<D2B2><D2AA><EFBFBD>޸ı<DEB8><C4B1>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD>޸<EFBFBD><DEB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ݣ<EFBFBD>ֻ<EFBFBD>ܸ<EFBFBD><DCB8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' select * from BS_Company where CoId=' + quotedstr(FCoId));
Open;
end;
if trim(ADOQueryTemp.FieldByName('Status').asstring) = '1' then
begin
ScrollBox1.Enabled := False;
end;
0526
2026-05-26 10:27:37 +08:00
if FCOID <> '' then
begin
KHEdit();
end;
12345
2025-11-14 15:11:06 +08:00
end;
procedure TfrmCustInput.TBRafreshClick(Sender: TObject);
begin
InitGrid();
end;
procedure TfrmCustInput.SaleserBtnUpClick(Sender: TObject);
begin
try
frmUserSel := TfrmUserSel.Create(Application);
with frmUserSel do
begin
Fdept := 'ҵ<><D2B5>';
if ShowModal = 1 then
begin
Saleser.TxtCode := Trim(CDS_1.fieldbyname('UserID').AsString);
Saleser.Text := Trim(CDS_1.fieldbyname('UserName').AsString);
end;
end;
finally
frmUserSel.Free;
end;
end;
0526
2026-05-26 10:27:37 +08:00
procedure TfrmCustInput.KHEdit();
begin
try
ADOQueryCmd.DisableControls;
with ADOQueryCmd do
begin
Filtered := False;
Close;
SQL.Clear;
sql.Add(' select * from Tat_Cloth_DR_Main A inner join Tat_Cloth_IO B on A.DRMID=B.IONO ');
SQL.add(' where A.ToCOID=''' + Trim(FCOID) + '''');
sql.add(' and B.ioflag=''<27><><EFBFBD><EFBFBD>'' ');
Open;
end;
if not ADOQueryCmd.IsEmpty then
begin
CoCode.enabled := false;
CoName.enabled := false;
CoAbbrName.enabled := false;
CoBusinessType.enabled := false;
CoLevel.enabled := false;
end;
finally
ADOQueryCmd.EnableControls;
end;
end;
12345
2025-11-14 15:11:06 +08:00
function TfrmCustInput.SaveData(): Boolean;
var
0526
2026-05-26 10:27:37 +08:00
MaxId, MaxSubId, FCoCode, FCCID, FID, MaxDZId: string;
12345
2025-11-14 15:11:06 +08:00
begin
try
ADOQueryCmd.Connection.BeginTrans;
if Trim(FCOID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxId, 'CO', 'BS_Company', 4, 1) = False then
begin
Result := False;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡ<><C8A1><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʧ<EFBFBD>ܣ<EFBFBD>', '<27><>ʾ', 0);
Exit;
end;
if trim(CoCode.Text) = '' then
begin
with ADOQueryTemp do
begin
Close;
sql.Clear;
sql.Add(' exec P_BS_Com_Get_No @Str=''K'' ');
Open;
end;
CoCode.Text := trim(ADOQueryTemp.FieldByName('NewCoCode').asstring);
end;
end
else
begin
MaxId := Trim(FCOID);
end;
with ADOQueryCmd do
begin
Close;
SQL.Clear;
sql.Add('select * from BS_Company where COID=''' + Trim(FCOID) + '''');
Open;
end;
with ADOQueryCmd do
begin
if Trim(FCOID) = '' then
begin
Append;
FieldByName('FillId').Value := Trim(DCode);
FieldByName('Filler').Value := Trim(DName);
FieldByName('Saleser').Value := trim(DName);
FieldByName('SalesId').Value := trim(DCode);
FieldByName('Tallyer').Value := trim(DName);
FieldByName('TallyId').Value := trim(DCode);
FieldByName('status').Value := '0';
end
else
begin
Edit;
FieldByName('EditId').Value := Trim(DCode);
FieldByName('Editer').Value := Trim(DName);
FieldByName('Edittime').Value := SGetServerDateTime(ADOQueryTemp);
end;
FieldByName('COID').Value := Trim(MaxId);
RTSetsavedata(ADOQueryCmd, 'BS_Company', ScrollBox1, 2);
FieldByName('CoType').Value := '<27>ͻ<EFBFBD>';
FieldByName('ParentCoCode').Value := ParentCoName.TxtCode;
FieldByName('SalesId').Value := Saleser.TxtCode;
Post;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Company where CoCode=' + quotedstr(trim(CoCode.Text)));
Open;
end;
if ADOQueryCmd.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Company where CoName=' + quotedstr(trim(CoName.Text)));
sql.Add(' and CoType=''<27>ͻ<EFBFBD>'' ');
Open;
end;
if ADOQueryCmd.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Company where CoAbbrName=' + quotedstr(trim(CoAbbrName.Text)));
sql.Add(' and CoType=''<27>ͻ<EFBFBD>'' ');
Open;
end;
if ADOQueryCmd.RecordCount > 1 then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ظ<EFBFBD>!', '<27><>ʾ', 0);
Exit;
end;
////////////// <20><>ϵ<EFBFBD><CFB5> ///////////////////
if not CDS_LXR.IsEmpty then
begin
with CDS_LXR do
begin
CDS_LXR.First;
while not Eof do
begin
FCCID := Trim(CDS_LXR.fieldbyname('CCID').AsString);
if Trim(FCCID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxSubId, 'CCS', 'BS_Company_contact', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('ȡϵ<C8A1><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IDʧ<44><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
MaxSubId := trim(FCCID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from BS_Company_contact where CCID=' + quotedstr(Trim(MaxSubId)));
Open;
end;
with ADOQueryCmd do
begin
if Trim(FCCID) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('CCID').Value := Trim(MaxSubId);
FieldByName('COID').Value := Trim(MaxId);
0526
2026-05-26 10:27:37 +08:00
RTSetSaveDataCDS(ADOQueryCmd, Tv1, CDS_LXR, 'BS_Company_contact', 0);
12345
2025-11-14 15:11:06 +08:00
Post;
end;
with CDS_LXR do
begin
Edit;
FieldByName('CCID').Value := Trim(MaxSubId);
Post;
end;
CDS_LXR.Next;
end;
end;
end;
////////////// <20><>ϵ<EFBFBD><CFB5> ///////////////////
0526
2026-05-26 10:27:37 +08:00
////////////// <20><>ַ ///////////////////
if not CDS_1.IsEmpty then
begin
with CDS_1 do
begin
CDS_1.First;
while not Eof do
begin
FID := Trim(CDS_1.fieldbyname('ID').AsString);
if Trim(FID) = '' then
begin
if GetLSNo(ADOQueryCmd, MaxDZId, 'DZ', 'BS_Company_contact', 4, 1) = False then
begin
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>IDʧ<44><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
end
else
begin
MaxDZId := trim(FID);
end;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('select * from KH_Address where ID=' + quotedstr(Trim(MaxDZId)));
Open;
end;
with ADOQueryCmd do
begin
if Trim(FID) = '' then
begin
Append;
end
else
begin
Edit;
end;
FieldByName('ID').Value := Trim(MaxDZId);
FieldByName('CoCode').Value := Trim(CoCode.Text);
FieldByName('COID').Value := Trim(MaxId);
RTSetSaveDataCDS(ADOQueryCmd, Tv2, CDS_1, 'KH_Address', 0);
Post;
end;
// with CDS_1 do
// begin
// Edit;
// FieldByName('ID').Value := Trim(MaxDZId);
// Post;
// end;
CDS_1.Next;
end;
end;
end;
////////////// <20><>ַ ///////////////////
12345
2025-11-14 15:11:06 +08:00
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ////////////////////////
// with ADOQueryCmd do
// begin
// Close;
// sql.Clear;
// sql.Add('exec P_Com_Up_Code @COID=' + quotedstr(Trim(MaxId)));
// ExecSQL;
// end;
//////////////// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ////////////////////////
ADOQueryCmd.Connection.CommitTrans;
FCCID := Trim(MaxSubId);
Result := True;
except
Result := false;
ADOQueryCmd.Connection.RollbackTrans;
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>쳣!', '<27><>ʾ', 0);
end;
end;
procedure TfrmCustInput.ToolButton3Click(Sender: TObject);
begin
if Trim(CoAbbrName.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
if Trim(CoName.Text) = '' then
begin
Application.MessageBox('<27><><EFBFBD>Ʋ<EFBFBD><C6B2><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
0526
2026-05-26 10:27:37 +08:00
if Trim(Saleser.Text) = '' then
begin
Application.MessageBox('ҵ<><D2B5>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD>Ϊ<EFBFBD><CEAA>!', '<27><>ʾ', 0);
Exit;
end;
12345
2025-11-14 15:11:06 +08:00
if SaveData() then
begin
Application.MessageBox('<27><><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD>!', '<27><>ʾ', 0);
ModalResult := 1;
end;
end;
0526
2026-05-26 10:27:37 +08:00
procedure TfrmCustInput.ToolButton4Click(Sender: TObject);
begin
if CDS_1.IsEmpty then
Exit;
if Trim(CDS_1.fieldbyname('ID').AsString) <> '' then
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete from KH_Address where ID=''' + Trim(CDS_1.fieldbyname('ID').AsString) + '''');
ExecSQL;
end;
end;
CDS_1.Delete;
end;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmCustInput.ToolButton6Click(Sender: TObject);
var
maxno: string;
begin
if GetLSNo(ADOQueryCmd, maxno, 'CC', 'BS_Company_contact', 4, 1) = False then
begin
Application.MessageBox('ȡϵ<C8A1><CFB5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>IDʧ<44><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
if CDS_LXR.IsEmpty then
begin
with CDS_LXR do
begin
Append;
fieldbyname('CCID').Value := trim(maxno);
fieldbyname('IsDefault').Value := true;
Post;
end;
end
else
begin
with CDS_LXR do
begin
Append;
fieldbyname('CCID').Value := trim(maxno);
fieldbyname('IsDefault').Value := false;
Post;
end;
end;
end;
procedure TfrmCustInput.ToolButton7Click(Sender: TObject);
begin
if CDS_LXR.IsEmpty then
Exit;
if Trim(CDS_LXR.fieldbyname('CCID').AsString) <> '' then
begin
if Application.MessageBox('ȷ<><C8B7>Ҫɾ<D2AA><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>', '<27><>ʾ', 32 + 4) <> IDYES then
Exit;
with ADOQueryCmd do
begin
Close;
sql.Clear;
sql.Add('delete from BS_Company_contact where CCID=''' + Trim(CDS_LXR.fieldbyname('CCID').AsString) + '''');
ExecSQL;
end;
end;
CDS_LXR.Delete;
if CDS_LXR.IsEmpty = false then
begin
if CDS_LXR.Locate('IsDefault', true, []) = false then
begin
CDS_LXR.first;
CDS_LXR.edit;
CDS_LXR.FieldByName('IsDefault').value := true;
end;
end;
end;
0526
2026-05-26 10:27:37 +08:00
procedure TfrmCustInput.ToolButton1Click(Sender: TObject);
var
maxno: string;
begin
if CoCode.text = '' then
begin
Application.MessageBox('<27><>ʾ<EFBFBD><CABE>Ϣ', '<27>ͻ<EFBFBD><CDBB><EFBFBD><EFBFBD>Ų<EFBFBD><C5B2><EFBFBD>Ϊ<EFBFBD><CEAA>', MB_OK);
Exit;
end;
if GetLSNo(ADOQueryCmd, maxno, 'DZ', 'KH_Address', 4, 1) = False then
begin
Application.MessageBox('<27><>ַ<EFBFBD><D6B7><EFBFBD><EFBFBD>IDʧ<44><CAA7>!', '<27><>ʾ', 0);
Exit;
end;
with CDS_1 do
begin
Append;
fieldbyname('ID').Value := trim(maxno);
Post;
end;
end;
12345
2025-11-14 15:11:06 +08:00
procedure TfrmCustInput.ToolButton2Click(Sender: TObject);
var
DwFlag: string;
begin
DwFlag := trim(CDS_LXR.FieldByName('CCID').AsString);
if CDS_LXR.Locate('IsDefault', true, []) then
begin
CDS_LXR.edit;
CDS_LXR.FieldByName('IsDefault').value := false;
end;
if CDS_LXR.Locate('CCID', DwFlag, []) then
begin
CDS_LXR.edit;
CDS_LXR.FieldByName('IsDefault').value := true;
end;
end;
end.
Reference in New Issue Copy Permalink