【delphi开源代码栏目提醒】:文章导读:在新的一年中,各位网友都进入紧张的学习或是工作阶段。网学会员整理了delphi开源代码-cjcx.pas的相关内容供大家参考,祝大家在新的一年里工作和学习顺利!
unit cjcx;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, DBCtrls;
type
Tcjcxform = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
ComboBox1: TComboBox;
Label2: TLabel;
ComboBox2: TComboBox;
Label3: TLabel;
DBGrid1: TDBGrid;
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
ListBox1: TListBox;
procedure FormShow(Sender: TObject);
procedure ComboBox1Exit(Sender: TObject);
procedure ComboBox2Select(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
cjcxform: Tcjcxform;
implementation
uses datamodule;
{$R *.dfm}
procedure Tcjcxform.FormShow(Sender: TObject);
var i:integer;
begin
Combobox1.Clear;
//添加班级编号列表
with datamodule1 do
begin
table2.Active :=true;
table2.first;
for i:=1 to table2.RecordCount do
begin
Combobox1.items.add(table2.FieldValues['bjbh']);
table2.Next;
end;
end;
end;
procedure Tcjcxform.ComboBox1Exit(Sender: TObject);
begin
if combobox1.Text='' then
begin
messagedlg('请选择班级编号',mtwarning , [mbok],0);
combobox1.SetFocus;
end
else
combobox2.SetFocus;
end;
procedure Tcjcxform.ComboBox2Select(Sender: TObject);
var i:integer;
begin
listbox1.Clear;
with datamodule1.Query1 do
begin
close;
sql.Clear;
sql.Add('select kcmc from bjkc.dbf where (bjbh=:p1) and (xq=:p2)');
ParamByName('p1').AsString:=trim(combobox1.Text);
parambyname('p2').AsString:=inttostr(combobox2.itemindex);
prepare;
open;
first;
for i:=1 to RecordCount do
begin
listbox1.Items.Add(fieldvalues['kcmc']);
next;
end;
end;
end;
procedure Tcjcxform.BitBtn1Click(Sender: TObject);
var s:integer;
begin
s:=listbox1.ItemIndex;
with datamodule1.Query2 do
begin
close;
sql.Clear;
sql.Add('select distinct (cj.xh) as ,(cj.xq) as 学期,(jiben.xm) as ,(cj.cj) as 成绩 from cj,jiben, (jiben left join cj on jiben.xh=cj.xh) where kcmc=:p1');
parambyname('p1').AsString:=listbox1.Items[s];
prepare;
open;
end;
end;
procedure Tcjcxform.BitBtn2Click(Sender: TObject);
begin
combobox1.Text:='';
combobox2.Text:='';
listbox1.Clear;
datamodule1.Query2.Close;
dbgrid1.Refresh;
end;
procedure Tcjcxform.BitBtn3Click(Sender: TObject);
begin
close;
end;
end.
上一篇:
cityflightquery.pas
下一篇:
法律专业开题报告范文