?? ss_jypfhzcsh.pas
字號:
{*******************************************************}
{ }
{ 集郵票分戶帳余額初始化 }
{ }
{ 中軟金馬公司版權所有。2002.12前 }
{ }
{ 編制：中軟金馬郵資票品項目開發組 }
{ }
{ }
{*******************************************************}
(*
本模塊在省級系統管理模塊里的集郵票，集郵品，零枚，購入票里面調用。
*)
unit SS_JYPFHZCSH;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
FORMBASE, ExtCtrls, ModiPanel, StdCtrls, Mask, ToolEdit, Grids, DBGrids,
Db, DBTables, sqlstrings, RXCtrls, Menus, DBGridExport,Pub;
type
Tfrm_JYPZFHZYEB = class(TFFormBase)
ModiPanel1: TModiPanel;
DBGrid1: TDBGrid;
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
qryJYPZFHZYEB: TQuery;
UpdateSQL1: TUpdateSQL;
DataSource1: TDataSource;
Edit2: TEdit;
SqlStrings: TSqlStrings;
UpdateSQL2: TUpdateSQL;
UpdateSQL3: TUpdateSQL;
UpdateSQL4: TUpdateSQL;
Panel11: TPanel;
RxLabel1: TRxLabel;
DWMC: TLabel;
qry_Tmp: TQuery;
procedure ModiPanel1BtnClick(Index: TBtnVisible);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure qryJYPZFHZYEBAfterOpen(DataSet: TDataSet);
procedure qryJYPZFHZYEBUpdateError(DataSet: TDataSet;
E: EDatabaseError; UpdateKind: TUpdateKind;
var UpdateAction: TUpdateAction);
private
{ Private declarations }
FDtState: TDataState;
upObject: array[io_jyp..io_grp] of TUpdateSQL;
procedure SetState(Value: TdataState);
function Save: Boolean;
procedure SR_Change(Sender: TField); {輸入改變，金額改變}
procedure SetText(Sender: TField; const Text: string);
public
{ Public declarations }
end;
function Show_JYPZFHZYEB(t_typ: TIO_TYPE; const SenderTag: Integer): Boolean;
var
frm_JYPZFHZYEB: Tfrm_JYPZFHZYEB;
implementation
uses datas, SS_main;
{$R *.DFM}
{集郵票、零枚票、集郵品、市場購入票 分戶帳初始化模塊，將回款金額(元)字段取出，更正了系統的錯誤
采用系統啟用時間進行查詢。
石玉琢 2001.09.25 修改}
const
//不同票品模塊設置的字段名。
GridMsg: array[io_jyp..io_grp] of array[0..4] of string = (
('YJZJJE', 'YJTJJE', 'YJHKJE', 'YJZXJE', 'YJYE'),
('ZJJE', 'TJJE', 'HKJE', 'ZXJE', 'YE'),
('YJZJJE', 'YJTJJE', 'YJHKJE', 'YJZXJE', 'YJYE'),
('YJZJJE', 'YJTJJE', 'YJHKJE', 'YJZXJE', 'YJYE'));
var
l_typ: TIO_TYPE; //xzy7@163.com
function Show_JYPZFHZYEB(t_typ: TIO_TYPE; const SenderTag: Integer): Boolean;
begin
Result := false;
l_typ := t_typ;
Application.CreateForm(Tfrm_JYPZFHZYEB, frm_JYPZFHZYEB); {}
with frm_JYPZFHZYEB do {frmJYPZFHZYEB}
try
Tag := SenderTag;
if CheckRight(frm_JYPZFHZYEB, [ModiPanel1]) then
begin
Caption := CYZPPTIT;
DWMC.Caption := '使用單位：' + VG_UnitName;
RxLabel1.Caption := pCaption[integer(l_typ)] + '分戶帳初始化';
result := ShowModal = MB_OK;
end;
finally
Free;
end;
end;
procedure Tfrm_JYPZFHZYEB.SetState(Value: TdataState);
begin
if (Value in [dtInsert, dtEdit]) and ((Edit2.Text = '') or (Edit1.Text = '')) then exit;
FDtState := Value;
ModiPanel1.ChangeMode(FDtState = dtBrowse);
DBGrid1.ReadOnly := (FDtState = dtBrowse);
ModiPanel1.FButtons[bnEdit].Enabled := (FDtState = dtBrowse) and (not (InitOver(l_typ) >= 0));
ModiPanel1.FButtons[bnDelete].Enabled := not (FDtState = dtBrowse);
with qryJYPZFHZYEB do
case Fdtstate of
dtBrowse: ; {browse}
dtinsert: Append; {append}
dtedit:
begin {edit}
begin
Edit;
DBGrid1.SetFocus;
if (DBGrid1.SelectedIndex = 0) or (DBGrid1.SelectedIndex = 5) then
DBGrid1.SelectedIndex := 1;
end;
end;
end;
{syz，如果沒有初始化，則設置編輯按鈕變灰}
if (Edit2.Text = '') or (Edit1.Text = '') then
ModiPanel1.FButtons[bnEdit].Enabled := False;
end;
function Tfrm_JYPZFHZYEB.Save: Boolean;
const
DALL_SQL = 'delete from %s';
dTable: array[io_jyp..io_grp] of string = ('TYS_JYPZFHZYEB', 'TYS_TXPZFHZYEB', 'TYS_YPZFHZYEB', 'TYS_GRPZFHZYEB');
var
OldBookmark: TBookMark;
procedure InstOrUpdate;
var
i: integer;
begin
with qryJYPZFHZYEB do {query}
begin
data.qrytmp.Sql.Text := upObject[l_typ].InsertSQL.Text;
data.qrytmp.ParamByName('DWDM').Asstring := FieldByName('DWDM').Asstring;
data.qrytmp.ParamByName('ND').Asstring := Edit1.Text;
data.qrytmp.ParamByName('YF').Asstring := Edit2.Text;
for i := 0 to 4 do
data.qrytmp.ParamByName(GridMsg[l_typ][i]).AsFloat :=
iif(FieldByName(GridMsg[l_typ][i]).isNull, 0, FieldByName(GridMsg[l_typ][i]).AsFloat);
data.qrytmp.ExecSQL;
end;
end;
begin
with qryJYPZFHZYEB do {query}
begin
OldBookMark := qryJYPZFHZYEB.GetBookmark;
Database.StartTransaction;
try
SetData(Format(DALL_SQL, [dTable[l_typ]]));
DisableControls;
First;
while not Eof do
begin
InstOrUpdate;
Next;
end;
EnableControls;
Database.Commit;
result := True;
except
EnableControls;
if Database.InTransaction then Database.RollBack;
if errMsg = '' then
raise
else
raise exception.Create(errMsg);
end;
qryJYPZFHZYEB.GotoBookMark(OldBookMark);
SetState(dtBrowse);
end;
end;
procedure Tfrm_JYPZFHZYEB.ModiPanel1BtnClick(Index: TBtnVisible);
begin
inherited;
case index of
bnAdd: SetState(dtInsert);
bnDelete: ;
bnEdit:
begin
if Trim(qryJYPZFHZYEB.FieldByName('DWDM').AsString) = '' then
Exit;
SetState(dtEdit);
end;
bnSave: Save;
bnCancel:
if CHQMsgBox('取消編輯, 確定嗎?', 2) = IDYES then
begin
qryJYPZFHZYEB.Close;
qryJYPZFHZYEB.Open;
SetState(dtBrowse);
end;
bnPrint: {print}
PrintDBGrid(DBGrid1, RxLabel1.Caption);
bnClose: Close;
end;
end;
procedure Tfrm_JYPZFHZYEB.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
if (FDtstate in [dtInsert, dtEdit]) then
case CHQMsgBox(MSG_EXITSAVE, 3) of
IDYES:
if not Save then Action := caNone;
IDCANCEL: Action := caNone;
end;
end;
procedure Tfrm_JYPZFHZYEB.FormCreate(Sender: TObject);
var
i: integer;
nd, yf: string;
Tmp_Str: string;
begin
inherited;
ModiPanel1.FButtons[bnEdit].Tag := 201;
GetInitDate(nd, yf, l_typ);
Edit1.Text := nd;
Edit2.Text := yf;
if qryJYPZFHZYEB.Active then qryJYPZFHZYEB.Close;
upObject[io_jyp] := UpdateSQL1;
upObject[io_txp] := UpdateSQL2;
upObject[io_yp] := UpdateSQL3;
upObject[io_grp] := UpdateSQL4;
Caption := pCaption[integer(l_Typ)] + '分戶帳余額初始化';
qryJYPZFHZYEB.SQL := SqlStrings.FSqlText[l_typ];
qryJYPZFHZYEB.UpdateObject := upObject[l_typ];
for i := 0 to 4 do
DBGrid1.Columns[i + 1].FieldName := GridMsg[l_typ][i];
qryJYPZFHZYEB.Open;
SetState(dtBrowse);
{補丁，用來給出提示}{syz}
{-----------------------判斷年度-----------------------}
case l_typ of
io_jyp: Tmp_Str := 'jyp_csh_n';
io_txp: Tmp_Str := 'txp_csh_n';
io_yp: Tmp_Str := 'yp_csh_n';
io_grp: Tmp_Str := 'grp_csh_n';
end;
with qry_Tmp do
begin
Close;
SQL.Text := 'Select ZFXZ From TGS_ZB Where DM=''' + Tmp_Str + '''';
Open;
if FieldByName('ZFXZ').AsString = '' then
begin
CHQMsgBox('初始化日期沒有設定！請進行初始化日期設定，然后才能進行分戶帳初始化！');
Exit;
end;
end;
{-----------------------判斷月份-----------------------}
case l_typ of
io_jyp: Tmp_Str := 'jyp_csh_y';
io_txp: Tmp_Str := 'txp_csh_y';
io_yp: Tmp_Str := 'yp_csh_y';
io_grp: Tmp_Str := 'grp_csh_y';
end;
with qry_Tmp do
begin
Close;
SQL.Text := 'Select ZFXZ From TGS_ZB Where DM=''' + Tmp_Str + '''';
Open;
if FieldByName('ZFXZ').AsString = '' then
begin
CHQMsgBox('初始化日期沒有設定！請進行初始化日期設定，然后才能進行分戶帳初始化！');
Exit;
end;
end;
{-----------------------判斷是否結束-------------------------}
case l_typ of
io_jyp: Tmp_Str := 'jyp_csh_js';
io_txp: Tmp_Str := 'txp_csh_js';
io_yp: Tmp_Str := 'yp_csh_js';
io_grp: Tmp_Str := 'grp_csh_js';
end;
with qry_Tmp do
begin
Close;
SQL.Text := 'Select ZFXZ From TGS_ZB Where DM=''' + Tmp_Str + '''';
Open;
if (FieldByName('ZFXZ').AsString = 'Y') or (FieldByName('ZFXZ').AsString = 'YY') then
begin
CHQMsgBox('初始化已經完成，現在只能進行查看！');
Exit;
end;
end;
end;
{-------------------------------------------------------------------------------}
{設置接收文本方式}{syz}
procedure Tfrm_JYPZFHZYEB.qryJYPZFHZYEBAfterOpen(DataSet: TDataSet);
var
i: integer;
begin
with DataSet do
begin
for i := 0 to 4 do
TNumericField(FieldByName(GridMsg[l_typ][i])).OnGetText := nDisplay.GetText;
for i := 0 to 2 do
TNumericField(FieldByName(GridMsg[l_typ][i])).OnSetText := SetText;
TNumericField(FieldByName(GridMsg[l_typ][4])).OnSetText := nDisplay.SetText;
end;
{增加事件}
qryJYPZFHZYEB.FieldByName(GridMsg[l_typ][0]).OnChange := SR_Change;
qryJYPZFHZYEB.FieldByName(GridMsg[l_typ][1]).OnChange := SR_Change;
qryJYPZFHZYEB.FieldByName(GridMsg[l_typ][2]).OnChange := SR_Change;
end;
{-------------------------------------------------------------------------------}
{控制金額輸入不能為負}
procedure Tfrm_JYPZFHZYEB.SetText(Sender: TField; const Text: string);
begin
if StrToFloat(Text) < 0 then
begin
CHQMsgBox('輸入金額不能為負！');
Abort;
end;
Sender.AsFloat := strToFloat(Text) * 100;
end;
{-------------------------------------------------------------------------------}
{輸入改變，金額改變}{syz}
procedure Tfrm_JYPZFHZYEB.SR_Change(Sender: TField);
begin
with qryJYPZFHZYEB do
begin
Edit;
FieldByName(GridMsg[l_typ][4]).AsFloat := FieldByName(GridMsg[l_typ][0]).AsFloat -
FieldByName(GridMsg[l_typ][1]).AsFloat - FieldByName(GridMsg[l_typ][2]).AsFloat;
end;
end;
procedure Tfrm_JYPZFHZYEB.qryJYPZFHZYEBUpdateError(DataSet: TDataSet;
E: EDatabaseError; UpdateKind: TUpdateKind;
var UpdateAction: TUpdateAction);
begin
inherited;
case GetErrCode(DataSet, E, ErrMsg) of
Err_NoMasterRec: errMsg := errMsg + '&_&' + Format(MST_NOREC, ['', '', '']);
Err_HasDetailRec: errMsg := errMsg + '&_&' + Format(DTL_EXSTREC, ['']);
Err_RecDouble: errMsg := errMsg + '&_&' + Format(DBL_REC, ['']);
Err_NotNull: errMsg := errMsg + '&_&' + Format(NOTNULL, ['']);
else
errMsg := errMsg + '&_&' + OTHERERROR;
end;
end;
{
SELECT G.DWJC DWMC, J.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE
FROM TYS_GRPZFHZYEB J, TGS_GXDWSJB G
WHERE G.DWDM = J.DWDM(+) AND FHDX = '1'
and G.JYYW='1'
order by PXM
SELECT G.DWJC DWMC, J.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE
From TYS_GRPZFHZYEB J,
(Select * from TGS_GXDWSJB where FHDX = '1' and JYYW = '1')G
where G.DWDM(+) = J.DWDM
order by G.PXM
SELECT G.DWJC DWMC, J.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE
FROM TYS_JYPZFHZYEB J, TGS_GXDWSJB G
WHERE G.DWDM = J.DWDM(+ ) and FHDX = '1'
and G.JYYW = '1'
order by PXM
SELECT G.DWJC DWMC, J.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE
FROM TYS_JYPZFHZYEB J,
(Select * from TGS_GXDWSJB Where FHDX = '1' and JYYW = '1')G
Where G.DWDM(+) = J.DWDM
order by G.PXM
SELECT G.DWJC DWMC, G.DWDM, ND, YF, ZJJE, TJJE, HKJE, ZXJE, YE
FROM TYS_TXPZFHZYEB J, TGS_GXDWSJB G
WHERE G.DWDM = J.DWDM(+) AND FHDX = '1'
and G.TXYW='1'
order by PXM
SELECT G.DWJC DWMC, J.DWDM, ND, YF, ZJJE, TJJE, HKJE, ZXJE, YE
FROM TYS_TXPZFHZYEB J,
(Select * From TGS_GXDWSJB Where FHDX = '1' and TXYW='1')G
Where G.DWDM(+)= J.DWDM
order by G.PXM
SELECT G.DWJC DWMC, G.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE
FROM TYS_YPZFHZYEB J, TGS_GXDWSJB G
WHERE G.DWDM = J.DWDM(+) AND FHDX = '1'
and G.JYYW='1'
order by PXM
SELECT G.DWJC DWMC, J.DWDM, ND, YF, YJZJJE, YJTJJE, YJHKJE, YJZXJE, YJYE
FROM TYS_YPZFHZYEB J,
(Select * From TGS_GXDWSJB Where FHDX = '1' and JYYW='1') G
Where G.DWDM(+) = J.DWDM
order by G.PXM
}
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -