⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 bill.pas

📁 1. 纯粹的合同管理,不涉及其它业务,独立成系统2. 简单明了,流程清析3. 合同条款可预定制4. 丰富强大的打印预览系统5. 实用的导入导出功能,可与excel交互使用6. 时刻追踪合同执行情况,包
💻 PAS
字号:
🔍 
unit bill;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ahmtbackground, StdCtrls, Mask, ComCtrls, dxDBTLCl, dxGrClms,
  dxTL, dxDBCtrl, dxDBGrid, dxCntner, ExtCtrls, ahmtlabel, Buttons,
  ahmtpanel;

type
  TF_Policy = class(TForm)
    Splitter1: TSplitter;
    AHMPanel1: TAHMPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    AHMPanel2: TAHMPanel;
    AHMLabel1: TAHMLabel;
    Panel1: TPanel;
    AHMPanel4: TAHMPanel;
    AHMLabel2: TAHMLabel;
    SpeedButton6: TSpeedButton;
    Edit7: TEdit;
    dxDBGrid1: TdxDBGrid;
    AHMPanel3: TAHMPanel;
    Label1: TLabel;
    SpeedButton8: TSpeedButton;
    SpeedButton9: TSpeedButton;
    Edit1: TEdit;
    AHMBackground1: TAHMBackground;
    AHMBackground2: TAHMBackground;
    dxDBGrid1Policy_ID: TdxDBGridMaskColumn;
    dxDBGrid1Cust_ID: TdxDBGridMaskColumn;
    dxDBGrid1Ins_ID: TdxDBGridMaskColumn;
    dxDBGrid1Bene_ID: TdxDBGridMaskColumn;
    dxDBGrid1Class_ID: TdxDBGridMaskColumn;
    dxDBGrid1Policy_Mode: TdxDBGridMaskColumn;
    dxDBGrid1Policy_Money: TdxDBGridMaskColumn;
    dxDBGrid1Policy_Date: TdxDBGridDateColumn;
    dxDBGrid1Policy_Period: TdxDBGridMaskColumn;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Edit3: TEdit;
    Label4: TLabel;
    Edit4: TEdit;
    Label5: TLabel;
    Label6: TLabel;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit5: TEdit;
    Label7: TLabel;
    Label8: TLabel;
    DateTimePicker1: TDateTimePicker;
    Edit6: TEdit;
    Label9: TLabel;
    procedure SpeedButton6Click(Sender: TObject);
    procedure SpeedButton5Click(Sender: TObject);
    procedure SpeedButton9Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
    procedure SpeedButton8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Policy: TF_Policy;

implementation

uses dm, policydetail, billreal;

{$R *.dfm}

procedure TF_Policy.SpeedButton6Click(Sender: TObject);
begin

   With MyDM.Query do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('select  a.Policy_ID,a.Policy_MOde,a.Policy_Money,a.Policy_Date,a.Policy_Period,b.*,c.*,d.*,e.*');
         Add('from Policy as a,Customer as b,Insurant as c,Beneficiary as d,Class as e');
         Add('where   a.Policy_ID = :p and');
         Add('b.Cust_ID = a.Cust_ID and');
         Add('c.Ins_ID = a.Ins_ID and');
         Add('d.Bene_ID = a.Bene_ID and');
         Add('e.Class_ID = a.Class_ID');
      end;
      Parameters[0].Value := Edit7.Text;
      Prepared;
      Open;
   end;

   //保单基本资料
   F_PoliDetail.Edit27.Text := MyDM.Query.Fields[0].AsString;
   F_PoliDetail.Edit28.Text := MyDM.Query.Fields[1].AsString;
   F_PoliDetail.Edit32.Text := MyDM.Query.Fields[2].AsString;
   F_PoliDetail.Edit29.Text := MyDM.Query.Fields[3].AsString;
   F_PoliDetail.Edit33.Text := MyDM.Query.Fields[4].AsString;
   //客户基本资料
   F_PoliDetail.Edit1.Text := MyDM.Query.Fields[5].AsString;
   F_PoliDetail.Edit21.Text := MyDM.Query.Fields[6].AsString;
   F_PoliDetail.Edit4.Text := MyDM.Query.Fields[7].AsString;
   F_PoliDetail.Edit5.Text := MyDM.Query.Fields[8].AsString;
   F_PoliDetail.Edit23.Text := MyDM.Query.Fields[9].AsString;
   F_PoliDetail.Edit101.Text := MyDM.Query.Fields[10].AsString;
   F_PoliDetail.Edit2.Text := MyDM.Query.Fields[11].AsString;
   F_PoliDetail.Edit3.Text := MyDM.Query.Fields[12].AsString;
   F_PoliDetail.Edit102.Text := MyDM.Query.Fields[13].AsString;
   F_PoliDetail.Edit103.Text := MyDM.Query.Fields[14].AsString;
   F_PoliDetail.Edit104.Text := MyDM.Query.Fields[15].AsString;
   F_PoliDetail.Edit6.Text := MyDM.Query.Fields[16].AsString;
   F_PoliDetail.Edit105.Text := MyDM.Query.Fields[17].AsString;
   F_PoliDetail.Edit22.Text := MyDM.Query.Fields[18].AsString;
   F_PoliDetail.memo1.Text := MyDM.Query.Fields[19].AsString;
   F_PoliDetail.memo2.Text := MyDM.Query.Fields[20].AsString;
   //被投保人资料
   F_PoliDetail.Edit7.Text := MyDM.Query.Fields[21].AsString;
   F_PoliDetail.Edit24.Text := MyDM.Query.Fields[22].AsString;
   F_PoliDetail.Edit10.Text := MyDM.Query.Fields[23].AsString;
   F_PoliDetail.Edit11.Text := MyDM.Query.Fields[24].AsString;
   F_PoliDetail.Edit25.Text := MyDM.Query.Fields[25].AsString;
   F_PoliDetail.Edit26.Text := MyDM.Query.Fields[26].AsString;
   F_PoliDetail.Edit9.Text := MyDM.Query.Fields[27].AsString;
   F_PoliDetail.Edit8.Text := MyDM.Query.Fields[28].AsString;
   F_PoliDetail.Edit106.Text := MyDM.Query.Fields[29].AsString;
   F_PoliDetail.Edit107.Text := MyDM.Query.Fields[30].AsString;
   F_PoliDetail.Edit108.Text := MyDM.Query.Fields[31].AsString;
   F_PoliDetail.Edit109.Text := MyDM.Query.Fields[32].AsString;
   F_PoliDetail.Edit12.Text := MyDM.Query.Fields[33].AsString;
   F_PoliDetail.Edit110.Text := MyDM.Query.Fields[34].AsString;
   F_PoliDetail.memo3.Text := MyDM.Query.Fields[35].AsString;
   F_PoliDetail.memo4.Text := MyDM.Query.Fields[36].AsString;
   F_PoliDetail.Edit13.Text := MyDM.Query.Fields[37].AsString;
   //受益人资料
   F_PoliDetail.Edit14.Text := MyDM.Query.Fields[38].AsString;
   F_PoliDetail.Edit15.Text := MyDM.Query.Fields[39].AsString;
   F_PoliDetail.Edit30.Text := MyDM.Query.Fields[40].AsString;
   F_PoliDetail.Edit16.Text := MyDM.Query.Fields[41].AsString;
   F_PoliDetail.Edit17.Text := MyDM.Query.Fields[42].AsString;
   F_PoliDetail.Edit18.Text := MyDM.Query.Fields[43].AsString;
   //险种信息
   F_PoliDetail.Edit19.Text := MyDM.Query.Fields[44].AsString;
   F_PoliDetail.Edit20.Text := MyDM.Query.Fields[45].AsString;

   F_PoliDetail.ShowModal;
end;

procedure TF_Policy.SpeedButton5Click(Sender: TObject);
begin
   close;
end;

procedure TF_Policy.SpeedButton9Click(Sender: TObject);
begin
   Edit1.Clear;
   Edit2.Clear;
   Edit3.Clear;
   Edit4.Clear;
   Edit5.Clear;
   Edit6.Clear;
   ComboBox1.Text := '';
   ComboBox2.Text := '';
   //ComboBox3.ItemIndex := -1;
   DateTimePicker1.Date := Date();
   Edit1.SetFocus;
end;

procedure TF_Policy.SpeedButton1Click(Sender: TObject);
begin
   Edit1.Clear;
   Edit2.Clear;
   Edit3.Clear;
   Edit4.Clear;
   Edit5.Clear;
   Edit6.Clear;
   ComboBox1.Text := '';
   ComboBox2.Text := '';
   //ComboBox3.ItemIndex := -1;
   DateTimePicker1.Date := Date();
   Edit1.SetFocus;
end;

procedure TF_Policy.SpeedButton2Click(Sender: TObject);
begin
   Edit1.Text := dxDBGrid1.DataSource.DataSet.Fields[0].AsString;
   Edit2.Text := dxDBGrid1.DataSource.DataSet.Fields[1].AsString;
   Edit3.Text := dxDBGrid1.DataSource.DataSet.Fields[2].AsString;
   Edit4.Text := dxDBGrid1.DataSource.DataSet.Fields[3].AsString;
   Combobox1.Text := dxDBGrid1.DataSource.DataSet.Fields[4].AsString;
   combobox2.Text := dxDBGrid1.DataSource.DataSet.Fields[5].AsString;
   Edit5.Text := dxDBGrid1.DataSource.DataSet.Fields[6].AsString;
   DateTimePicker1.Datetime := dxDBGrid1.DataSource.DataSet.Fields[7].AsDateTime;
   Edit6.Text := dxDBGrid1.DataSource.DataSet.Fields[8].AsString;
end;

procedure TF_Policy.SpeedButton3Click(Sender: TObject);
begin
   With MyDM.PolicyQuery do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('delete from Policy');
         Add('where Policy_ID = :p');
      end;
      Parameters[0].Value := dxDBGrid1.DataSource.DataSet.Fields[0].AsString;
      ExecSQL;
   end;

   With MyDM.PolicyQuery do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('select * from Policy');
      end;
      ExecSQL;
      Open;
   end;
end;

procedure TF_Policy.SpeedButton8Click(Sender: TObject);
begin
   With MyDM.PolicyQuery do
   begin
      close;
      With SQL do
      begin
         clear;
         Add('insert into Policy values(:p0,:p1,:p2,:p3,:p4,:p5,:p6,:p7,:p8)');
      end;
      Parameters[0].Value := Edit1.Text;
      Parameters[1].value := Edit2.text;
      Parameters[2].value := Edit3.text;
      Parameters[3].value := Edit4.Text;
      Parameters[4].value := Combobox1.Text;
      Parameters[5].Value := ComboBox2.Text;
      Parameters[6].Value := Edit5.Text;
      Parameters[7].value := DateTimePicker1.Date;
      Parameters[8].value := Edit6.Text;
      ExecSQL;
   end;

   With MyDM.PolicyQuery do
   begin
      close;
      with SQL do
      begin
         clear;
         Add('select * from Policy');
      end;
      ExecSQL;
      Open;
   end;

   Edit1.Clear;
   Edit2.Clear;
   Edit3.Clear;
   Edit4.Clear;
   Edit5.Clear;
   Edit6.Clear;
   ComboBox1.Text := '';
   ComboBox2.Text := '';
   //ComboBox3.ItemIndex := -1;
   DateTimePicker1.Date := Date();
   Edit1.SetFocus;
end;

end.

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -