a04040f002unit.pas

工商收费系统,主要是管理非税收收入的费用的管理

unit A04040F002Unit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, Buttons, ComCtrls, Mask, DBCtrls, ImgList, Db, ADODB,
  ToolWin,Variants;


type StrArray=array [0..3] of string;// 自定义
type pStrArray=^StrArray;            // 自定义
type
  TA04040F002Frm = class(TForm)
    ToolBar1: TToolBar;
    PrintTBBtn: TToolButton;
    PreviewTBBtn: TToolButton;
    SaveTBBtn: TToolButton;
    AbortTBBtn: TToolButton;
    ExitTBBtn: TToolButton;
    HelpTBBtn: TToolButton;
    ImageList1: TImageList;
    ImageList2: TImageList;
    SelectAQey: TADOQuery;
    TD04ATbl: TADOTable;
    TD04Dt: TDataSource;
    Panel3: TPanel;
    SpeedButton5: TSpeedButton;
    TD04jsrEdt: TDBEdit;
    Label6: TLabel;
    DBEdit1: TDBEdit;
    Panel1: TPanel;
    Shape1: TShape;
    Shape22: TShape;
    Shape9: TShape;
    Shape3: TShape;
    Label11: TLabel;
    Shape12: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Shape5: TShape;
    Shape18: TShape;
    Shape19: TShape;
    Shape20: TShape;
    Shape21: TShape;
    Shape23: TShape;
    Shape24: TShape;
    Shape26: TShape;
    Label3: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    Label23: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label36: TLabel;
    SpeedButton2: TSpeedButton;
    Shape33: TShape;
    MoneyEdt: TEdit;
    MonthCalendar1: TMonthCalendar;
    MouthEdt: TMaskEdit;
    YearEdt: TMaskEdit;
    DayEdt: TMaskEdit;
    TD04OutNameDBEdt: TDBEdit;
    TD04OutCodeDBEdt: TDBEdit;
    TD04OutBankDBEdt: TDBEdit;
    TD04InNameDBEdt: TDBEdit;
    TD04InCodeDBEdt: TDBEdit;
    TD04KindDBEdt: TDBEdit;
    TD04NumDBEdt: TDBEdit;
    AddTBBtn: TToolButton;
    InDBEdt: TDBEdit;
    Shape7: TShape;
    Label2: TLabel;
    Label4: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    Shape2: TShape;
    Shape4: TShape;
    DBEdit15: TDBEdit;
    SpeedButton1: TSpeedButton;
    SpeedButton3: TSpeedButton;
    DBEdit4: TDBEdit;
    TD04InBankDBEdt: TDBEdit;
    DBEdit13: TDBEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    ToolButton1: TToolButton;
    SpeedButton4: TSpeedButton;
    TC07ATbl: TADOTable;
    DBEdit12: TDBEdit;

    DBEdit14: TDBEdit;
    procedure SpeedButton2Click(Sender: TObject);
    procedure YearEditExit(Sender: TObject);
    procedure MouthEditExit(Sender: TObject);
    procedure DayEditExit(Sender: TObject);
    Function EnglishToChina(strYear:string;strMouth:String;strDay:String
                            ):pStrArray;
    procedure YearEditClick(Sender: TObject);
    procedure MouthEditClick(Sender: TObject);
    procedure DayEditClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SaveTBBtnClick(Sender: TObject);
    procedure AbortTBBtnClick(Sender: TObject);
    procedure ExitTBBtnClick(Sender: TObject);
    procedure MoneyEdtExit(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure TD04OutNameDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MouthEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DayEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TD04OutCodeDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TD04OutBankDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TD04InNameDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TD04InCodeDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TD04InBankDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MoneyEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TD04KindDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TD04CodeDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure YearEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TD04jsrEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure OutSBtnClick(Sender: TObject);
    procedure InSBtnClick(Sender: TObject);
    procedure PreviewTBBtnClick(Sender: TObject);
    procedure AddTBBtnClick(Sender: TObject);
    procedure MonthCalendar1DblClick(Sender: TObject);
    procedure TD04OutNameDBEdtEnter(Sender: TObject);
    procedure TD04OutNameDBEdtExit(Sender: TObject);
    procedure TD04OutCodeDBEdtExit(Sender: TObject);
    procedure TD04OutBankDBEdtEnter(Sender: TObject);
    procedure TD04OutBankDBEdtExit(Sender: TObject);
    procedure TD04InNameDBEdtEnter(Sender: TObject);
    procedure TD04InNameDBEdtExit(Sender: TObject);
    procedure TD04InCodeDBEdtEnter(Sender: TObject);
    procedure TD04InCodeDBEdtExit(Sender: TObject);
    procedure TD04InBankDBEdtEnter(Sender: TObject);
    procedure TD04InBankDBEdtExit(Sender: TObject);
    procedure MoneyEdtEnter(Sender: TObject);
    procedure TD04KindDBEdtEnter(Sender: TObject);
    procedure TD04KindDBEdtExit(Sender: TObject);
    procedure TD04NumDBEdtEnter(Sender: TObject);
    procedure TD04NumDBEdtExit(Sender: TObject);
    procedure InDBEdtEnter(Sender: TObject);
    procedure InDBEdtExit(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure DBEdit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit12KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure TD04NumDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit9KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit13KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure InDBEdtKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit10KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit11KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure DBEdit14KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    function DBEditcheck(edt:TDBEdit):Currency;
    function Editcheck(ed:TDBEdit):Currency;
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit3KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit4KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit5KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit6KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit7KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit8KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ToolButton1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure DBEdit6Exit(Sender: TObject);
    procedure DBEdit8Exit(Sender: TObject);
    procedure DBEdit10Exit(Sender: TObject);
    procedure DBEdit7Exit(Sender: TObject);
    procedure DBEdit9Exit(Sender: TObject);
    procedure DBEdit11Exit(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure SpeedButton4Click(Sender: TObject);
  private
     strYear:string;
     strMouth:string;
     strDay:string;
     retArray:strArray;
     strForSaveMoney:string;
     strForSaveDate:string;
     intErrCounts:Integer;  // errno用来记录数据填加时的错误项数
                           // 初始化为当前必填的项目数，每正确填加一项将减一
    { Private declarations }
  public
    { Public declarations }
     strEditArray:array [0..2] of string;
     striniHelpName:string;
    gstrOperaterName:string;//操作员
    gstrInputMethod:string;//输入法
    currstat:string;
    RecNo:string;
  end;

var
  A04040F002Frm: TA04040F002Frm;

implementation

uses GlobalLibUnit, F007Unit, A0106F002Unit, A0107F002Unit,
   DataLinkUnit, A02050Unit, A04040Unit, LeftAndTopUnit;

////////////////////////////////////////////////
//函数名：EnglishToChina
//作用：把年月日以变量输入，生成日期字符与汉字大写
//输入参数：strYear:string;年的“2001”字符形式
//          strMouth:String;月的“01”字符形式
//          strDay:String；日的“01”字符形式
//输出参数：retArray[0]；日期字符
//          retArray[1]；年汉字大写
//          retArray[2]；月汉字大写
//          retArray[3]；日汉字大写
//使用方法；定义：在TYPE之前定义
//                type StrArray=array [0..3] of string;
//                type pStrArray=^StrArray;
//          调用：例
//                var
//                   pp:pStrArray;
//                begin
//                   pp:=EnglishToChina(strYear,strMouth,strDay);
//                   Label12.Caption :=(pp^)[0]+''+(pp^)[1]+'年'+(pp^)[2]+'月'+(pp^)[3]+'日';
//                end;
//编制人：李刚
//编制日期：2001-09-27
////////////////////////////////////////////////
Function TA04040F002Frm.EnglishToChina(strYear:string;strMouth:String;strDay:String
                                  ):pStrArray;
var
   retData:string;
   strPoint:array [0..3] of string;
   strDPoint:string;
   i:integer;
begin
   retData:=strYear+strMouth+strDay;
   strPoint[0]:=Copy(strYear,1,1);
   strPoint[1]:=Copy(strYear,2,1);
   strPoint[2]:=Copy(strYear,3,1);
   strPoint[3]:=Copy(strYear,4,1);
   for i:= 0 to 3 do
      begin
         strDPoint:= strPoint[i];
         case StrToInt(strDPoint) of
            1:strDPoint:='壹';
            2:strDPoint:='贰';
            3:strDPoint:='叁';
            4:strDPoint:='肆';
            5:strDPoint:='伍';
            6:strDPoint:='陆';
            7:strDPoint:='柒';
            8:strDPoint:='捌';
            9:strDPoint:='玖';
            0:strDPoint:='零';
         end;
         strPoint[i]:=strDPoint
      end;
   strYear:=strPoint[0]+strPoint[1]+strPoint[2]+strPoint[3];
   case StrToInt(strMouth) of
      01:strMouth:='零壹';
      02:strMouth:='零贰';
      03:strMouth:='零叁';
      04:strMouth:='零肆';
      05:strMouth:='零伍';
      06:strMouth:='零陆';
      07:strMouth:='零柒';
      08:strMouth:='零捌';
      09:strMouth:='零玖';
      10:strMouth:='壹拾';
      11:strMouth:='拾壹';
      12:strMouth:='拾贰';
   end;
   case StrToInt(strDay) of
      01:strDay:= '零壹';
      02:strDay:= '零贰';
      03:strDay:= '零叁';
      04:strDay:= '零肆';
      05:strDay:= '零伍';
      06:strDay:= '零陆';
      07:strDay:= '零柒';
      08:strDay:= '零捌';
      09:strDay:= '零玖';
      10:strDay:= '壹拾';
      11:strDay:= '拾壹';
      12:strDay:= '拾贰';
      13:strDay:= '拾叁';
      14:strDay:= '拾肆';
      15:strDay:= '拾伍';
      16:strDay:= '拾陆';
      17:strDay:= '拾柒';
      18:strDay:= '拾捌';
      19:strDay:= '拾玖';
      20:strDay:= '贰拾';
      21:strDay:= '贰拾壹';
      22:strDay:= '贰拾贰';
      23:strDay:= '贰拾叁';
      24:strDay:= '贰拾肆';
      25:strDay:= '贰拾伍';
      26:strDay:= '贰拾陆';
      27:strDay:= '贰拾柒';
      28:strDay:= '贰拾捌';
      29:strDay:= '贰拾玖';
      30:strDay:= '叁拾';
      31:strDay:= '叁拾壹';
   end;
   retArray[0]:=retData;
   retArray[1]:=strYear;
   retArray[2]:=strMouth;
   retArray[3]:=strDay;
   result:=@retArray;
end;

{$R *.DFM}

procedure TA04040F002Frm.SpeedButton2Click(Sender: TObject);
var
   WordYear:Word;
   WordMouth:Word;
   WordDay:Word;
begin
   MonthCalendar1.Left :=152;
   MonthCalendar1.Top :=64;
   MonthCalendar1.Visible:=not MonthCalendar1.Visible;
   if  not MonthCalendar1.Visible  then
      begin
         DecodeDate(MonthCalendar1.Date,WordYear,WordMouth,WordDay);
         YearEdt.Text :=IntToStr(WordYear);
         MouthEdt.Text :=IntToStr(WordMouth);
         DayEdt.Text :=IntToStr(WordDay);
      end
   else
      begin
         try
            MonthCalendar1.Date :=EncodeDate(StrToInt(YearEdt.Text),
                                  StrToInt(trim(MouthEdt.Text)),
                                  StrToInt(trim(DayEdt.Text)));
         except
            Application.MessageBox('开票日期填写有错误，请检查填写内容',
                       '提示',MB_OK+MB_DefButton1+MB_IconInformation+MB_ApplModal);
            yearEdt.SetFocus;
         end;
      end;