unit15.pas

劳模信息综合管理

unit Unit15;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons, Mask;

type
  Tform_lm1_add = class(TForm)
    Bevel1: TBevel;
    Label2: TLabel;
    Edit_name: TEdit;
    Label4: TLabel;
    MaskEdit_age: TMaskEdit;
    Label7: TLabel;
    Edit_unit: TEdit;
    Label3: TLabel;
    ComboBox_sex: TComboBox;
    Label11: TLabel;
    ComboBox_hy: TComboBox;
    Label10: TLabel;
    ComboBox_area: TComboBox;
    Label5: TLabel;
    ComboBox_zzmm: TComboBox;
    Label6: TLabel;
    ComboBox_nation: TComboBox;
    Label9: TLabel;
    ComboBox_year_lm: TComboBox;
    Label8: TLabel;
    ComboBox_degree: TComboBox;
    GroupBox1: TGroupBox;
    Memo_beizhu: TMemo;
    Bevel2: TBevel;
    BitBtn3: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    CBox_type_lm: TComboBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  form_lm1_add: Tform_lm1_add;

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

procedure Tform_lm1_add.FormShow(Sender: TObject);
begin

    //添加民族信息；
       datalink.ADOQ_nation.close;
       datalink.ADOQ_nation.SQL.Clear;
       datalink.adoq_nation.SQL.Add('select nation from nation');
       datalink.adoq_nation.Open;
       ComboBox_nation.Items.Clear;
       while not(datalink.ADOQ_nation.EOF) do
       begin
           ComboBox_nation.Items.Add(datalink.adoq_nation.FieldByName('nation').AsString);
           datalink.ADOQ_nation.Next;
       end ;
//添加学历信息；
       datalink.ADOQ_degree.close;
       datalink.ADOQ_degree.SQL.Clear;
       datalink.adoq_degree.SQL.Add('select degree from degree');
       datalink.adoq_degree.Open;
       ComboBox_degree.Items.Clear;
       while not(datalink.ADOQ_degree.EOF) do
       begin
           ComboBox_degree.Items.Add(datalink.adoq_degree.FieldByName('degree').AsString);
           datalink.ADOQ_degree.Next;
       end ;
       //添加所在地市；
       datalink.ADOQ_area1.close;
       datalink.ADOQ_area1.SQL.Clear;
       datalink.adoq_area1.SQL.Add('select area_name from area1');
       datalink.adoq_area1.Open;
       ComboBox_area.Items.Clear;
       while not(datalink.ADOQ_area1.EOF) do
       begin
           ComboBox_area.Items.Add(datalink.adoq_area1.FieldByName('area_name').AsString);
           datalink.ADOQ_area1.Next;
       end ;
        //添加政治面貌；
       datalink.ADOQ_zzmm.close;
       datalink.ADOQ_zzmm.SQL.Clear;
       datalink.adoq_zzmm.SQL.Add('select zzmm from zzmm');
       datalink.adoq_zzmm.Open;
       ComboBox_zzmm.Items.Clear;
       while not(datalink.ADOQ_zzmm.EOF) do
       begin
           ComboBox_zzmm.Items.Add(datalink.adoq_zzmm.FieldByName('zzmm').AsString);
           datalink.ADOQ_zzmm.Next;
       end ;
       //添加所属行业 ；
       datalink.ADOQ_hy1.close;
       datalink.ADOQ_hy1.SQL.Clear;
       datalink.adoq_hy1.SQL.Add('select hy_name from hy1');
       datalink.adoq_hy1.Open;
       ComboBox_hy.Items.Clear;
       while not(datalink.ADOQ_hy1.EOF) do
       begin
           ComboBox_hy.Items.Add(datalink.adoq_hy1.FieldByName('hy_name').AsString);
           datalink.ADOQ_hy1.Next;
       end ;
        //添加评模时间 ；
       datalink.ADOQ_year_lm.close;
       datalink.ADOQ_year_lm.SQL.Clear;
       datalink.adoq_year_lm.SQL.Add('select year_lm from year_lm');
       datalink.adoq_year_lm.Open;
       ComboBox_year_lm.Items.Clear;
       while not(datalink.ADOQ_year_lm.EOF) do
       begin
           ComboBox_year_lm.Items.Add(datalink.adoq_year_lm.FieldByName('year_lm').AsString);
           datalink.ADOQ_year_lm.Next;
       end ;

      //添加劳模类型 ；
       datalink.ADOQ_type_lm.close;
       datalink.ADOQ_type_lm.SQL.Clear;
       datalink.adoq_type_lm.SQL.Add('select type_name from type_lm');
       datalink.adoq_type_lm.Open;
       CBox_type_lm.Items.Clear;
       while not(datalink.ADOQ_type_lm.EOF) do
       begin
           CBox_type_lm.Items.Add(datalink.adoq_type_lm.FieldByName('type_name').AsString);
           datalink.ADOQ_type_lm.Next;
       end ;
end;
procedure Tform_lm1_add.BitBtn3Click(Sender: TObject);
begin


 if  (edit_name.Text='') then
  begin
    showmessage('请输入姓名');
    showmessage('添加数据失败');
    end
   else
      with form_search_nlm.ADOQ_lminfo1 do
        begin
        close;
        sql.Clear;
        SQL.add('insert  into  lminfo1(姓名,性别,单位,评模时间,民族,劳模类型,学历,所属行业,所在地市,年龄,政治面貌,备注) values(:xm,:xb,:dw,:pmsj,:mz,:lmlx,:xl,:sshy,:szds,:nl,:zzmm,:bz)');
        Parameters.ParamByName('xm').value:=edit_name.Text;
        Parameters.ParamByName('xb').value:=ComboBox_sex.Text;
        Parameters.ParamByName('dw').value:=edit_unit.Text;
        Parameters.ParamByName('pmsj').value:=Copy(ComboBox_year_lm.Text,1,4);
        Parameters.ParamByName('mz').value:=ComboBox_nation.Text;
        Parameters.ParamByName('lmlx').value:=CBox_type_lm.text;
        Parameters.ParamByName('xl').value:=ComboBox_degree.Text;
        Parameters.ParamByName('sshy').value:=ComboBox_hy.Text;
        Parameters.ParamByName('szds').value:=ComboBox_area.Text;
        Parameters.ParamByName('nl').value:=maskEdit_age.Text;
        Parameters.ParamByName('zzmm').value:=ComboBox_zzmm.Text;
        Parameters.ParamByName('bz').value:=memo_beizhu.Text;
        execsql();
        sql.Clear;
        sql.add('select * from lminfo1 order by 评模时间 desc,姓名 desc');
        close;
        showmessage('添加数据成功');
      end;

          edit_name.Text:='';
          edit_unit.Text:='';
          ComboBox_year_lm.Text:='';
          cBox_type_lm.Text:='';
          ComboBox_degree.Text:='';
          ComboBox_hy.Text:='';
          ComboBox_area.Text:='';
          maskEdit_age.Text:='';
          ComboBox_zzmm.Text:='';
          memo_beizhu.Text:='';

end;

end.