unit5.~pas

正配置数据才能运行 1.如果你没有配置数据库,那会提示你没有配置,强出一个框,你按确定后,进入登陆窗口,在最下面有一个新键配置方案,单击此处,然后弹出一个配置框,相信编写数据的朋友们应该知道怎么做了吧

unit Unit5;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, ToolWin, StdCtrls, ExtCtrls, Gauges, Grids,
  DBGrids, DB, WinSkinData, se_controls ;

type
  TForm5 = class(TForm)
    palUp: TPanel;
    palLeftUp: TPanel;
    imgGrayLeftUp: TImage;
    imgColorLeftUp: TImage;
    imgLeftUp: TImage;
    imgSysIcon: TImage;
    imgLeftUp1: TImage;
    palRightUp: TPanel;
    imgGrayRightUp: TImage;
    imgRestoreButton: TImage;
    imgMaxButton: TImage;
    imgRightUp: TImage;
    imgCloseButton: TImage;
    imgMinButton: TImage;
    imgSizeButton: TImage;
    imgColorRightUp: TImage;
    imgRightUp1: TImage;
    palUpMid: TPanel;
    imgColorMenubar: TImage;
    imgGrayCaption: TImage;
    imgGrayMenuBar: TImage;
    imgCaption: TImage;
    lbCaption: TLabel;
    imgColorCaption: TImage;
    CoolBarMenu: TCoolBar;
    ToolBarMenu: TToolBar;
    palDown: TPanel;
    imgLeftDown: TImage;
    imgRightDown: TImage;
    imgDownMin: TImage;
    palLeft: TPanel;
    imgLeft: TImage;
    palRight: TPanel;
    imgRight: TImage;
    palClient: TPanel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    RadioButton1: TRadioButton;
    GroupBox4: TGroupBox;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    RadioButton2: TRadioButton;
    GroupBox5: TGroupBox;
    Label3: TLabel;
    Label4: TLabel;
    Button3: TButton;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    StatusBar1: TStatusBar;
    ComboBox1: TComboBox;
    GroupBox6: TGroupBox;
    Label5: TLabel;
    RadioButton3: TRadioButton;
    Edit6: TEdit;
    procedure imgCloseButtonClick(Sender: TObject);
    procedure lbCaptionMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure lbCaptionMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure lbCaptionMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure Edit3Exit(Sender: TObject);
    procedure Edit5Exit(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure imgCaptionMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure imgCaptionMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure imgCaptionMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure Edit4Exit(Sender: TObject);
  private
    {发票种类变量}
    FpZL : String ;
    {当选择框选择哪个时，把汉字转为拼音，以对表的名字}
    Fppy : String ;  
    //移动窗体
    canmove:boolean;
    curPoint:TPoint;
    oldPoint:TPoint;
    Canvas:TCanvas;
    {查找租赁业发票}
    procedure Zlyfp();
    {查找转让无形资产发票}
    procedure ZrwxzcFP();
    {查找其它服务业发票}    
    procedure QtfwyFP() ;
    {查找转让不动产发票}
    procedure ZrbdcFP() ;
    {查找建筑业发票}
    procedure JzyFP() ;

  public
    Jdt : integer;
    { Public declarations }
  end;

var
  Form5: TForm5;

implementation
uses unit4, unit3 ;
{$R *.dfm}

procedure TForm5.imgCloseButtonClick(Sender: TObject);
begin
  close;
end;

procedure TForm5.lbCaptionMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button=mbLeft)and(ssLeft in Shift)then
  begin
    canmove:=true;
    Canvas:=TCanvas.Create;
    with Canvas do
    begin
      pen.Style :=psdot;
      brush.Style :=bsClear;
      pen.Width :=2;
      Pen.Mode :=pmNotXor;
      Handle :=GetDC(0);
      Rectangle(left,top,Left+width,top+height);
      curPoint.X :=X;
      curPoint.Y :=Y;
      oldPoint.X :=Left;
      oldPoint.Y :=Top;
    end;        //end with
  end;  //end if
end;

procedure TForm5.lbCaptionMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not canmove then exit;
  with Canvas do
  begin
    Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);
    oldPoint.x :=Left +X-curPoint.x;
    oldPoint.y :=Top +Y-curPoint.y;
    Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);
  end;
end;

procedure TForm5.lbCaptionMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if not canmove then exit;
  with Canvas do
  begin
    Rectangle(oldPoint.x,oldPoint.y,oldPoint.x+Width,oldPoint.y+Height);
    Left :=oldPoint.x;
    Top :=oldPoint.y;
    Free;
  end;
  canmove:=not canmove;
end;

procedure TForm5.Button2Click(Sender: TObject);
begin
  form5.Close ;
end;

procedure TForm5.RadioButton1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
     GroupBox4.Enabled := true;
     GroupBox5.Enabled := False;
     GroupBox6.Enabled := False;
  end;
end;

procedure TForm5.RadioButton2Click(Sender: TObject);
begin
  if RadioButton2.Checked then
  begin
     GroupBox5.Enabled := true;
     GroupBox4.Enabled := False;
     GroupBox6.Enabled := False;
  end;
end;
//把数字转为大写人民币
Function DatoFB(da:string):string;
var
aa:array[0..11] of string;
i,j,ln,ln1:integer;
s,sn,pa:string;
x:pchar;
begin
       aa[0]:='分';
       aa[1]:='角';
       aa[3]:='元';
       aa[4]:='拾';
       aa[5]:='佰';
       aa[6]:='仟';
       aa[7]:='万';
       aa[8]:='拾';
       aa[9]:='佰';
       aa[10]:='仟';
    pa:=format('%.2f',[strtofloat(da)]);
        ln:=strlen(pchar(pa));
     // showmessage(pa+inttostr(strlen(Pchar(pa))));
      for i:=1 to ln do
        begin s:=copy(pa,i,1);
        if s<>'.'  then
        case strtoint(s) of
          1 :   sn:=sn+'壹'+aa[ln-i];
          2 :   sn:=sn+'贰'+aa[ln-i];
          3 :   sn:=sn+'叁'+aa[ln-i];
          4 :   sn:=sn+'肆'+aa[ln-i];
          5 :   sn:=sn+'伍'+aa[ln-i];
          6 :   sn:=sn+'陆'+aa[ln-i];
          7 :   sn:=sn+'柒'+aa[ln-i];
          8 :   sn:=sn+'捌'+aa[ln-i];
          9 :   sn:=sn+'玖'+aa[ln-i];
          0 :   sn:=sn+'零'+aa[ln-i];
      end;
    end;
    result:=sn;
end;

procedure TForm5.ComboBox1Change(Sender: TObject);
begin
   Case combobox1.ItemIndex of
      0:
        {建筑业发票}
        begin
           Fppy := 'JzyFP';
        end;
      1:
        {租赁业发票}
        begin
           Fppy := 'Zlyfp';
        end;
      2:
        {其它服务业发票}
        begin
           Fppy := 'Qtfwyfp';
        end;
      3:
        {转让不动产发票}
        begin
           Fppy := 'Zrbdcfp';
        end;
      4:
        {转让无形资产发票}
        begin
           Fppy := 'Wxzcfp';
        end;
    end;
end;

procedure TForm5.Button3Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  if length(edit1.Text) <> 5 then
  Begin
    application.messagebox(pchar('请输入五票号码   ！   '),pchar('提示')  ,MB_ICONINFORMATION);
    edit1.Text := '';
    edit1.SetFocus ;
    Exit ;
  end ;
  {刷新  DBGrid1  的内容，也就是清除}
  DBGrid1.Refresh ;

  if RadioButton2.Checked  then
  if edit2.Text > edit3.Text then
  begin
    application.messagebox(pchar('第一个日期不能大与第二个日期   ！   '),pchar('提示')  ,MB_ICONINFORMATION);
    edit2.Clear ;edit3.Clear ;
    Exit ;
  end;
  if combobox1.Text ='租赁业发票' then
  begin
    {查找租赁业发票}
    Zlyfp ;
    exit ;
  end;
  if combobox1.Text ='转让无形资产发票' then
  begin
    {查找转让无形资产发票}
    ZrwxzcFP ;
    exit ;
  end;
  if combobox1.Text ='其它服务业发票' then
  begin
    {查找其它服务业发票}
    QtfwyFP ;
    exit ;
  end;
  if combobox1.Text ='转让不动产发票' then
  begin
    {查找转让不动产发票}
    ZrbdcFP ;
    exit ;
  end;
  if combobox1.Text ='转让不动产发票' then
  begin
    {查找转让不动产发票}
    ZrbdcFP ;
    exit ;
  end;
  if combobox1.Text ='建筑业发票' then
  begin
    {查找建筑业发票}
    JzyFP ;