unit_small.pas

航空人身保险信息管理系统使用SQL和DELHPI开发

unit Unit_Small;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, ADODB, FR_DSet, FR_DBSet, FR_Class,DateUtils;

type
  TFrmSmall = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DateTimePicker1: TDateTimePicker;
    Label5: TLabel;
    Edit5: TEdit;
    frReport1: TfrReport;
    frDBDataSet1: TfrDBDataSet;
    ADOQuery1: TADOQuery;
    GroupBox1: TGroupBox;
    ListBox1: TListBox;
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Duplicate();
    procedure Button1Click(Sender: TObject);
    procedure AirLineNo();
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);

    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure ListBox1Data(Control: TWinControl; Index: Integer;
      var Data: String);
    procedure ListBox1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmSmall: TFrmSmall;
  CurrentNo:string;

implementation

uses Unit_Large, Unit_Common, unit_DataM;

{$R *.dfm}
 procedure Tfrmsmall.AirLineNo();
 var sql:string ;
 begin
    sql:='select distinct(AirlineNo),AboardDate from InsuranceCustomer  order by AboardDate desc';

   ListBox1.Items:=dtm.GetQryList(sql);


 end;
procedure TFrmSmall.Duplicate();
begin
    FrmLarge.Edit1.Text:=edit1.Text;
    FrmLarge.Edit2.Text:=edit2.Text;
    FrmLarge.Edit3.Text:=edit3.Text;
    FrmLarge.DateTimePicker1.DateTime:=DateTimePicker1.DateTime;
    FrmLarge.Edit5.text:=edit5.Text;
end;

procedure TFrmSmall.Button2Click(Sender: TObject);
begin
   Duplicate;
   FrmLarge.ShowModal;
end;

procedure TFrmSmall.Button3Click(Sender: TObject);
begin
     edit1.text:='';
     edit2.Text:='';
     edit3.Text:='';
     FrmSmall.Close;
end;

procedure TFrmSmall.Button1Click(Sender: TObject);
var sqlStr,strdatetime,strsigndate:String;
    sqlString:string;
    i:integer;
    insurnce:string;

begin
if  edit2.Text='' then
begin
edit2.SetFocus;
messageerror('请输入姓名');
exit;
end;
if  edit3.Text='' then

begin
edit3.setfocus;
messageerror('请输入航班号');
exit;
end;




if  (DateTimePicker1.DateTime < StartOftheDay(now)) then
begin
messageerror('非法日期');
exit;
end;

i:=0;
strdatetime:=formatdatetime('yyyy-MM-dd hh:mm:ss',DateTimePicker1.datetime);
strsigndate:=formatdatetime('yyyy-MM-dd hh:mm:ss',now);
CurrentNo:='PECH'+formatdatetime('yyyyMMddhhmmsszzz',now);
sqlStr:='insert into InsuranceCustomer (IDNo,LoginName,DepartmentNo,Quanta,Name,AirlineNo,AboardDate,CurrentNo)values('
          +''''+edit5.text+''''+','
          +''''+gEmpID+''''+','
          +''''+gDepartmentNo+''''+','
          +edit1.Text+','+''''+edit2.Text+''''+','
          +''''+edit3.Text+''''+','+''''+strdatetime+''''+','
          +''''+CurrentNo+''''
          +')';
dtm.ExecuteSQL(sqlStr);

 for i:=1 to  strtoint(edit1.Text)  do
 begin
    insurnce:=CurrentNo+IntToStr(i);

    sqlStr:='insert into InsuranceForm (InsuranceNo,SignDate,ModifyDate,InsuraceFee,Compensate,Status,CurrentNo)values('

          +''''+insurnce+''''+','+''''+strdatetime+''''+','+''''+'2005-01-01 00:00:00'+''''+','+'20'+','+'400000'+','+'1'
          +','+''''+CurrentNo+''''
          +')';
    dtm.ExecuteSQL(sqlStr);

    sqlStr:='insert into BenefitPerson (Telno,InsuranceNo,PostCode,Name,Relation,Address)values('
          +''''+FrmLarge.Edit6.Text+''''+','
          +''''+insurnce+''''+','+''''+FrmLarge.Edit4.text+''''+','+''''+FrmLarge.Edit7.text+''''+','+''''+FrmLarge.ComboBox1.text+''''
          +','+''''+FrmLarge.Edit8.text+''''+')';
    dtm.ExecuteSQL(sqlStr);



 end;
 adoquery1.Close;
 adoquery1.Parameters.ParamByName('CurrentNo').Value:=CurrentNo;
  adoquery1.Open;
 frReport1.PrepareReport;

frReport1.PrintPreparedReportDlg;


     edit1.Text:='1';
    edit2.text:='';
    // edit3.text:='';

    button2.Enabled:=false;
    button1.Enabled:=false;
    DateTimePicker1.DateTime:= now;
    AirLineNo;//如果有新航班号就显示
    edit1.SetFocus;

end;
procedure TFrmSmall.Edit1KeyPress(Sender: TObject; var Key: Char);
begin

Key:=OnlyInt(Key);
if key=#13 then
   Edit2.SetFocus;


end;
procedure TFrmSmall.FormCreate(Sender: TObject);
var sql:string;
begin
   Button1.Enabled:=False;
   Button2.Enabled:=False;
   DateTimePicker1.DateTime:=now;

   AirLineNo;//得到航班号
   

end;

procedure TFrmSmall.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
  begin
    Button1.enabled:=true;
    Button2.enabled:=true;
    Button1.SetFocus;
  end;
end;

procedure TFrmSmall.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then
 Edit3.SetFocus;
end;



procedure TFrmSmall.ListBox1Data(Control: TWinControl; Index: Integer;
  var Data: String);
begin
   edit3.Text:=Data;
end;

procedure TFrmSmall.ListBox1Click(Sender: TObject);
begin

    edit3.Text:=listbox1.Items.Strings[ListBox1.ItemIndex];

    Button1.enabled:=true;
    Button2.enabled:=true;
end;

end.