请问如何读取如此数据到指定表？ ( 积分: 100 )

li10 · 2007-01-09

有一个表，即学生成绩用读卡机录分到一个Vfox(DBF)表：DD1 .dbf中，如何将其读到一指定的成绩表：cj1中去呀， DD1表   km xq kd kh1 yjh cjlist DL 84 012 0001  60 81 46 88 75 88 71 86 77 57 45 72 76 73 72 89 78 70 75 92 36 77 73 75 66 86  DL 84 012 0031  93 86 53 51 65 44 73 89 86 64 53 52 52 84 53 90 83 83 92 70 54 65 82 83 65 83  DL 84 012 0061  87 86 62 80 87 82 86 81 74 74 74 56 74 79 97 87 89 93 96 58 79 69 76 79 77 71  DL 84 012 0091  70 60 61 78 73 77 74 86 83 81 82 77 96 76 88 81 39 63 86 67 73 61 71 60 46 95  DL 84 012 0121  68 80 84 84 54 50 53 47 53 70 80 62 59 46 93 76 67 73 76 75 89 92 60 71 88 00 DL 84 012 0151  75 40 81 66 63 57 78 92 93 23 32 83 77 67 89 45 73 36 77 78 82 89 70 79 47 73  DL 84 012 0181  77 49 48 63 86 79 85 86 80 90 83 89 76 61 61 75 87 69 70 67 74 61 81 74 71 77  DL 84 012 0211  73 67 58 49 58 89 66 59 55 83 80 61 47 62 58 54 87 75 82 49 48 58 47 89 89 89  DL 84 012 0241  79 70 54 59 69 58 73 77 45 79 78 84 65 78 72 96 82 48 75 82 84 70 80 66 85 79  DL 84 012 0271  85 82 52 89 70 71 61 75 71 77 81 63 80 70 76 83 98 61 77 94 56 65 56 79 70 59  DL 84 012 0301  42 41 54 89 18 40 64 83 65 89 74 94 50 45 68 74 58 84 60 83 53 85 81 64 45 41  DL 84 012 0331  65 71 77 65 77 86 54 76 58 53 53 55 77 91 93 66 82 63 08 44 57 91 65 67 68 46  DL 84 012 0361  70 75 74 85 63 69 65 60 81 80 93 94 69 78 37 54 89 61 74 51 46 84 91 75 85 78  DL 84 012 0391  83 80 85 83 84 89 73 80 82 77 84 81 73 94 91 77 71 68 90 76 89 85 92 85 81 83  DL 84 012 0421  67 50 32 56 75 71 69 83 72 72 77 73 57 32 68 35 75 60 58 29 69 44 64 21 50 39  每场30人，尾场可能不足30人，为不影响本问题的界面显示，此处每考场的数据为演示数据，即每场只提供了部分的数据（26人，实为30人）。 CJ1： xm kd kh1 kh          ywcj 李京 012 0001 050120001 刘洋洋 012 0002 050120002 曹园园 012 0003 050120003 王春森 012 0004 050120004 王伟龙 012 0005 050120005 张宁波 012 0006 050120006 马小杰 012 0007 050120007 李凯元 012 0008 050120008 牛洪飞 012 0009 050120009

c05h · 2007-01-09

其实就是数据的读取问题，即字符串的读取问题。

abin30 · 2007-01-09

不知道你的数据怎么出来的， 就是读机读卡也不会有DD1 这样的结果啊，每张卡上应该都有考生号只类的东西的。怎么可能将那么多的成绩读成一条记录，而且万一顺序搞错怎么办？  还有就是你的字段和要求没有写清楚，无法回答。

3868474 · 2007-01-09

cjlist, 和ywcj的数据类型是否一样? 是原样写入还是要将cjlist的成绩数据分解多行添加?

li10 · 2007-01-09

>>>>>>不知道你的数据怎么出来的， 就是读机读卡也不会有DD1 这样的结果啊，每张卡上应该都有考生号只类的东西的。怎么可能将那么多的成绩读成一条记录，而且万一顺序搞错怎么办？ > 0001 0031 0061 0091为考场号，即每个考场固定为30名考生，考号是连续的，且考场号是由考号算出来的，即一一对应的，只要涂卡时不出问题就不会有事，至于你的担心顺序问题，由考试制度保证的！ ＞＞＞＞cjlist, 和ywcj的数据类型是否一样? 是原样写入还是要将cjlist的成绩数据分解多行添加? ＞  数据类型是一致的，即每张卡只能是一本密封试卷，即每一张卡（对应一个考场）肯定是一科的，程序可以判定科目后再读入这些数据，在此是请教如何读取这些数据到成绩表中。     我们现在一直用，只是用VF编写的，想改为DELPHI，请教！

c05h · 2007-01-09

我有一个示例，不知你是否能用的上！邮箱！

li10 · 2007-01-09

aqxaclh@126.com 谢了 再：请大家帮助一下，如何用DELPHI控制光电阅读机直接扫描数据，（可以不再用我们现在的VF程序，这个VF程序是在买光电阅读机时附送的）

li10 · 2007-01-13

to c05h: 试了，不行！

li10 · 2007-01-13

大侠们，帮一下呀

xcplates · 2007-01-15

你的读卡器应该带有delphi编程接口的 这是我们的机器带的例子： Delphi 4.0  unit demo; interface uses    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,    StdCtrls, Mask; type    TForm1 = class(TForm)      Button1: TButton;      Memo1: TMemo;      procedure Button1Click(Sender: TObject);    private     { Private declarations } public     { Public declarations }    end; var   Form1: TForm1; implementation {$R *.DFM}   function OmrS(Cmd

char):Integer;stdcall;external'KX_40.DLL';   function OmrG(Buf

Char):Integer;stdcall;external'KX_40.DLL'; procedure TForm1.Button1Click(Sender: TObject); var Cmd:array[0..254]  of char; Buf:array[0..254] of char; sp:string; i:integer; begin       Cmd:='S 105.TXT/';       omrS(cmd);  //送格式命令       Memo1.lines.clear;    while 2=2 do    begin         sp:='';         for i:=1 to 200 do          begin            sp:=sp+' ';          end;            Cmd:= '/ ';          omrS(Cmd); //送读卡命令                  omrG(Buf);      //取读卡返回字串              if Copy(Buf,1,2)='OK' then           begin             strpcopy(Cmd,'001'+sp+'/');             omrS(Cmd); //送取数据命令     omrG(Buf);      //取返回字串             Memo1.lines.clear;     memo1.lines.add(Copy(Buf,1,200));     Edit2.Text:='OK';     Cmd:='-/';     omrS(Cmd);      //送停机命令         end       else           begin             Cmd:='-/';             omrS(Cmd);      //送停机命令             Edit2.Text:=Copy(Buf,1,2);             break;  end;          end; end; end.

xcplates · 2007-01-15

这是我用D7写的一段代码： unit C_bzDK; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,   cxDataStorage, cxEdit, DB, cxDBData, bsSkinData, bsMessages,   BusinessSkinForm, DBTables, cxGridLevel, cxGridCustomTableView,   cxGridTableView, cxGridDBTableView, cxClasses, cxControls,   cxGridCustomView, cxGrid, bsSkinCtrls, bsSkinBoxCtrls, dxdbtrel,   bsdbctrls, Menus, bsSkinMenus, ExtCtrls, DBCtrls, ComCtrls, bsSkinTabs; type   TFrmBZDK = class(TForm)     bsSkinPanel1: TbsSkinPanel;     bsSkinPanel3: TbsSkinPanel;     bsSkinDBLookupComboBox1: TbsSkinDBLookupComboBox;     dxDBLookupTreeView1: TdxDBLookupTreeView;     bsSkinLabel1: TbsSkinLabel;     bsSkinLabel2: TbsSkinLabel;     bsSkinLabel3: TbsSkinLabel;     bsSkinLabel4: TbsSkinLabel;     bsSkinLabel5: TbsSkinLabel;     bsSkinLabel6: TbsSkinLabel;     btnOK: TbsSkinButton;     btnDK: TbsSkinButton;     btnClose: TbsSkinButton;     btnClear: TbsSkinButton;     btnCX: TbsSkinButton;     bsSkinSpinEdit1: TbsSkinSpinEdit;     bsSkinSpinEdit2: TbsSkinSpinEdit;     bsSkinSpinEdit3: TbsSkinSpinEdit;     bsSkinSpinEdit4: TbsSkinSpinEdit;     bsSkinPanel2: TbsSkinPanel;     cxGrid1: TcxGrid;     cxGrid1DBTableView1: TcxGridDBTableView;     cxGrid1DBTableView1Th: TcxGridDBColumn;     cxGrid1DBTableView1Dan: TcxGridDBColumn;     cxGrid1DBTableView1Fz: TcxGridDBColumn;     cxGrid1DBTableView1bfz: TcxGridDBColumn;     cxGrid1DBTableView1dx: TcxGridDBColumn;     cxGrid1Level1: TcxGridLevel;     bsSkinLabel10: TbsSkinLabel;     QDADM: TQuery;     QDADMID: TIntegerField;     QDADMDan: TStringField;     QDADMDm: TStringField;     QBZDA: TQuery;     QBZDAid: TIntegerField;     QBZDAdm: TStringField;     QBZDATh: TSmallintField;     QBZDADan: TStringField;     QBZDAFz: TFloatField;     QBZDAbfz: TFloatField;     QBZDAdx: TBooleanField;     QBZDAJB: TIntegerField;     dsQBZDA: TDataSource;     dsQJBXX: TDataSource;     QJBXX: TQuery;     QJBXXID: TIntegerField;     QJBXXPID: TIntegerField;     QJBXXMC: TStringField;     QKmdmk: TQuery;     QKmdmkID: TIntegerField;     QKmdmkMC: TStringField;     QKmdmkDM: TStringField;     dsQKmdmk: TDataSource;     bsBusinessSkinForm1: TbsBusinessSkinForm;     bsSkinMessage1: TbsSkinMessage;     bsSkinPanel4: TbsSkinPanel;     cxGrid2: TcxGrid;     cxGridDBTableView1: TcxGridDBTableView;     cxGridLevel1: TcxGridLevel;     bsSkinLabel8: TbsSkinLabel;     QCJK: TQuery;     dsQCJK: TDataSource;     cxGridDBTableView1KH: TcxGridDBColumn;     cxGridDBTableView1KM: TcxGridDBColumn;     QTemp: TQuery;     bsSkinStatusBar1: TbsSkinStatusBar;     bsSkinStatusPanel2: TbsSkinStatusPanel;     btnDC: TbsSkinButton;     bsSkinPopupMenu1: TbsSkinPopupMenu;     N1: TMenuItem;     bsSkinStatusPanel1: TbsSkinStatusPanel;     bsSkinStatusPanel3: TbsSkinStatusPanel;     bsSkinLabel7: TbsSkinLabel;     bsSkinLabel9: TbsSkinLabel;     bsSkinDBNavigator1: TbsSkinDBNavigator;     cxGridDBTableView1KMDA: TcxGridDBColumn;     bsSkinButton1: TbsSkinButton;     bsSkinPanel5: TbsSkinPanel;     bsSkinPageControl1: TbsSkinPageControl;     bsSkinTabSheet1: TbsSkinTabSheet;     bsSkinTabSheet2: TbsSkinTabSheet;     QCJK2: TQuery;     DSQCJK2: TDataSource;     cxGrid3: TcxGrid;     cxGridDBTableView2: TcxGridDBTableView;     cxGridLevel2: TcxGridLevel;     QCJK2KH: TStringField;     QCJK2Zz: TFloatField;     QCJK2Yw: TFloatField;     QCJK2Sx: TFloatField;     QCJK2Wl: TFloatField;     QCJK2Hx: TFloatField;     QCJK2Yy: TFloatField;     QCJK2Ls: TFloatField;     QCJK2Dl: TFloatField;     QCJK2Sw: TFloatField;     QCJK2XJ: TFloatField;     QCJK2Qt: TFloatField;     QCJK2JB: TIntegerField;     QCJK2XM: TStringField;     cxGridDBTableView2KH: TcxGridDBColumn;     cxGridDBTableView2Zz: TcxGridDBColumn;     cxGridDBTableView2Yw: TcxGridDBColumn;     cxGridDBTableView2Sx: TcxGridDBColumn;     cxGridDBTableView2Wl: TcxGridDBColumn;     cxGridDBTableView2Hx: TcxGridDBColumn;     cxGridDBTableView2Yy: TcxGridDBColumn;     cxGridDBTableView2Ls: TcxGridDBColumn;     cxGridDBTableView2Dl: TcxGridDBColumn;     cxGridDBTableView2Sw: TcxGridDBColumn;     cxGridDBTableView2XJ: TcxGridDBColumn;     cxGridDBTableView2Qt: TcxGridDBColumn;     QCJK2ZF: TFloatField;     cxGridDBTableView2DBColumn1: TcxGridDBColumn;     QJBXXDM: TStringField;     QCJK2ID: TIntegerField;     QCJK2ZZ_DA: TStringField;     QCJK2YW_DA: TStringField;     QCJK2SX_DA: TStringField;     QCJK2WL_DA: TStringField;     QCJK2HX_DA: TStringField;     QCJK2YY_DA: TStringField;     QCJK2LS_DA: TStringField;     QCJK2DL_DA: TStringField;     QCJK2SW_DA: TStringField;     QCJK2XJ_DA: TStringField;     QCJK2QT_DA: TStringField;     QCJK2BJ: TIntegerField;     procedure FormClose(Sender: TObject; var Action: TCloseAction);     procedure FormDestroy(Sender: TObject);     procedure btnCloseClick(Sender: TObject);     procedure btnOKClick(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure btnCXClick(Sender: TObject);     procedure btnDKClick(Sender: TObject);     procedure btnClearClick(Sender: TObject);     procedure btnDCClick(Sender: TObject);     procedure bsSkinLabel8DblClick(Sender: TObject);     procedure dsQCJKDataChange(Sender: TObject; Field: TField);     procedure bsSkinButton1Click(Sender: TObject);     procedure QCJK2CalcFields(DataSet: TDataSet);   private     { Private declarations }   public     { Public declarations }     procedure SaveCJ(D:string);//保存成绩     function CheckDX(D1,D2:string):Boolean;//检查多选题答案   end; var   FrmBZDK: TFrmBZDK;   KMDM:string;   JBDM:string;//级部代码   BJDM:string;//年级代码   iDK:integer;   tslKH:Tstringlist; implementation  uses main, C_BZDA; {$R *.dfm} procedure TFrmBZDK.FormClose(Sender: TObject; var Action: TCloseAction); begin   QCJK.close;   QJBXX.Close;   QKMDMK.Close;   QCJK2.Close;   tslKH.Destroy;   Action:=caFree; end; procedure TFrmBZDK.FormDestroy(Sender: TObject); begin    FrmBZDK:=NIL; end; procedure TFrmBZDK.btnCloseClick(Sender: TObject); begin   Close; end; procedure TFrmBZDK.btnOKClick(Sender: TObject); begin    if (dxDBLookupTreeView1.Text='')or(QJBXX.FieldByName('DM').AsString='') then    begin       bsSkinMessage1.MessageDlg('请选择一个班级！',                                (mtinformation),[mbOK],0);       Abort;    end;    if bsSkinDBLookupComboBox1.Text='' then    begin       bsSkinMessage1.MessageDlg('请选择一个科目！',                                (mtinformation),[mbOK],0);       Abort;    end;    KMDM:=QKMDMK.FieldByName('DM').AsString;    JBDM:=QJBXX.FieldByName('PID').AsString;    BJDM:=QJBXX.FieldByName('DM').AsString;    QBZDA.Close;    QBZDA.SQL.Clear;    QBZDA.SQL.Add('SELECT * FROM BZDA WHERE((DM='''+KMDM+''')AND(JB='+JBDM+')AND(ID>0))ORDER BY TH');    QBZDA.Open;    if QBZDA.RecordCount=0 then    begin      QBZDA.Close;      bsSkinMessage1.MessageDlg(dxDBLookupTreeView1.Text+bsSkinDBLookupComboBox1.Text+'还没有设置标准答案！',                                (mtinformation),[mbOK],0);      Abort;    end;    QCJK.Close;    QCJK.SQL.Clear;    QCJK.SQL.Add('SELECT KH,JB,BJ, '+KMDM+','+KMDM+'_DA  FROM BZCJK  WHERE(JB='+JBDM+')AND(BJ='''+BJDM+''')');    //ShowMessage(QCJK.SQL.Text);    QCJK.Open;    if QCJK.RecordCount=0 then    begin      QCJK.Close;      QBZDA.Close;      bsSkinMessage1.MessageDlg(dxDBLookupTreeView1.Text+bsSkinDBLookupComboBox1.Text+'没有考生信息，您需要通过[学生信息]-[输入学生信息]来输入学生信息！',                                (mtinformation),[mbOK],0);      Abort;    end;    bsSkinLabel10.Caption:=dxDBLookupTreeView1.Text+bsSkinDBLookupComboBox1.Text+' 标准答案';    bsSkinSpinEdit2.Value:=QBZDA.RecordCount;    btnCX.Enabled:=true;    btnDK.Enabled:=true;    btnClear.Enabled:=true;    btnDC.Enabled:=true;    btnOK.Enabled:=false;    bsSkinButton1.Enabled:=false;    cxGridDBTableView1KM.DataBinding.FieldName:=KMDM;    cxGridDBTableView1KMDA.DataBinding.FieldName:=KMDM+'_DA';    QCJK2.Close;    QCJK2.ParamByName('JB').AsString:=JBDM;    QCJK2.ParamByName('BJ').AsString:=BJDM;    QCJK2.Open;    tslKH.Clear; end; procedure TFrmBZDK.FormCreate(Sender: TObject); begin    QJBXX.Open;    QKMDMK.Open;    //QKmdmk2.Open;    //QCJK.Open;    iDK:=0;    tslKH:=TStringList.Create; end; procedure TFrmBZDK.btnCXClick(Sender: TObject); begin    btnCX.Enabled:=false;    btnDK.Enabled:=false;    btnClear.Enabled:=false;    btnDC.Enabled:=false;    bsSkinButton1.Enabled:=true;    btnOK.Enabled:=true;    QBZDA.Close;    QCJK.Close; end; procedure TFrmBZDK.btnDKClick(Sender: TObject);   type   TORM_Fun=function(Cmd

char):Integer; stdcall; var Cmd:array[0..254] of char; Buf:array[0..254] of char; sp:string; i,j:integer; begin    begin     // ShowMessage('DLL OK!');      try      // @OmrS:=GetProcAddress(TH,'OrmS');      // @OmrG:=GetProcAddress(TH,'OrmG');       FillChar(buf, SizeOf(buf), Ord(' '));       StrPCopy(Cmd,'S '+main.ORM_FormFileName+'/');     omrS(cmd);  //送格式命令    while 2=2 do    begin         sp:=' ';         for i:=1 to 200 do          begin            sp:=sp+' ';          end;        Cmd:= '/ ';          J:=main.omrS(Cmd);            I:=main.omrG(Buf);      //取读卡返回字串            bsSkinStatusPanel1.Caption:='阅卷状态：'+main.FrmMain.yjerr(i);            if Copy(Buf,1,2)='OK' then            begin             strpcopy(Cmd,'001');             main.omrS(Cmd); //送取数据命令           main.omrG(Buf);               if Pos('.',Copy(buf,2,9))>0 then               begin                 Cmd:='-/';             main.omrS(Cmd);                 bsSkinLabel7.Caption:='考号[ '+Copy(buf,2,9)+' ]涂写错误！';                 bsSkinMessage1.MessageDlg('考号[ '+Copy(buf,2,9)+' ]涂写错误！',(mtinformation),[mbOK],0);                 break;               end;               if (tslKH.IndexOf(Copy(buf,2,9))<0) then //没过读卡               begin                 tslKH.Add(Copy(buf,2,9));                 SaveCJ(Copy(Buf,1,200));      //取返回字串                 FrmBZDK.cxGrid2.Refresh;                 Cmd:='-/';             main.omrS(Cmd);                 iDK:=iDK+1;      //送停机命令                 bsSkinLabel8.Caption:='已阅卷人数(双击此处计数器置0)：'+IntToStr(iDK);               end               else               begin //已读过该考号                 Cmd:='-/';             main.omrS(Cmd);                 bsSkinLabel7.Caption:='考号[ '+Copy(buf,2,9)+' ]重复！';                 bsSkinMessage1.MessageDlg('考号[ '+Copy(buf,2,9)+' ]重复！',(mtinformation),[mbOK],0);                 break;               end;          end          else           begin             Cmd:='-/';  //送停机命令               bsSkinStatusPanel2.Caption:='阅卷机状态：'+main.FrmMain.yjerr(j);               bsSkinLabel9.Caption:='阅卷机状态：'+main.FrmMain.yjerr(j);             main.omrS(Cmd);                    btnDK.SetFocus;             break;        end;       end;      except        Cmd:='-/';    main.omrS(Cmd);        // FreeLibrary(TH);      end;   end; end; procedure TFrmBZDK.SaveCJ(D:string);//保存成绩 var i,j:integer;   DTWZ:integer;//答题位置   TS:integer;//答题位置   KSTH:integer;//开始题号   DAN,BZDA:string;   KH:string;   CJ:Extended; begin      DTWZ:=StrToInt(FormatFloat('0',bsSkinSpinEdit1.Value));      TS:=StrToInt(FormatFloat('0',bsSkinSpinEdit2.Value));      KSTH:=StrToInt(FormatFloat('0',bsSkinSpinEdit4.Value));      KH:=Copy(D,2,9);      QBZDA.DisableControls;      for i:=1 to TS do      begin         DAN:=main.FrmMain.DAZH(Copy(D,DTWZ+i-1+11,1));         QBZDA.Locate('TH',IntToStr(KSTH+i-1),[]);         BZDA:=QBZDA.FieldByName('DAN').AsString;         if dan<>'' then         if QBZDA.FieldByName('DX').Value then//多选         begin           if DAN=BZDA then           begin             CJ:=CJ+QBZDA.FieldByName('FZ').AsFloat;           end           else           begin             if CheckDX(DAN,BZDA) then               CJ:=CJ+QBZDA.FieldByName('BFZ').AsFloat;           end;         end         else         begin           if DAN=BZDA then             CJ:=CJ+QBZDA.FieldByName('FZ').AsFloat;         end;      end;      if not (QCJK.Locate('KH',KH,[])) then      begin        QCJK.Append;        QCJK.Edit;        QCJK.FieldByName('KH').AsString:=KH;        QCJK.FieldByName('JB').AsString:=JBDM;        QCJK.FieldByName(KMDM).AsString:=FormatFloat('0.00',CJ);        QCJK.FieldByName(KMDM+'_DA').AsString:=Copy(D,12,TS);        QCJK.Post;        QCJK.Close;        QCJK.Open;        QCJK.Last;      end      else      begin        QCJK.Edit;        //QCJK.FieldByName('JB').AsString:=JBDM;        QCJK.FieldByName('KH').AsString:=KH;        QCJK.FieldByName(KMDM).AsString:=FormatFloat('0.00',CJ);        QCJK.FieldByName(KMDM+'_DA').AsString:=Copy(D,12,TS);        QCJK.Post;      end;      QBZDA.EnableControls;      bsSkinLabel7.Caption:='最后考号：'+Copy(D,2,9); end; function TFrmBZDK.CheckDX(D1,D2:string):Boolean;//检查多选题答案 var  i:integer;  sDA:string; begin    if D2='ABCD' then      sDA:='ABCDABDACDACADCD';    if D2='ABC' then      sDA:='ABCAC';    if D2='BCD' then      sDA:='BCDBD';    if D2='ACD' then      sDA:='ACDAD';    if D2='ABD' then      sDA:='ABDAD';    if D2='AB' then      sDA:='AB';    if D2='AC' then      sDA:='AC';    if D2='AD' then      sDA:='AD';    if D2='BC' then      sDA:='BC';    if D2='BD' then      sDA:='BD';    if D2='CD' then      sDA:='CD';   CheckDX:=(Pos(D1,sDA)>0); end; procedure TFrmBZDK.btnClearClick(Sender: TObject); begin    if  bsSkinMessage1.MessageDlg('你确定清空自由阅卷成绩库？',(mtConfirmation),[mbYES,mbNO],0)=mrYes then    begin      QTemp.Close;      QTemp.SQL.Clear;      QTemp.SQL.Add('DELETE FROM CJK WHERE JB='+JBDM);      QTemp.ExecSQL;      QCJK.Close;      QCJK.Open;    end; end; procedure TFrmBZDK.btnDCClick(Sender: TObject); begin   main.FrmMain.ToXLS(dxDBLookupTreeView1.Text+'成绩.xls',cxGrid2); end; procedure TFrmBZDK.bsSkinLabel8DblClick(Sender: TObject); begin   iDK:=0;   bsSkinLabel8.Caption:='已阅卷人数(双击此处计数器置0)：'+IntToStr(iDK); end; procedure TFrmBZDK.dsQCJKDataChange(Sender: TObject; Field: TField); begin    bsSkinStatusPanel3.Caption:='库中有记录：'+IntToStr(QCJK.RecordCount); end; procedure TFrmBZDK.bsSkinButton1Click(Sender: TObject); begin   if  not Assigned(FrmBZDA) then   begin     FrmBZDA:=TFrmBZDA.Create(self);   end;   FrmBZDA.ShowModal; end; procedure TFrmBZDK.QCJK2CalcFields(DataSet: TDataSet); begin   QCJK2.FieldByName('ZF').AsFloat:=QCJK2.FieldByName('ZZ').AsFloat+                                    QCJK2.FieldByName('YW').AsFloat+                                    QCJK2.FieldByName('YY').AsFloat+                                    QCJK2.FieldByName('SX').AsFloat+                                    QCJK2.FieldByName('WL').AsFloat+                                    QCJK2.FieldByName('HX').AsFloat+                                    QCJK2.FieldByName('SW').AsFloat+                                    QCJK2.FieldByName('XJ').AsFloat+                                    QCJK2.FieldByName('DL').AsFloat+                                    QCJK2.FieldByName('QT').AsFloat; end; end.

li10 · 2007-01-15

to xcplates兄：谢谢了，虽然看不懂，但被你的热心所感动！ 可以发给我源码吗？在此先谢了！ aqclh@126.com   QQ:502407213

ljy42af · 2007-01-16

本公司诚聘软件工程师数名,要求大专以上学历，计算机专业，熟练掌握DELPHI+SQL编程，能开发C/S 或B/S结构的应用软件，二年以上工作经验，有在软件公司工作经验优先考虑。有意者请联系QQ419682853,邮箱:ljy42af@gdou.com

li10 · 2007-01-27

大侠们，还有发言的吗？

请问如何读取如此数据到指定表？ ( 积分: 100 )

li10

Unregistered / Unconfirmed

c05h

Unregistered / Unconfirmed

abin30

Unregistered / Unconfirmed

3868474

Unregistered / Unconfirmed

li10

Unregistered / Unconfirmed

c05h

Unregistered / Unconfirmed

li10

Unregistered / Unconfirmed

li10

Unregistered / Unconfirmed

li10

Unregistered / Unconfirmed

xcplates

Unregistered / Unconfirmed

xcplates

Unregistered / Unconfirmed

li10

Unregistered / Unconfirmed

ljy42af

Unregistered / Unconfirmed

li10

Unregistered / Unconfirmed

Similar threads