winform.pas.~1~

Delphi 2005程序设计教程_实例源文件和教学课件

        // Label2
        // 
        Self.Label2.Location := System.Drawing.Point.Create(32, 50);
        Self.Label2.Name := 'Label2';
        Self.Label2.Size := System.Drawing.Size.Create(56, 16);
        Self.Label2.TabIndex := 18;
        Self.Label2.Text := '学号：';
        // 
        // GroupBox2
        // 
        Self.GroupBox2.Controls.Add(Self.btnLast);
        Self.GroupBox2.Controls.Add(Self.btnNext);
        Self.GroupBox2.Controls.Add(Self.btnPrevious);
        Self.GroupBox2.Controls.Add(Self.btnFirst);
        Self.GroupBox2.Controls.Add(Self.btnStuSave);
        Self.GroupBox2.Controls.Add(Self.btnDel);
        Self.GroupBox2.Controls.Add(Self.btnAdd);
        Self.GroupBox2.Location := System.Drawing.Point.Create(352, 16);
        Self.GroupBox2.Name := 'GroupBox2';
        Self.GroupBox2.Size := System.Drawing.Size.Create(152, 320);
        Self.GroupBox2.TabIndex := 12;
        Self.GroupBox2.TabStop := False;
        Self.GroupBox2.Text := '操作';
        // 
        // btnLast
        // 
        Self.btnLast.Location := System.Drawing.Point.Create(24, 272);
        Self.btnLast.Name := 'btnLast';
        Self.btnLast.Size := System.Drawing.Size.Create(104, 24);
        Self.btnLast.TabIndex := 6;
        Self.btnLast.Text := '最后一个';
        Include(Self.btnLast.Click, Self.btnLast_Click);
        // 
        // btnNext
        // 
        Self.btnNext.Location := System.Drawing.Point.Create(24, 240);
        Self.btnNext.Name := 'btnNext';
        Self.btnNext.Size := System.Drawing.Size.Create(104, 24);
        Self.btnNext.TabIndex := 5;
        Self.btnNext.Text := '后一个';
        Include(Self.btnNext.Click, Self.btnNext_Click);
        // 
        // btnPrevious
        // 
        Self.btnPrevious.Location := System.Drawing.Point.Create(24, 208);
        Self.btnPrevious.Name := 'btnPrevious';
        Self.btnPrevious.Size := System.Drawing.Size.Create(104, 24);
        Self.btnPrevious.TabIndex := 4;
        Self.btnPrevious.Text := '前一个';
        Include(Self.btnPrevious.Click, Self.btnPrevious_Click);
        // 
        // btnFirst
        // 
        Self.btnFirst.Location := System.Drawing.Point.Create(24, 176);
        Self.btnFirst.Name := 'btnFirst';
        Self.btnFirst.Size := System.Drawing.Size.Create(104, 24);
        Self.btnFirst.TabIndex := 3;
        Self.btnFirst.Text := '第一个';
        Include(Self.btnFirst.Click, Self.btnFirst_Click);
        // 
        // btnStuSave
        // 
        Self.btnStuSave.Location := System.Drawing.Point.Create(24, 112);
        Self.btnStuSave.Name := 'btnStuSave';
        Self.btnStuSave.Size := System.Drawing.Size.Create(104, 24);
        Self.btnStuSave.TabIndex := 2;
        Self.btnStuSave.Text := '保存更新';
        Include(Self.btnStuSave.Click, Self.btnStuSave_Click);
        // 
        // btnDel
        // 
        Self.btnDel.Location := System.Drawing.Point.Create(24, 72);
        Self.btnDel.Name := 'btnDel';
        Self.btnDel.Size := System.Drawing.Size.Create(104, 24);
        Self.btnDel.TabIndex := 1;
        Self.btnDel.Text := '删除本条信息';
        Include(Self.btnDel.Click, Self.btnDel_Click);
        // 
        // btnAdd
        // 
        Self.btnAdd.Location := System.Drawing.Point.Create(24, 32);
        Self.btnAdd.Name := 'btnAdd';
        Self.btnAdd.Size := System.Drawing.Size.Create(104, 24);
        Self.btnAdd.TabIndex := 0;
        Self.btnAdd.Text := '增加信息';
        Include(Self.btnAdd.Click, Self.BtnAdd_Click);
        // 
        // TabPage3
        // 
        Self.TabPage3.Controls.Add(Self.btnAdminSave);
        Self.TabPage3.Controls.Add(Self.dgDep);
        Self.TabPage3.Controls.Add(Self.Label9);
        Self.TabPage3.Controls.Add(Self.dgCls);
        Self.TabPage3.Controls.Add(Self.Label8);
        Self.TabPage3.Location := System.Drawing.Point.Create(4, 21);
        Self.TabPage3.Name := 'TabPage3';
        Self.TabPage3.Size := System.Drawing.Size.Create(536, 364);
        Self.TabPage3.TabIndex := 2;
        Self.TabPage3.Text := '系统管理';
        // 
        // btnAdminSave
        // 
        Self.btnAdminSave.Location := System.Drawing.Point.Create(432, 16);
        Self.btnAdminSave.Name := 'btnAdminSave';
        Self.btnAdminSave.Size := System.Drawing.Size.Create(88, 32);
        Self.btnAdminSave.TabIndex := 4;
        Self.btnAdminSave.Text := '保存更新';
        Include(Self.btnAdminSave.Click, Self.btnAdminSave_Click);
        // 
        // dgDep
        // 
        Self.dgDep.DataMember := '';
        Self.dgDep.HeaderForeColor := System.Drawing.SystemColors.ControlText;
        Self.dgDep.Location := System.Drawing.Point.Create(56, 40);
        Self.dgDep.Name := 'dgDep';
        Self.dgDep.Size := System.Drawing.Size.Create(360, 128);
        Self.dgDep.TabIndex := 3;
        Self.dgDep.TableStyles.AddRange(TSystem_Windows_Forms_DataGridTableStyleArray.Create(Self.dgtsDep));
        // 
        // dgtsDep
        // 
        Self.dgtsDep.DataGrid := Self.dgDep;
        Self.dgtsDep.GridColumnStyles.AddRange(TSystem_Windows_Forms_DataGridColumnStyleArray.Create(Self.colDepID, 
                                        Self.colDepName));
        Self.dgtsDep.HeaderForeColor := System.Drawing.SystemColors.ControlText;
        Self.dgtsDep.MappingName := 'Department';
        // 
        // colDepID
        // 
        Self.colDepID.Format := '';
        Self.colDepID.FormatInfo := nil;
        Self.colDepID.HeaderText := '系号';
        Self.colDepID.MappingName := 'ID';
        Self.colDepID.Width := 75;
        // 
        // colDepName
        // 
        Self.colDepName.Format := '';
        Self.colDepName.FormatInfo := nil;
        Self.colDepName.HeaderText := '名称';
        Self.colDepName.MappingName := 'Name';
        Self.colDepName.Width := 75;
        // 
        // Label9
        // 
        Self.Label9.Location := System.Drawing.Point.Create(56, 16);
        Self.Label9.Name := 'Label9';
        Self.Label9.Size := System.Drawing.Size.Create(168, 16);
        Self.Label9.TabIndex := 2;
        Self.Label9.Text := '系别信息管理：';
        // 
        // dgCls
        // 
        Self.dgCls.DataMember := '';
        Self.dgCls.HeaderForeColor := System.Drawing.SystemColors.ControlText;
        Self.dgCls.Location := System.Drawing.Point.Create(56, 216);
        Self.dgCls.Name := 'dgCls';
        Self.dgCls.Size := System.Drawing.Size.Create(360, 128);
        Self.dgCls.TabIndex := 1;
        Self.dgCls.TableStyles.AddRange(TSystem_Windows_Forms_DataGridTableStyleArray.Create(Self.dgtsCls));
        // 
        // dgtsCls
        // 
        Self.dgtsCls.DataGrid := Self.dgCls;
        Self.dgtsCls.GridColumnStyles.AddRange(TSystem_Windows_Forms_DataGridColumnStyleArray.Create(Self.colClsID, 
                                        Self.colClsDepID, Self.colClsSubject));
        Self.dgtsCls.HeaderForeColor := System.Drawing.SystemColors.ControlText;
        Self.dgtsCls.MappingName := 'Class';
        // 
        // colClsID
        // 
        Self.colClsID.Format := '';
        Self.colClsID.FormatInfo := nil;
        Self.colClsID.HeaderText := '班号';
        Self.colClsID.MappingName := 'ID';
        Self.colClsID.Width := 75;
        // 
        // colClsDepID
        // 
        Self.colClsDepID.Format := '';
        Self.colClsDepID.FormatInfo := nil;
        Self.colClsDepID.HeaderText := '系号';
        Self.colClsDepID.MappingName := 'DepID';
        Self.colClsDepID.Width := 75;
        // 
        // colClsSubject
        // 
        Self.colClsSubject.Format := '';
        Self.colClsSubject.FormatInfo := nil;
        Self.colClsSubject.HeaderText := '学科';
        Self.colClsSubject.MappingName := 'Subject';
        Self.colClsSubject.Width := 75;
        // 
        // Label8
        // 
        Self.Label8.Location := System.Drawing.Point.Create(56, 192);
        Self.Label8.Name := 'Label8';
        Self.Label8.Size := System.Drawing.Size.Create(104, 16);
        Self.Label8.TabIndex := 0;
        Self.Label8.Text := '班级信息管理：';
        // 
        // dsStu1
        // 
        Self.dsStu1.DataSetName := 'dsStu';
        Self.dsStu1.Locale := System.Globalization.CultureInfo.Create('zh-CN');
        Self.dsStu1.Namespace := 'http://www.changeme.now/dsStu.xsd';
        // 
        // dsAdmin1
        // 
        Self.dsAdmin1.DataSetName := 'dsAdmin';
        Self.dsAdmin1.Locale := System.Globalization.CultureInfo.Create('zh-CN');
        Self.dsAdmin1.Namespace := 'http://www.changeme.now/dsAdmin.xsd';
        // 
        // BdpConnection1
        // 
        Self.BdpConnection1.ConnectionOptions := 'transaction isolation=ReadCommitted;blob size=1024';
        Self.BdpConnection1.ConnectionString := 'assembly=Borland.Data.Mssql, Version=1.5.0.0, Culture=neutral, PublicKeyToken=9'+ 
  '1d62ebb5b0d1b1b;vendorclient=sqloledb.dll;database=StuManage;username=sa;hostn'+ 
  'ame=localhost;password=;provider=MSSQL';
        // 
        // daCls
        // 
        Self.daCls.Active := False;
        Self.daCls.DataSet := nil;
        Self.daCls.DataTable := nil;
        Self.daCls.DeleteCommand := Self.bdpDeleteCommand1;
        Self.daCls.InsertCommand := Self.bdpInsertCommand1;
        Self.daCls.SelectCommand := Self.bdpSelectCommand1;
        Self.daCls.StartRecord := 0;
        Self.daCls.UpdateCommand := Self.bdpUpdateCommand1;
        // 
        // bdpDeleteCommand1
        // 
        Self.bdpDeleteCommand1.CommandOptions := nil;
        Self.bdpDeleteCommand1.CommandText := 'DELETE FROM dbo.Class WHERE ID = ? AND DepID = ? AND Subject = ?';
        Self.bdpDeleteCommand1.CommandType := System.Data.CommandType.Text;
        Self.bdpDeleteCommand1.Connection := Self.BdpConnection1;
        Self.bdpDeleteCommand1.ParameterCount := (SmallInt(3));
        Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('IDOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                6, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'ID', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('DepIDOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                2, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'DepID', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpDeleteCommand1.Parameters.Add(Borland.Data.Common.BdpParameter.Create('SubjectOriginal', 
                                Borland.Data.Common.BdpType.&String, Borland.Data.Common.BdpType.stFixed, 
                                20, System.Data.ParameterDirection.Input, False, 
                                (Byte(0)), (Byte(0)), 0, 'Subject', System.Data.DataRowVersion.Original, 
                                nil));
        Self.bdpDeleteCommand1.SchemaName := nil;
        Self.bdpDeleteCommand1.Transaction := nil;
        Self.bdpDeleteCommand1.UpdatedRowSource := System.Data.UpdateRowSource.None;