yonganmain.~pas

来自「一个计算汽车保险费额的小软」· ~PAS 代码 · 共 441 行 · 第 1/2 页

unit YongAnMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzDBRGrp, ExtCtrls, RzPanel, RzRadGrp, StdCtrls, RzLabel, Mask,
  RzEdit, RzSpnEdt, RzCommon, RzButton, RzRadChk, jpeg, RzBorder, RzCmboBx,
  DB, ADODB, ComCtrls, RzDTP, RzBtnEdt, Buttons,printers, QuickRpt, QRCtrls;

type
  TMainForm = class(TForm)
    RzRadioGroup1: TRzRadioGroup;
    RzNumericEdit1: TRzNumericEdit;
    RzRadioGroup3: TRzRadioGroup;
    RzRadioGroup4: TRzRadioGroup;
    RzRadioGroup5: TRzRadioGroup;
    RzEditFC: TRzFrameController;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzPanel1: TRzPanel;
    RzPanel2: TRzPanel;
    Image1: TImage;
    RzLabel10: TRzLabel;
    RzCheckBox1: TRzCheckBox;
    RzCheckBox2: TRzCheckBox;
    RzCheckBox3: TRzCheckBox;
    RzCheckBox4: TRzCheckBox;
    RzCheckBox5: TRzCheckBox;
    RzCheckBox6: TRzCheckBox;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzLabel3: TRzLabel;
    RzComboBox1: TRzComboBox;
    RzCheckBox7: TRzCheckBox;
    RzLabel4: TRzLabel;
    RzNumericEdit2: TRzNumericEdit;
    RzNumericEdit3: TRzNumericEdit;
    RzNumericEdit4: TRzNumericEdit;
    RzNumericEdit5: TRzNumericEdit;
    RzNumericEdit6: TRzNumericEdit;
    RzNumericEdit8: TRzNumericEdit;
    RzNumericEdit9: TRzNumericEdit;
    RzNumericEdit11: TRzNumericEdit;
    RzNumericEdit12: TRzNumericEdit;
    RzNumericEdit13: TRzNumericEdit;
    RzLabel5: TRzLabel;
    RzLabel6: TRzLabel;
    RzLabel7: TRzLabel;
    RzNumericEdit14: TRzNumericEdit;
    RzNumericEdit10: TRzNumericEdit;
    RzLabel8: TRzLabel;
    RzSpinEdit1: TRzSpinEdit;
    PQ: TADOQuery;
    RzNumericEdit15: TRzNumericEdit;
    RzComboBox2: TRzComboBox;
    RzBitBtn3: TRzBitBtn;
    RzDateTimeEdit1: TRzDateTimePicker;
    RzCheckBox9: TRzCheckBox;
    RzCheckBox10: TRzCheckBox;
    RzCheckBox11: TRzCheckBox;
    RzNumericEdit7: TRzNumericEdit;
    RzNumericEdit16: TRzNumericEdit;
    RzNumericEdit17: TRzNumericEdit;
    RzLabel9: TRzLabel;
    RzLabel11: TRzLabel;
    RzNumericEdit18: TRzNumericEdit;
    RzNumericEdit19: TRzNumericEdit;
    RzLabel12: TRzLabel;
    RzNumericEdit20: TRzNumericEdit;
    RzLabel13: TRzLabel;
    RzLabel14: TRzLabel;
    RzNumericEdit21: TRzNumericEdit;
    RzNumericEdit22: TRzNumericEdit;
    RzLabel15: TRzLabel;
    RzLabel16: TRzLabel;
    RzNumericEdit23: TRzNumericEdit;
    RzNumericEdit24: TRzNumericEdit;
    RzLabel17: TRzLabel;
    RzNumericEdit25: TRzNumericEdit;
    RzLabel18: TRzLabel;
    RzLabel19: TRzLabel;
    RzNumericEdit26: TRzNumericEdit;
    RzBitBtn4: TRzBitBtn;
    RzBitBtn5: TRzBitBtn;
    QuickRep1: TQuickRep;
    QRBand1: TQRBand;
    QRLabel2: TQRLabel;
    QRLabel3: TQRLabel;
    QRLabel4: TQRLabel;
    QRLabel5: TQRLabel;
    QRLabel6: TQRLabel;
    QRLabel7: TQRLabel;
    QRLabel8: TQRLabel;
    QRLabel9: TQRLabel;
    QRLabel10: TQRLabel;
    QRLabel11: TQRLabel;
    QRLabel12: TQRLabel;
    QRLabel13: TQRLabel;
    QRLabel14: TQRLabel;
    QRLabel15: TQRLabel;
    QRLabel16: TQRLabel;
    QRLabel17: TQRLabel;
    QRLabel18: TQRLabel;
    QRLabel19: TQRLabel;
    QRLabel20: TQRLabel;
    RzLabel20: TRzLabel;
    RzEdit1: TRzEdit;
    QRLabel1: TQRLabel;
    QRLabel21: TQRLabel;
    procedure RzPanel2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure RzBitBtn1Click(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
    procedure RzRadioGroup1Changing(Sender: TObject; NewIndex: Integer;
      var AllowChange: Boolean);
    procedure RzDateTimeEdit1Change(Sender: TObject);
    procedure RzBitBtn3Click(Sender: TObject);
    procedure RzBitBtn4Click(Sender: TObject);
    procedure RzBitBtn5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure CacuIC;
  end;

var
  MainForm: TMainForm;
  YY,MM:integer;//车型，座位，三责，年数，月数


implementation

{$R *.dfm}

procedure TMainForm.RzPanel2MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  Perform(WM_SYSCOMMAND,$f012,0);
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
   MainForm.Width:=624;
   RzPanel2.Width:=620;
   RzPanel1.Width:=620;
   MainForm.Height:=300;
   MainForm.Top:=0;
   MainForm.Left:=100;
   RzDateTimeEdit1.Date:=date;
   PQ.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=''./Data/YAIC.xls'';'
      +'Extended Properties=Excel 8.0;Persist Security Info=False';
end;

procedure TMainForm.RzBitBtn1Click(Sender: TObject);
begin
    close;
end;

procedure TMainForm.RzBitBtn2Click(Sender: TObject);
begin
   if RzPanel1.Visible then
     begin
       RzPanel1.Visible:=false;
       MainForm.Width:=328;
       MainForm.Height:=37;
       RzPanel2.Width:=324;
     end
   else
     begin
       RzPanel1.Visible:=true;
       MainForm.Width:=624;
       RzPanel2.Width:=620;
       RzPanel1.Width:=620;
       MainForm.Height:=300;
     end;
end;

procedure TMainForm.CacuIC;
var S1,S2,WSTR:string;
    VL1,VL2,GCJ,Dis:Currency;

  function GetDulValue(SQ:string; var V1,V2:Currency):Boolean;
  begin
     PQ.Close;
     PQ.SQL.Clear;
     PQ.SQL.Add(SQ);
     PQ.Open;
     if not(PQ.IsEmpty) then
       begin
          result:=true;
          V1:=PQ.Fields[0].AsCurrency;
          V2:=PQ.Fields[1].AsCurrency;
       end
     else result:=false;
     PQ.Close;
  end;

  function GetValue(SQ:string):Currency;
  begin
     PQ.Close;
     PQ.SQL.Clear;
     PQ.SQL.Add(SQ);
     PQ.Open;
     if not(PQ.IsEmpty) then result:=PQ.Fields[0].AsCurrency;
     PQ.Close;
  end;
begin
   GCJ:=RzNumericEdit1.Value;
   WSTR:=' where (typeid='+inttostr(RzRadioGroup1.ItemIndex)+') and (sitid='
        +inttostr(RzRadioGroup5.ItemIndex)+')';
   //第三责任
   if RzCheckBox1.Checked then RzNumericEdit2.Value:=GetValue('select M'
      +inttostr(RzRadioGroup3.ItemIndex)+' from [TB$]'+WSTR)
   else RzNumericEdit2.Value:=0;
   //机动车损失
   if RzCheckBox2.Checked then
      begin