drsj.pas

新生报名管理系统,适合于各级学校报名管理使用!

unit drsj;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, DBTables, Buttons, Grids, DBGrids, StdCtrls, COMOBJ,
  ComCtrls;

type
  Tdrsj_Form = class(TForm)
    GroupBox1: TGroupBox;
    OpenDialog1: TOpenDialog;
    ListView1: TListView;
    cmdopen: TButton;
    cmdin: TButton;
    cmdclose: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cmdopenClick(Sender: TObject);
    procedure cmdinClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  drsj_Form: Tdrsj_Form;

implementation

uses main;

{$R *.dfm}

procedure Tdrsj_Form.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
end;

procedure Tdrsj_Form.cmdopenClick(Sender: TObject);
const
    BeginRow = 2; BeginCol = 1;
var
    Excel: OleVariant;
    iRow,iCol : integer;
    ListItem: TListItem;
begin
{    ListView1.Clear;
    if not OpenDialog1.Execute then exit;
    try
        Excel := CreateObject('Excel.Application');
    except
        Application.MessageBox('Excel没有安装！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Exit;
    end;
    Excel.Visible := false;
    Excel.WorkBooks.Open(OpenDialog1.FileName);
    try
        iRow := BeginRow;
        iCol := BeginCol;
        while trim(Excel.WorkSheets[1].Cells[iRow,iCol].value) <> '' do begin
            with ListView1 do begin
                listitem:=Items.Add;
                listitem.Caption:=trim(Excel.WorkSheets[1].Cells[iRow,iCol].value);
                listitem.SubItems.Add(trim(Excel.WorkSheets[1].Cells[iRow,iCol+1].value));
                listitem.SubItems.Add(trim(Excel.WorkSheets[1].Cells[iRow,iCol+2].value));
                listitem.SubItems.Add(trim(Excel.WorkSheets[1].Cells[iRow,iCol+3].value));
                listitem.SubItems.Add(trim(Excel.WorkSheets[1].Cells[iRow,iCol+4].value));
                listitem.SubItems.Add(trim(Excel.WorkSheets[1].Cells[iRow,iCol+5].value));
                listitem.SubItems.Add(trim(Excel.WorkSheets[1].Cells[iRow,iCol+6].value));
                listitem.SubItems.Add(trim(Excel.WorkSheets[1].Cells[iRow,iCol+7].value));
                listitem.SubItems.Add(trim(Excel.WorkSheets[1].Cells[iRow,iCol+8].value));
                iRow := iRow + 1;
                iCol := BeginCol;
            end;
        end;
        Excel.Quit;
    except
        Application.MessageBox('导入数据出错！请检查文件的格式是否正确！', '提示信息', MB_OK+MB_ICONASTERISK+MB_DEFBUTTON1+MB_APPLMODAL);
        Excel.Quit;
        raise;
    end; }
end;

procedure Tdrsj_Form.cmdinClick(Sender: TObject);
var
    xh,xm,xb,csny,jtdz,yzbm,lxdh,xbdm,zydm,sqlstr,sqlstr1:string;
begin
    with tquery.Create(nil) do
    begin
        try
        Close;
        SessionName:=main_form.Database1.SessionName;
        DatabaseName:=main_form.Database1.DatabaseName;
        while ListView1.Items.Count > 0 do
        begin
            xh:=trim(ListView1.Items[0].Caption);
            xm:=trim(ListView1.Items[0].SubItems[0]);
            xb:=trim(ListView1.Items[0].SubItems[1]);
            csny:=trim(ListView1.Items[0].SubItems[2]);
            jtdz:=trim(ListView1.Items[0].SubItems[3]);
            lxdh:=trim(ListView1.Items[0].SubItems[4]);
            yzbm:=trim(ListView1.Items[0].SubItems[5]);
            zydm:=trim(ListView1.Items[0].SubItems[6]);
            xbdm:=trim(ListView1.Items[0].SubItems[7]);
            sqlstr1:='select * from t_xsb where (xh='''+xh+''')';

            SQL.Clear;
            SQL.Add(sqlstr1);
            Open;
            if RecordCount > 0 then
            begin
                sqlstr:='update t_xsb set xm='''+xm+''',xb='''+xb+''',csny='''+csny;
                sqlstr:=sqlstr+''',jtdz='''+jtdz+''',lxdh='''+lxdh+''',yzbm='''+yzbm;
                sqlstr:=sqlstr+''',zydm='''+zydm+''',xbdm='''+xbdm+''' where (xh='''+xh+''')';
            end
            else
            begin
                sqlstr:='insert into t_xsb(xh,xm,xb,csny,jtdz,lxdh,yzbm,zydm,xbdm) values(''';
                sqlstr:=sqlstr+xh+''','''+xm+''','''+xb+''','''+csny+''','''+jtdz+''','''+lxdh;
                sqlstr:=sqlstr+''','''+yzbm+''','''+zydm+''','''+xbdm+''')';
            end;
            Close;
            SQL.Clear;
            SQL.Add(sqlstr);
            ExecSQL;
            ListView1.Items[0].Delete;
        end;
        finally
        Free;
        end;
    end;
    ShowMessage('成功导入新生数据');
    Close;
end;

procedure Tdrsj_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

end.