📄 ujgyhxxsz.pas
字号:
unit uJGYhXxSz;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, ImgList, ToolWin, ExtCtrls, Db, ADODB, Grids, DBGrids, StdCtrls,
Buttons;
type
TfrmJGYhXxSz = class(TForm)
ControlBar1: TControlBar;
ToolBar1: TToolBar;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
ToolButton9: TToolButton;
StatusBar1: TStatusBar;
ImageList1: TImageList;
ImageList2: TImageList;
ToolButton1: TToolButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
TabSheet3: TTabSheet;
TabSheet4: TTabSheet;
TabSheet5: TTabSheet;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
Panel8: TPanel;
Panel9: TPanel;
Panel10: TPanel;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
DBGrid4: TDBGrid;
DBGrid5: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
ComboBox11: TComboBox;
ComboBox12: TComboBox;
Edit11: TEdit;
Edit12: TEdit;
Edit21: TEdit;
Edit22: TEdit;
Label7: TLabel;
Label8: TLabel;
Label5: TLabel;
ComboBox21: TComboBox;
Label6: TLabel;
ComboBox22: TComboBox;
Label13: TLabel;
ComboBox23: TComboBox;
Label14: TLabel;
ComboBox31: TComboBox;
Label15: TLabel;
Edit31: TEdit;
Label16: TLabel;
Edit32: TEdit;
Label19: TLabel;
Edit41: TEdit;
Label20: TLabel;
Edit42: TEdit;
Label21: TLabel;
ComboBox53: TComboBox;
Label22: TLabel;
ComboBox54: TComboBox;
Label23: TLabel;
Label11: TLabel;
ComboBox51: TComboBox;
Label12: TLabel;
ComboBox52: TComboBox;
ComboBox55: TComboBox;
Label24: TLabel;
ComboBox56: TComboBox;
Label25: TLabel;
Edit51: TEdit;
Label26: TLabel;
Edit52: TEdit;
Label27: TLabel;
DateTimePicker1: TDateTimePicker;
ToolButton2: TToolButton;
ToolButton7: TToolButton;
procedure FormCreate(Sender: TObject);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure ToolButton9Click(Sender: TObject);
// procedure ComboBox22Change(Sender: TObject);
procedure ComboBox21Change(Sender: TObject);
procedure ComboBox51Change(Sender: TObject);
procedure ComboBox53Change(Sender: TObject);
procedure Edit11KeyPress(Sender: TObject; var Key: Char);
procedure Edit21KeyPress(Sender: TObject; var Key: Char);
procedure Edit41KeyPress(Sender: TObject; var Key: Char);
procedure Edit51KeyPress(Sender: TObject; var Key: Char);
procedure Edit52KeyPress(Sender: TObject; var Key: Char);
procedure ToolButton2Click(Sender: TObject);
procedure Edit52MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Edit52Exit(Sender: TObject);
private
{ Private declarations }
isAdd: Boolean;
// oldIndex: smallint;
// vSubBank, vSumUp, vBankOffice, vAccount, vOpenAccount: Variant;
// procedure RefreshPage(Index:integer);
procedure LoadInitInfo;
procedure SaveSubBankInfo;
procedure SaveBankOfficeInfo;
procedure SaveSumUpInfo;
procedure SaveBankAccountInfo;
procedure SaveOpenAccountInfo;
public
{ Public declarations }
end;
var
frmJGYhXxSz: TfrmJGYhXxSz;
HD:Thandle;
implementation
uses uDMFunc, uUserFunc, uConstUtils;
{$R *.DFM}
procedure TfrmJGYhXxSz.FormCreate(Sender: TObject);
begin
// oldIndex := 0;
PageControl1.ActivePageIndex :=0;
DatetimePicker1.Date:=date;
LoadInitInfo;
ToolButton9.Enabled:=false;
end;
procedure TfrmJGYhXxSz.ToolButton1Click(Sender: TObject);
begin
close;
end;
procedure TfrmJGYhXxSz.ToolButton3Click(Sender: TObject);
//增加
var
i: Smallint;
begin
isAdd := True;
ToolButton9.Enabled:=true;
ToolButton2.Enabled:=true;
// for i:=0 to PageControl1.PageCount-1 do
// PageControl1.Pages[i].Enabled := False;
// PageControl1.Pages[pagecontrol1.ActivePageIndex].Enabled := True;
case pagecontrol1.ActivePageIndex of
0: begin
edit11.Enabled:=true;
edit12.Enabled:=true;
ComboBox11.Enabled := true;
ComboBox12.Enabled := true;
DBGrid1.Enabled := False;
end;
1: begin
ComboBox21.Enabled := true;
ComboBox22.Enabled := true;
ComboBox23.Enabled := true;
edit21.Enabled:=true;
edit22.Enabled:=true;
DBGrid2.Enabled := False;
end;
2: begin
ComboBox31.Enabled := true;
edit31.Enabled:=true;
edit32.Enabled:=true;
DBGrid3.Enabled := False;
end;
3: begin
edit41.Enabled:=true;
edit42.Enabled:=true;
DBGrid4.Enabled := False;
end;
4: begin
ComboBox51.Enabled := true;
ComboBox52.Enabled := true;
ComboBox53.Enabled := true;
ComboBox54.Enabled := true;
ComboBox55.Enabled := true;
ComboBox56.Enabled := true;
edit51.Enabled:=true;
edit52.Enabled:=true;
DateTimePicker1.Enabled := True;
DBGrid5.Enabled := False;
end;
end;
end;
procedure TfrmJGYhXxSz.ToolButton4Click(Sender: TObject);
var
sCity,sBank,sSubBank,sSubBankNum,sAccount,sAccountNum,sSumup,sSumupNum,
sBankOffice,sBankOfficeNum,sOpenAccount: String;
dBalance: Double;
dtDate: TDate;
nRet: Smallint ;
begin
if Application.MessageBox('是否要删除当前记录？',PMsgCaption,36)=7 then
exit;
case pagecontrol1.ActivePageIndex of
0: begin
SubBankRec(sCity,sBank,sSubBankNum,sSubBank);
nRet := DelSubBank(sCity,sBank,sSubBankNum);
if nRet =0 then
begin
SubBankInfo('','',DBGrid1);
Application.MessageBox('删除成功',PMsgCaption,64);
end
else
if nRet =3 then
Application.MessageBox('支行已经使用，不能删除!',PMsgCaption,48)
else
Application.MessageBox('删除失败！',PMsgCaption,48);
end;
1: begin
BankOfficeRec(sCity,sBank,sSubBankNum,sBankOfficeNum,sBankOffice);
nRet := DelBankOffice(sCity,sBank,sSubBankNum,sBankOfficeNum);
if nRet=0 then
begin
BankOfficeInfo('','','',DBGrid2);
Application.MessageBox('删除成功',PMsgCaption,64);
end
else
if nRet =3 then
Application.MessageBox('分理处已经使用，不能删除!',PMsgCaption,48)
else
Application.MessageBox('删除失败！',PMsgCaption,48);
end;
2: begin
SumupRec(sCity,sSumupNum,sSumUp);
nRet := DelSumUp(sCity,sSumUpNum);
if nRet=0 then
begin
SumupInfo('',DBGrid3);
Application.MessageBox('删除成功',PMsgCaption,64);
end
else
if nRet =3 then
Application.MessageBox('归集点已经使用，不能删除!',PMsgCaption,48)
else
Application.MessageBox('删除失败！',PMsgCaption,48);
end;
3: begin
BankAccountRec(sAccountNum,sAccount);
nRet := DelBankAccount(sAccountNum);
if nRet=0 then
begin
BankAccountInfo(DBGrid4);
Application.MessageBox('删除成功',PMsgCaption,64);
end
else
if nRet =3 then
Application.MessageBox('帐户已经使用，不能删除!',PMsgCaption,48)
else
Application.MessageBox('删除失败！',PMsgCaption,48);
end;
4: begin
OpenAccountRec(sCity,sBank,sSubBankNum,sBankOfficeNum,
sAccountNum,sSumUpNum,sOpenAccount,dBalance,dtDate);
if DelOpenAccount(sCity,sBank,sSubBankNum,sBankOfficeNum,
sAccountNum,sSumUpNum,sOpenAccount)=0 then
begin
OpenAccountInfo('','','','','','',DBGrid5);
Application.MessageBox('删除成功',PMsgCaption,64);
end
else
Application.MessageBox('删除失败！',PMsgCaption,48);
end;
end;
end;
(*procedure TfrmJGYhXxSz.RefreshPage(Index:integer);
//刷新项目
var
i:smallint;
begin
{ if j = 0 then
begin
DM.P_DsbmInfo;
DM.P_KhYh;
combobox11.Items.Clear;
combobox21.Items.Clear;
combobox31.Items.Clear;
combobox51.Items.Clear;
DM.Qry_User.First;
while not DM.Qry_User.Eof do
begin
combobox11.Items.Add(DM.Qry_User.fieldbyname('dsbh').AsString+' '+
DM.Qry_User.fieldbyname('dsmc').AsString);
combobox21.Items.Add(DM.Qry_User.fieldbyname('dsbh').AsString+' '+
DM.Qry_User.fieldbyname('dsmc').AsString);
combobox31.Items.Add(DM.Qry_User.fieldbyname('dsbh').AsString+' '+
DM.Qry_User.fieldbyname('dsmc').AsString);
combobox51.Items.Add(DM.Qry_User.fieldbyname('dsbh').AsString+' '+
DM.Qry_User.fieldbyname('dsmc').AsString);
DM.Qry_User.Next;
end;
combobox12.Items.Clear;
combobox22.Items.Clear;
combobox52.Items.Clear;
DM.Qry_Search.First;
while not DM.Qry_Search.Eof do
begin
combobox12.Items.Add(DM.Qry_Search.fieldbyname('yhbm').AsString+' '+
DM.Qry_Search.fieldbyname('yhmc').AsString);
combobox22.Items.Add(DM.Qry_Search.fieldbyname('yhbm').AsString+' '+
DM.Qry_Search.fieldbyname('yhmc').AsString);
combobox52.Items.Add(DM.Qry_Search.fieldbyname('yhbm').AsString+' '+
DM.Qry_Search.fieldbyname('yhmc').AsString);
DM.Qry_Search.Next;
end;
j:= j+1;
end;
case index of
0: begin
if (DMTag[0,0]=1) or (DMTag[1,0]=1) then
begin
DM.P_YhInfo;
for i:=0 to 5 do
dbgrid1.Columns[i].Title.Alignment:=taCenter;
dbgrid1.Columns[0].Visible:=false;
dbgrid1.Columns[1].Title.caption:='地市名称';
dbgrid1.Columns[1].Width:=70;
dbgrid1.Columns[2].Visible:=false;
dbgrid1.Columns[3].Title.caption:='银行名称';
dbgrid1.Columns[3].Width:=70;
dbgrid1.Columns[4].Title.caption:='支行编号';
dbgrid1.Columns[4].Width:=60;
dbgrid1.Columns[5].Title.caption:='支行名称';
dbgrid1.Columns[5].Width:=160;
DMTag[0,0]:=0;
DMTag[1,0]:=0;
DMTag[0,1]:=1;
DMTag[0,4]:=1;
end;
end;
1: begin
if (DMTag[0,1]=1) or (DMTag[1,1]=1) then
begin
DM.P_FlInfo;
for i:=0 to 7 do
dbgrid2.Columns[i].Title.Alignment:=taCenter;
dbgrid2.Columns[0].Visible:=false;
dbgrid2.Columns[1].Title.caption:='地市名称';
dbgrid2.Columns[1].Width:=70;
dbgrid2.Columns[2].Visible:=false;
dbgrid2.Columns[3].Title.caption:='银行名称';
dbgrid2.Columns[3].Width:=70;
dbgrid2.Columns[4].Visible:=false;
dbgrid2.Columns[5].Title.caption:='支行名称';
dbgrid2.Columns[5].Width:=160;
dbgrid2.Columns[6].Title.caption:='分理处编号';
dbgrid2.Columns[6].Width:=70;
dbgrid2.Columns[7].Title.caption:='分理处名称';
dbgrid2.Columns[7].Width:=180;
DMTag[0,1]:=0;
DMTag[1,1]:=0;
DMTag[0,4]:=1;
end;
end;
2: begin
if (DMTag[0,2]=1) or (DMTag[1,2]=1) then
begin
DM.P_GjdInfo;
for i:=0 to 3 do
dbgrid3.Columns[i].Title.Alignment:=taCenter;
dbgrid3.Columns[0].Visible:=false;
dbgrid3.Columns[1].Title.caption:='地市名称';
dbgrid3.Columns[1].Width:=70;
dbgrid3.Columns[2].Title.caption:='归集点编号';
dbgrid3.Columns[2].Width:=70;
dbgrid3.Columns[3].Title.caption:='归集点名称';
dbgrid3.Columns[3].Width:=160;
DMTag[0,2]:=0;
DMTag[1,2]:=0;
DMTag[0,4]:=1;
end;
end;
3: begin
if (DMTag[0,3]=1) or (DMTag[1,3]=1) then
begin
DM.P_ZhInfo;
for i:=0 to 1 do
dbgrid4.Columns[i].Title.Alignment:=taCenter;
dbgrid4.Columns[0].Title.caption:='帐户编号';
dbgrid4.Columns[1].Title.caption:='帐户名称';
end;
end;
4: begin
if (DMTag[0,4]=1) or (DMTag[1,4]=1) then
begin
DM.P_KhInfo;
for i:=0 to 14 do
dbgrid5.Columns[i].Title.Alignment:=taCenter;
dbgrid5.Columns[0].Visible:=false;
dbgrid5.Columns[1].Title.caption:='地市名称';
dbgrid5.Columns[1].Width:=70;
dbgrid5.Columns[2].Visible:=false;
dbgrid5.Columns[3].Title.caption:='归集点名称';
dbgrid5.Columns[3].Width:=100;
dbgrid5.Columns[4].Visible:=false;
dbgrid5.Columns[5].Title.caption:='帐户名称';
dbgrid5.Columns[5].Width:=110;
dbgrid5.Columns[6].Visible:=false;
dbgrid5.Columns[7].Title.caption:='银行名称';
dbgrid5.Columns[7].Width:=70;
dbgrid5.Columns[8].Visible:=false;
dbgrid5.Columns[9].Title.caption:='支行名称';
dbgrid5.Columns[9].Width:=150;
dbgrid5.Columns[10].Visible:=false;
dbgrid5.Columns[11].Title.caption:='分理处名称';
dbgrid5.Columns[11].Width:=180;
dbgrid5.Columns[12].Title.caption:='银行开户帐号';
dbgrid5.Columns[13].Title.caption:='日期';
dbgrid5.Columns[13].Width:=80;
dbgrid5.Columns[14].Title.caption:='余额';
DMTag[0,4]:=0;
DMTag[1,4]:=0;
end;
end;
end; }
end;
*)
procedure TfrmJGYhXxSz.ToolButton5Click(Sender: TObject);
var
i, l:smallint;
sCity,sBank,sSubBank,sSubBankNum,sAccount,sAccountNum,sSumup,sSumupNum,
sBankOffice,sBankOfficeNum,sOpenAccount: String;
dBalance: Double;
dtDate: TDate;
begin
isAdd:= False;
ToolButton9.Enabled:=true;
ToolButton2.Enabled:=true;
// for i:=0 to PageControl1.PageCount-1 do
// PageControl1.Pages[i].Enabled := False;
// PageControl1.Pages[pagecontrol1.ActivePageIndex].Enabled := True;
case pagecontrol1.ActivePageIndex of
0: begin
edit12.Enabled:=true;
SubBankRec(sCity,sBank,sSubBankNum,sSubBank);
for i:=0 to ComboBox11.Items.Count -1 do
begin
l := Pos(' ', ComboBox11.Items.Strings[i])-1;
if sCity = trim(copy(ComboBox11.Items.Strings[i],1,l)) then
begin
ComboBox11.ItemIndex := i;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -