⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 one.~pas

📁 这是一个DELPHI+ACCESS所做的开课生成器
💻 ~PAS
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
adoquery3.SQL.Clear;
adoquery3.SQL.Add('delete from 工作量测量');
adoquery3.ExecSQL;
end;
end;
end;

procedure TForm1.BitBtn16Click(Sender: TObject);
begin
BitBtn20.Visible:=true;
BitBtn23.Visible:=false;
GroupBox19.Visible:=true;
edit4.Enabled:=true;  //设置课程名称的编辑
ComboBox18.Enabled:=true;
combobox18.Text:='';
combobox19.Text:='';
combobox20.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
maskedit1.Text:='';
maskedit2.Text:='';
maskedit3.Text:='';
maskedit4.Text:='';
maskedit5.Text:='';
maskedit6.Text:='';
maskedit7.Text:='';
Label21.Visible:=true;
Label22.Visible:=true;
Label23.Visible:=true;
Label24.Visible:=true;
Label25.Visible:=true;
MaskEdit4.Visible:=true;
MaskEdit5.Visible:=true;
MaskEdit6.Visible:=true;
MaskEdit7.Visible:=true;
edit7.Visible:=true;



end;

procedure TForm1.TabbedNotebook2Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin

GroupBox19.Visible:=false;
BitBtn17.Enabled:=false;//设置修改变灰
BitBtn21.Enabled:=false;
Label21.Visible:=true;
Label22.Visible:=true;
Label23.Visible:=true;
Label24.Visible:=true;
Label25.Visible:=true;
MaskEdit4.Visible:=true;
MaskEdit5.Visible:=true;
MaskEdit6.Visible:=true;
MaskEdit7.Visible:=true;
edit7.Visible:=true;
end;

procedure TForm1.BitBtn20Click(Sender: TObject);
begin
if ((combobox18.Text='')or( combobox19.Text='')or
(combobox20.Text='')or(edit4.Text='')or
(edit5.Text='')or(edit6.Text='')or
(maskedit1.Text='')or(maskedit2.Text='')or
(maskedit3.Text='')   )
then
showmessage('信息不全')
else
begin



with adoquery2 do
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('insert into 工作量测量 values('''+combobox18.Text+''','''+label12.Caption+''','''+edit4.Text+''',');
adoquery2.sql.Add(''''+combobox19.Text+''','''+edit5.Text+''','''+maskedit1.Text+''','''+combobox20.Text+''',');
adoquery2.SQL.Add(''''+edit6.Text+''','''+maskedit2.Text+''','''+maskedit3.Text+''',');
adoquery2.SQL.Add(''''+maskedit4.Text+''','''+maskedit5.Text+''','''+edit7.Text+''',');
adoquery2.SQL.Add(''''+maskedit6.Text+''','''+maskedit7.Text+''')');

adoquery2.ExecSQL;
showmessage('添加成功');
GroupBox19.Visible:=false;
combobox18.Text:='';
combobox19.Text:='';
combobox20.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
maskedit1.Text:='';
maskedit2.Text:='';
maskedit3.Text:='';
maskedit4.Text:='';
maskedit5.Text:='';
maskedit6.Text:='';
maskedit7.Text:='';
WITH adoquery3 do
close;
adoquery3.SQL.clear;
adoquery3.SQL.add('select * from 工作量测量 order by 授课教师');
adoquery3.Open;
DBGrid2.Columns[0].Width:=52;
DBGrid2.Columns[1].Width:=40;
DBGrid2.Columns[2].Width:=80;
DBGrid2.Columns[3].Width:=74;
DBGrid2.Columns[4].Width:=62;
DBGrid2.Columns[5].Width:=40;
DBGrid2.Columns[6].Width:=50;
DBGrid2.Columns[7].Width:=50;
DBGrid2.Columns[8].Width:=40;
DBGrid2.Columns[9].Width:=30;
DBGrid2.Columns[10].Width:=98;
DBGrid2.Columns[11].Width:=98;
DBGrid2.Columns[12].Width:=50;
DBGrid2.Columns[13].Width:=120;
DBGrid2.Columns[14].Width:=90;

end;
end;

procedure TForm1.ComboBox18DropDown(Sender: TObject);
var  i:integer;
begin
str_xy:='select 姓名 from 教师 where 院系 like '''+ComboBox16.Text+'''';
 combobox18.Clear;

with adoquery2 do
 begin close;
  sql.Clear;
sql.Add(str_xy);
open;
end;
for i:=adoquery2.RecordCount  downto 1 do
begin
 SsnoSea:= adoquery2.Fields[0].AsString;
ComboBox18.Items.Add( SsnoSea);
adoquery2.next;
adoquery2.ExecSQL;

end;

end;

procedure TForm1.ComboBox18Change(Sender: TObject);
begin

str_xy:='select 职称 from 教师 where 姓名 like '''+combobox18.Text+'''';


with adoquery2 do
 begin close;
  sql.Clear;
sql.Add(str_xy);
open;
     end;
Label12.Caption:=adoquery2.Fields[0].AsString;


 str_xy:='select * from 工作量测量 where 授课教师 like '''+combobox18.Text+'''';


with adoquery2 do
 begin close;
  sql.Clear;
sql.Add(str_xy);
open;
if adoquery2.RecordCount<>0
then  begin
Label21.Visible:=false;
Label22.Visible:=false;
Label23.Visible:=false;
Label24.Visible:=false;
Label25.Visible:=false;
MaskEdit4.Visible:=false;
MaskEdit5.Visible:=false;
MaskEdit6.Visible:=false;
MaskEdit7.Visible:=false;
edit7.Visible:=false;
end

 else
 begin
Label21.Visible:=true;
Label22.Visible:=true;
Label23.Visible:=true;
Label24.Visible:=true;
Label25.Visible:=true;
MaskEdit4.Visible:=true;
MaskEdit5.Visible:=true;
MaskEdit6.Visible:=true;
MaskEdit7.Visible:=true;
edit7.Visible:=true;


 end;
end;


end;

procedure TForm1.DBGrid2CellClick(Column: TColumn);
begin
BitBtn17.Enabled:=true;//设置修改变灰
BitBtn21.Enabled:=true;//设置删除变灰
BitBtn23.Visible:=true;
BitBtn20.Visible:=false;
edit4.Enabled:=true;
ComboBox18.Enabled:=false;
combobox18.Text:=(adoquery3.Fields[0].asstring);
label12.Caption:=(adoquery3.Fields[1].asstring);
edit4.Text:=(adoquery3.Fields[2].asstring);
combobox19.Text:=(adoquery3.Fields[3].asstring);
edit5.Text:=(adoquery3.Fields[4].asstring);
maskedit1.Text:=(adoquery3.Fields[5].asstring);
combobox20.Text:=(adoquery3.Fields[6].asstring);
edit6.Text:=(adoquery3.Fields[7].asstring);
maskedit2.Text:=(adoquery3.Fields[8].asstring);
maskedit3.Text:=(adoquery3.Fields[9].asstring);
maskedit4.Text:=(adoquery3.Fields[10].asstring);
maskedit5.Text:=(adoquery3.Fields[11].asstring);
edit7.Text:=(adoquery3.Fields[12].asstring);
maskedit6.Text:=(adoquery3.Fields[13].asstring);
maskedit7.Text:=(adoquery3.Fields[14].asstring);;



end;

procedure TForm1.BitBtn22Click(Sender: TObject);
begin
GroupBox19.Visible:=false;
end;

procedure TForm1.BitBtn17Click(Sender: TObject);
begin
GroupBox19.Visible:=true;
BitBtn23.Visible:=true;
BitBtn20.Visible:=false;
edit4.Enabled:=false;  //设置课程名称的编辑
ComboBox18.Enabled:=false;
combobox18.Text:=(adoquery3.Fields[0].asstring);
label12.Caption:=(adoquery3.Fields[1].asstring);
edit4.Text:=(adoquery3.Fields[2].asstring);
combobox19.Text:=(adoquery3.Fields[3].asstring);
edit5.Text:=(adoquery3.Fields[4].asstring);
maskedit1.Text:=(adoquery3.Fields[5].asstring);
combobox20.Text:=(adoquery3.Fields[6].asstring);
edit6.Text:=(adoquery3.Fields[7].asstring);
maskedit2.Text:=(adoquery3.Fields[8].asstring);
maskedit3.Text:=(adoquery3.Fields[9].asstring);
maskedit4.Text:=(adoquery3.Fields[10].asstring);
maskedit5.Text:=(adoquery3.Fields[11].asstring);
edit7.Text:=(adoquery3.Fields[12].asstring);
maskedit6.Text:=(adoquery3.Fields[13].asstring);
maskedit7.Text:=(adoquery3.Fields[14].asstring);;
ComboBox18.AutoDropDown:=false;
end;

procedure TForm1.BitBtn21Click(Sender: TObject);
begin
if (application.MessageBox('确认删除','提示',mb_yesno+MB_ICONASTERISK)=idyes)
then
begin
combobox18.Text:='';
combobox19.Text:='';
combobox20.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
maskedit1.Text:='';
maskedit2.Text:='';
maskedit3.Text:='';
maskedit4.Text:='';
maskedit5.Text:='';
maskedit6.Text:='';
maskedit7.Text:='';



//showmessage(dbgrid2.SelectedField.Text);
//showmessage(dbgrid2.SelectedField.DisplayText);
//showmessage(dbgrid2.SelectedField.DisplayName);
//showmessage(trim(adoquery3.Fields[0].asstring));

  str_jsgs1:=trim(adoquery3.Fields[0].asstring);
  str_jsgs2:=trim(adoquery3.Fields[2].asstring);
 //showmessage(str_jsgs1);
// showmessage(str_jsgs2);
with adoquery3 do

adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('delete from 工作量测量 where 授课教师 like '''+str_jsgs1+''' and 课程名称 like '''+str_jsgs2+'''');
adoquery3.ExecSQL;
WITH adoquery3 do
close;
adoquery3.SQL.clear;
adoquery3.SQL.add('select * from 工作量测量 order by 授课教师');
adoquery3.Open;

DBGrid2.Columns[0].Width:=52;
DBGrid2.Columns[1].Width:=40;
DBGrid2.Columns[2].Width:=80;
DBGrid2.Columns[3].Width:=74;
DBGrid2.Columns[4].Width:=62;
DBGrid2.Columns[5].Width:=40;
DBGrid2.Columns[6].Width:=50;
DBGrid2.Columns[7].Width:=50;
DBGrid2.Columns[8].Width:=40;
DBGrid2.Columns[9].Width:=30;
DBGrid2.Columns[10].Width:=98;
DBGrid2.Columns[11].Width:=98;
DBGrid2.Columns[12].Width:=50;
DBGrid2.Columns[13].Width:=120;
DBGrid2.Columns[14].Width:=90;

//DBGrid2.Columns[13].Width:=90;//设置bggrid的列宽
showmessage('删除成功');
end;
end;

procedure TForm1.BitBtn23Click(Sender: TObject);
begin
if ((combobox18.Text='')or( combobox19.Text='')or
(combobox20.Text='')or(edit4.Text='')or
(edit5.Text='')or(edit6.Text='')or
(maskedit1.Text='')or(maskedit2.Text='')or
(maskedit3.Text='')   )
then
showmessage('信息不全')
else
begin



with adoquery2 do
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.Add('update  工作量测量 set ');
adoquery2.sql.Add('公共或专业课='''+combobox19.Text+''',授课专业班级='''+edit5.Text+''',学生数='''+maskedit1.Text+''',是否合班='''+combobox20.Text+''',');
adoquery2.SQL.Add('班级系数='''+edit6.Text+''',周学时='''+maskedit2.Text+''',周数='''+maskedit3.Text+''',');
adoquery2.SQL.Add('指导学年论文人数='''+maskedit4.Text+''',指导毕业论文人数='''+maskedit5.Text+''',课程实践='''+edit7.Text+''',');
adoquery2.SQL.Add('带队（指导）实习人数='''+maskedit6.Text+''',其它或见习实验='''+maskedit7.Text+'''');
adoquery2.SQL.Add('where 授课教师 like '''+ComboBox18.Text+''' and 课程名称 like '''+edit4.Text+'''');
adoquery2.ExecSQL;
WITH adoquery3 do
close;
adoquery3.SQL.clear;
adoquery3.SQL.add('select * from 工作量测量 order by 授课教师');
adoquery3.Open;

DBGrid2.Columns[0].Width:=52;
DBGrid2.Columns[1].Width:=40;
DBGrid2.Columns[2].Width:=80;
DBGrid2.Columns[3].Width:=74;
DBGrid2.Columns[4].Width:=62;
DBGrid2.Columns[5].Width:=40;
DBGrid2.Columns[6].Width:=50;
DBGrid2.Columns[7].Width:=50;
DBGrid2.Columns[8].Width:=40;
DBGrid2.Columns[9].Width:=30;
DBGrid2.Columns[10].Width:=98;
DBGrid2.Columns[11].Width:=98;
DBGrid2.Columns[12].Width:=50;
DBGrid2.Columns[13].Width:=120;
DBGrid2.Columns[14].Width:=90;
showmessage('修改成功');

end;
end;

procedure TForm1.BitBtn19Click(Sender: TObject);
begin
with adoquery3 do
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('delete from 工作量测量');
adoquery3.ExecSQL;
end;

procedure TForm1.BitBtn18Click(Sender: TObject);
var
 i,x,row,column:integer;
begin

    adoquery3.Close;
    adoquery3.Open;
    excelapplication1.Connect;
    ExcelApplication1.Workbooks.Open(dir+'\工作量测算表.xls',
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,
    EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
    excelapplication1.Visible[0]:=true;
    excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
    excelworksheet1.ConnectTo(excelworkbook1.Worksheets[1] as _Worksheet);
    excelworksheet1.Cells.Item[1,1]:=ComboBox15.Text+'学年'+ComboBox16.Text+ComboBox17.Text+'学期教师工作量测量表';
    //excelworksheet1.Cells.Item[4,3]:=datetostr(now) ;

     row:=4;
     x:=adoquery3.RecordCount;
    while not(adoquery3.eof) do
    begin
    //x:=adoquery3.RecordCount;
    column:=1;
    for i:=1 to adoquery3.FieldCount do
    begin
       excelworksheet1.Cells.Item[row,column]:=adoquery3.Fields[i-1].AsString;
      // excelworksheet1.Cells.Item[row,1]:=row-6;
       column:=column+1;
       end;
     adoquery3.Next;
     row:=row+1;

      //
       //
    end;

   excelworksheet1.Cells.Item[x+5,1]:='合计';
   excelworksheet1.Cells.Item[x+6,4]:='审核：';
   excelworksheet1.Cells.Item[x+6,7]:='填表：';

    //excelworksheet1.Range['A9:p9','a10:p10'].Select;
    //excelworksheet1.Range['A9:p9','a10:p10'].Merge('a10');
    excelworksheet1.Range['A'+inttostr(x+7)+':b'+inttostr(x+7),'A'+inttostr(x+7)+':b'+inttostr(x+7)].Merge(false);
    excelworksheet1.Range['A'+inttostr(x+8)+':p'+inttostr(x+8),'A'+inttostr(x+13)+':p'+inttostr(x+13)].Merge(false);

    excelworksheet1.Cells.Item[x+7,1]:='填表说明：' ;
   excelworksheet1.Cells.Item[x+8,1]:='1.本表以学院为单位填报；下半年新生以14周，其他以18周计算，上半年统一按18周计算；                                                          '
          +'2.授课班级人数≦60人，班级系数为1；授课班级人数60人以上的，每增加10人，班级系数增加0.1；                                                  '
          +'3.教育实习、毕业论文等其他教学工作参照《泉州师范学院教师教学工作量计算办法》计算；                                                        '
          +'4.实验工作量参照《泉州师范学院实验人员工作量计算办法》计算；                                                                              '
          +'5.测算单位“学时”为一个标准学时的工作量，包括作业、辅导、答疑、考试等，故作业等工作量不另计算；                                          '
          +'6.各学院应分别统计出课堂教学、实验教学和实践教学工作量和全部合计                                                                          '
          +'7.本表于12月7日前交教务处。                                                                                                               ';
 begin

   SaveDialog1.Filter:='excel files (*.xls)';//保存类型
   savedialog1.FileName:=ComboBox15.Text+'学年'+ComboBox16.Text+ComboBox17.Text+'学期教师工作量测量表';           //取得保存文件名
   savedialog1.InitialDir:=dirgxc+'\';   //保存路径

if
SaveDialog1.Execute
then
   excelworksheet1.SaveAs(SaveDialog1.FileName);
end;
begin
excelapplication1.Quit;
excelapplication1.Disconnect;


end;

 DBGrid2.Columns[0].Width:=52;
DBGrid2.Columns[1].Width:=40;
DBGrid2.Columns[2].Width:=80;
DBGrid2.Columns[3].Width:=74;
DBGrid2.Columns[4].Width:=62;
DBGrid2.Columns[5].Width:=40;
DBGrid2.Columns[6].Width:=50;
DBGrid2.Columns[7].Width:=50;
DBGrid2.Columns[8].Width:=40;
DBGrid2.Columns[9].Width:=30;
DBGrid2.Columns[10].Width:=98;
DBGrid2.Columns[11].Width:=98;
DBGrid2.Columns[12].Width:=50;
DBGrid2.Columns[13].Width:=120;
DBGrid2.Columns[14].Width:=90;



end;


procedure TForm1.BitBtn24Click(Sender: TObject);
begin
close;
end;

end.
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -