学计算机的大学生,除了打游戏还会个吊毛啊?
不服的把这段代码翻译一下,日
unit xs_Seek_bd_ls;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, baseMDI, cxLookAndFeelPainters, cxStyles, cxCustomData,
cxGraphics, cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, ADODB,
cxGridLevel, cxGridCustomTableView, cxGridTableView,
cxGridBandedTableView, cxGridDBBandedTableView, cxClasses, cxControls,
cxGridCustomView, cxGrid, StdCtrls, cxRadioGroup, cxTextEdit, cxButtons,
cxCheckBox, cxContainer, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
cxDBLookupEdit, cxDBLookupComboBox, ExtCtrls;
type
Tfrmxs_Seek_bd_ls = class(TfrmbaseMDI)
pnl1: TPanel;
lbl1: TLabel;
lbl2: TLabel;
lcbxn: TcxLookupComboBox;
lcbxq: TcxLookupComboBox;
chkfjtj: TcxCheckBox;
btnseek: TcxButton;
btnexit: TcxButton;
pnl4: TPanel;
lbl3: TLabel;
lcbxy: TcxLookupComboBox;
lcbnj: TcxLookupComboBox;
edtxh: TcxTextEdit;
rbtnxy: TcxRadioButton;
rbtnnj: TcxRadioButton;
rbtnbj: TcxRadioButton;
rbtnxh: TcxRadioButton;
rbtnxm: TcxRadioButton;
rbtnzch: TcxRadioButton;
edtxm: TcxTextEdit;
edtzch: TcxTextEdit;
cxGrid1: TcxGrid;
gridwzc: TcxGridDBBandedTableView;
gridwzcDBBandedColumn1: TcxGridDBBandedColumn;
gridwzcDBBandedColumn2: TcxGridDBBandedColumn;
gridwzcDBBandedColumn9: TcxGridDBBandedColumn;
gridwzcDBBandedColumn10: TcxGridDBBandedColumn;
gridwzcDBBandedColumn3: TcxGridDBBandedColumn;
gridwzcDBBandedColumn4: TcxGridDBBandedColumn;
gridwzcDBBandedColumn5: TcxGridDBBandedColumn;
gridwzcDBBandedColumn6: TcxGridDBBandedColumn;
gridwzcDBBandedColumn7: TcxGridDBBandedColumn;
gridwzcDBBandedColumn8: TcxGridDBBandedColumn;
cxGrid1Level1: TcxGridLevel;
adsxy: TADODataSet;
adsbj: TADODataSet;
dsxy: TDataSource;
dsbj: TDataSource;
adswzc: TADODataSet;
dswzc: TDataSource;
adsempl: TADODataSet;
dsempl: TDataSource;
adshzcyy: TADODataSet;
dshzcyy: TDataSource;
adsxn: TADODataSet;
dsxn: TDataSource;
adsxq: TADODataSet;
dsxq: TDataSource;
adsnj: TADODataSet;
dsnj: TDataSource;
lcbbj: TcxTextEdit;
Panel1: TPanel;
Panel2: TPanel;
RadioGroup1: TRadioGroup;
rbtnyzc: TcxRadioButton;
rbtnwzc: TcxRadioButton;
rbtnhzc: TcxRadioButton;
rbtnqb: TcxRadioButton;
gridwzcDBBandedColumn11: TcxGridDBBandedColumn;
gridwzcDBBandedColumn12: TcxGridDBBandedColumn;
gridwzcDBBandedColumn13: TcxGridDBBandedColumn;
gridwzcDBBandedColumn14: TcxGridDBBandedColumn;
gridwzcDBBandedColumn15: TcxGridDBBandedColumn;
procedure FormShow(Sender: TObject);
procedure chkfjtjClick(Sender: TObject);
procedure rbtnxyClick(Sender: TObject);
procedure btnexitClick(Sender: TObject);
function seek_fjtj:string;
procedure rbtnyzcClick(Sender: TObject);
procedure btnseekClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmxs_Seek_bd_ls: Tfrmxs_Seek_bd_ls;
implementation
uses dm, SysPublic, wait;
{$R *.dfm}
function Tfrmxs_seek_bd_ls.seek_fjtj:string;
var
fjtjstr:string;
begin
fjtjstr:='';
if length(trim(lcbxy.Text))<>0 then