📄 p_gl.pas

📁 小学上课排课系统,非常实用,是实际使用软件
💻 PAS
字号:
unit p_GL;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, ADODB, Grids, DBGrids, jpeg, ExtCtrls, ComCtrls,
  ToolWin, ImgList, StdCtrls, Buttons, StdActns, ExtActns, ActnList,
  DBCtrls, XPMenu;

type
  Tf_GL = class(TForm)
    MainMenu1: TMainMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    N6: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    T6: TToolButton;
    T2: TToolButton;
    ToolButton5: TToolButton;
    ToolButton9: TToolButton;
    ToolButton3: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton6: TToolButton;
    ZT: TStatusBar;
    Timer1: TTimer;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    ImageList1: TImageList;
    ActionList1: TActionList;
    EditCut1: TEditCut;
    EditCopy1: TEditCopy;
    EditPaste1: TEditPaste;
    WindowArrange1: TWindowArrange;
    WindowCascade1: TWindowCascade;
    WindowClose1: TWindowClose;
    WindowMinimizeAll1: TWindowMinimizeAll;
    WindowTileHorizontal1: TWindowTileHorizontal;
    WindowTileVertical1: TWindowTileVertical;
    EditDelete1: TEditDelete;
    EditSelectAll1: TEditSelectAll;
    EditUndo1: TEditUndo;
    HelpContents1: THelpContents;
    HelpOnHelp1: THelpOnHelp;
    HelpTopicSearch1: THelpTopicSearch;
    FileExit1: TFileExit;
    FileOpen1: TFileOpen;
    FilePrintSetup1: TFilePrintSetup;
    FileSaveAs1: TFileSaveAs;
    RichEditBold1: TRichEditBold;
    RichEditItalic1: TRichEditItalic;
    RichEditUnderline1: TRichEditUnderline;
    SearchFind1: TSearchFind;
    SearchFindNext1: TSearchFindNext;
    SearchReplace1: TSearchReplace;
    RichEditAlignCenter1: TRichEditAlignCenter;
    RichEditAlignLeft1: TRichEditAlignLeft;
    RichEditAlignRight1: TRichEditAlignRight;
    RichEditBullets1: TRichEditBullets;
    RichEditStrikeOut1: TRichEditStrikeOut;
    ColorSelect1: TColorSelect;
    FontEdit1: TFontEdit;
    OpenPicture1: TOpenPicture;
    SavePicture1: TSavePicture;
    FileRun1: TFileRun;
    PreviousTab1: TPreviousTab;
    NextTab1: TNextTab;
    SearchFindFirst1: TSearchFindFirst;
    HelpContextAction1: THelpContextAction;
    ListControlCopySelection1: TListControlCopySelection;
    ListControlDeleteSelection1: TListControlDeleteSelection;
    ListControlSelectAll1: TListControlSelectAll;
    ListControlClearSelection1: TListControlClearSelection;
    ListControlMoveSelection1: TListControlMoveSelection;
    BrowseURL1: TBrowseURL;
    DownLoadURL1: TDownLoadURL;
    SendMail1: TSendMail;
    PrintDlg1: TPrintDlg;
    ScrollBox1: TScrollBox;
    Splitter1: TSplitter;
    Panel1: TPanel;
    SG: TStringGrid;
    F1: TMenuItem;
    N16: TMenuItem;
    O1: TMenuItem;
    D1: TMenuItem;
    N17: TMenuItem;
    C1: TMenuItem;
    F2: TMenuItem;
    C2: TMenuItem;
    P1: TMenuItem;
    C3: TMenuItem;
    T1: TMenuItem;
    N19: TMenuItem;
    ToolButton2: TToolButton;
    ToolButton4: TToolButton;
    ToolButton10: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    PopupMenu1: TPopupMenu;
    PopupMenu2: TPopupMenu;
    N1: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N7: TMenuItem;
    N14: TMenuItem;
    R1: TMenuItem;
    N24: TMenuItem;
    B1: TMenuItem;
    N25: TMenuItem;
    ToolButton14: TToolButton;
    PopupMenu3: TPopupMenu;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    page: TPageControl;
    BJ: TTabSheet;
    Tree1: TTreeView;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    DCB_KC: TDBLookupComboBox;
    DCB_JS: TDBLookupComboBox;
    Memo1: TMemo;
    JS: TTabSheet;
    Tree2: TTreeView;
    N29: TMenuItem;
    N18: TMenuItem;
    N20: TMenuItem;
    XPMenu1: TXPMenu;
    procedure N10Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure T6Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure T2Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure SGDblClick(Sender: TObject);
    procedure SGSelectCell(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
    procedure N26Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure tree_data;
    procedure N16Click(Sender: TObject);
    procedure D1Click(Sender: TObject);
    procedure O1Click(Sender: TObject);
    procedure C1Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure Tree1Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure C2Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
    procedure C3Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure pageChange(Sender: TObject);  //树列表数据与数据库数据保持一致
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_GL: Tf_GL;
  ycol,yrow:integer;
implementation

//声名用户自定义单元
uses p_bjkb,p_print,p_cx1,p_about,p_password,p_dm,p_ggmm,p_user,p_new,p_del,p_xz,p_zd;

{$R *.dfm}
procedure tf_gl.tree_data;
var
 node:Ttreenode;
begin
  node:=nil;
  with dm do
  begin
    T_jiaoshi.First;
    t_banji.First;
    tree1.Items.Clear;
    tree2.Items.Clear;
    while not t_jiaoshi.Eof do
      begin
        tree2.Items.Add(node,t_jiaoshi['jsm']);
        t_jiaoshi.Next;
      end;
    while not t_banji.Eof do
      begin
        tree1.Items.Add(node,t_banji['bjm']);
        t_banji.Next;
      end;
  end;
end;
procedure Tf_GL.N10Click(Sender: TObject);
begin
  Application.CreateForm(tf_about,f_about);
end;

procedure Tf_GL.FormClose(Sender: TObject; var Action: TCloseAction);
var
 y:integer;
begin
  y:=application.MessageBox('您确认退出系统吗？','退出',mb_yesno+mb_iconquestion);
  if y=idno then abort;
  application.Terminate;
end;


procedure Tf_GL.ToolButton1Click(Sender: TObject);
begin
  f_gl.N12.Click;
end;

procedure Tf_GL.ToolButton6Click(Sender: TObject);
begin
  application.CreateForm(tf_about,f_about);
end;

procedure Tf_GL.T6Click(Sender: TObject);
begin
  f_gl.n6.Click;
end;

procedure Tf_GL.N6Click(Sender: TObject);
begin
  f_password.e_password.Text:='';
  f_gl.Hide;
  f_password.show;
end;

procedure Tf_GL.Timer1Timer(Sender: TObject);
begin
  ZT.Panels[1].Text:='请注意系统日期时间：'+formatdatetime('yyyy''年''m''月''d''日''h:mm:ss',now);
end;

procedure Tf_GL.ToolButton5Click(Sender: TObject);
begin
  f_gl.N3.Click;
end;

procedure Tf_GL.N3Click(Sender: TObject);
begin
   application.CreateForm(tf_ggmm,f_ggmm);
end;

procedure Tf_GL.N2Click(Sender: TObject);
begin
  application.CreateForm(tf_user,f_user);
end;

procedure Tf_GL.T2Click(Sender: TObject);
begin
  f_gl.n2.Click;
end;

procedure Tf_GL.N12Click(Sender: TObject);
begin
close;
end;

procedure Tf_GL.FormCreate(Sender: TObject);
begin
    f_gl.tree_data;
    dcb_kc.KeyValue:=dm.T_KeCheng['kch'];
    dcb_js.KeyValue:=dm.T_JiaoShi['jsh'];
    sg.ColWidths[0]:=60;
    sg.LeftCol:=1;
    SG.Rows[0].Strings[1]:='星期一';
    SG.Rows[0].Strings[2]:='星期二';
    SG.Rows[0].Strings[3]:='星期三';
    SG.Rows[0].Strings[4]:='星期四';
    SG.Rows[0].Strings[5]:='星期五';
    SG.Rows[0].Strings[6]:='星期六';
    //SG.Rows[0].Strings[7]:='星期日';
    //SG.Cols[0].Strings[1]:='早 自 习';
    SG.Cols[0].Strings[1]:='第一节课';
    SG.Cols[0].Strings[2]:='第二节课';
    SG.Cols[0].Strings[3]:='第三节课';
    SG.Cols[0].Strings[4]:='第四节课';
    SG.Cols[0].Strings[5]:='第五节课';
    SG.Cols[0].Strings[6]:='第六节课';
    SG.Cols[0].Strings[7]:='第七节课';
    SG.Cols[0].Strings[8]:='第八节课';
    //SG.Cols[0].Strings[9]:='晚 自 习';

end;

procedure Tf_GL.SGDblClick(Sender: TObject);
var
 s:string;
begin
 if trim(f_gl.ZT.Panels[0].Text)='没有打开的课表' then
 begin
   application.MessageBox('请新建或打开学期课表！','没有打开的课表',mb_ok+mb_iconinformation);
   exit;
 end;
 sg.Cells[ycol,yrow]:=dcb_kc.Text+' '+dcb_js.Text;
 s:=trim(inttostr(ycol)+inttostr(yrow));
 dm.T_KCBiao.Edit;
 dm.T_KCBiao[s]:=dcb_kc.Text+'   '+dcb_js.Text;
 dm.T_KCBiao.Post;
end;

procedure Tf_GL.SGSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  ycol:=acol;
  yrow:=arow;
end;

procedure Tf_GL.N26Click(Sender: TObject);
begin
  f_gl.SG.OnDblClick(self);
end;

procedure Tf_GL.N27Click(Sender: TObject);
var
 s:string;
begin
 if trim(f_gl.ZT.Panels[0].Text)='没有打开的课表' then
 begin
   application.MessageBox('请新建或打开学期课表！','没有打开的课表',mb_ok+mb_iconinformation);
   exit;
 end;
 s:=trim(inttostr(ycol)+inttostr(yrow));
 dm.T_KCBiao.Edit;
 dm.T_KCBiao[s]:='';
 dm.T_KCBiao.Post;
 sg.Cells[ycol,yrow]:='';
end;

procedure Tf_GL.ToolButton11Click(Sender: TObject);
begin
  sg.Cells[ycol,yrow]:='';
end;

procedure Tf_GL.N16Click(Sender: TObject);
begin
  application.CreateForm(tf_new,f_new);
end;

procedure Tf_GL.D1Click(Sender: TObject);
begin
application.CreateForm(tf_del,f_del);
end;

procedure Tf_GL.O1Click(Sender: TObject);
begin
  application.CreateForm(tf_xz,f_xz);
end;

procedure Tf_GL.C1Click(Sender: TObject);
var
 i,j:integer;
begin
  f_gl.ZT.Panels[0].Text:='没有打开的课表';
  for i:=1 to 6 do
      for j:=1 to 8 do sg.Cells[i,j]:='';
end;

procedure Tf_GL.ToolButton4Click(Sender: TObject);
begin
  f_gl.N16.Click;
end;

procedure Tf_GL.ToolButton10Click(Sender: TObject);
begin
  f_gl.O1.Click;
end;

procedure Tf_GL.Tree1Click(Sender: TObject);
var
 bjmc,ztl,s:string;
 i,j:integer;
 //kcb:array [1..20] of string;
begin
with dm do
begin

  bjmc:=tree1.Selected.Text;
  ztl:=f_gl.ZT.Panels[0].Text;
  if trim(ztl)='没有打开的课表' then
  begin
    application.MessageBox('没有打开的课表，请打开课表！','没有发现课表',mb_ok+mb_iconinformation);
    exit;
  end;
  t_xueqi.Filter:='xqm='''+ztl+'''';
  t_xueqi.Filtered:=true;
  t_banji.Filter:='bjm='''+bjmc+'''';
  t_banji.Filtered:=true;
  if trim(ztl)<>'没有打开的课表' then
  begin
     t_kcbiao.Filter:='xqh='''+t_xueqi['xqh']+'''and bjh='''+t_banji['bjh']+'''';
     t_kcbiao.Filtered:=true;
     t_kcbiao.Edit;
     for i:=1 to 6 do
       for j:=1 to 8 do
         begin
           s:=inttostr(i)+inttostr(j);
           sg.Cells[i,j]:=t_kcbiao[trim(s)]
         end;
     t_kcbiao.Post;
  end;
  t_xueqi.Filtered:=false;
  t_banji.Filtered:=false;
end;  //with ... end

end;    //proc ... end
procedure Tf_GL.N24Click(Sender: TObject);
begin
 application.CreateForm(tf_zd,f_zd);
end;

procedure Tf_GL.C2Click(Sender: TObject);
begin
 application.CreateForm(tf_cx1,f_cx1);
end;

procedure Tf_GL.ToolButton12Click(Sender: TObject);
begin
  f_gl.C2.Click;
end;

procedure Tf_GL.N1Click(Sender: TObject);
begin
  f_gl.C2.Click;
end;

procedure Tf_GL.ToolButton14Click(Sender: TObject);
begin
 if trim(f_gl.ZT.Panels[0].Text)='没有打开的课表' then
 begin
   application.MessageBox('没有打开课表，请打开或新建课表','错误',mb_ok+mb_iconwarning);
   exit;
 end;
 dm.q_kcb.close;
 dm.q_kcb.Open;
 dm.q_kcb.Filter:='xqm='''+trim(f_gl.ZT.Panels[0].text)+'''and bjm='''+trim(f_gl.Tree1.Selected.Text)+'''';
 dm.q_kcb.Filtered:=true;
 f_print.QR.Preview;
end;

procedure Tf_GL.C3Click(Sender: TObject);
begin
  Application.CreateForm(Tf_bjkb, f_bjkb);
end;

procedure Tf_GL.ToolButton13Click(Sender: TObject);
begin
  f_gl.C3.Click;
end;

procedure Tf_GL.N7Click(Sender: TObject);
begin
 f_gl.C3.Click;
end;

procedure Tf_GL.pageChange(Sender: TObject);
begin
 {if page.ActivePage=js then
 begin
     application.MessageBox('此功能没有编写！','信息',mb_ok+mb_iconinformation);
     page.ActivePage:=bj;
     page.ActivePageIndex:=0;
 end; }
end;

end.
💿 文件大小 929 K
👤 上传用户 sbukhpak
📂 所属分类教育系统应用
🏷️ 相关标签

#软件
⌨️ 快捷键说明

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