【delphi开源代码栏目提醒】:网学会员在delphi开源代码频道为大家收集整理了DormManager_Unit.pas提供大家参考,希望对大家有所帮助!
unit DormManager_Unit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Base_Unit, ExtCtrls, StdCtrls, DBCtrls, ComCtrls, Grids,
DBGrids, DB, Buttons, ADODB, Menus, StdActns, ActnList;
type
TfrmDormManager = class(TfrmBase)
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Panel2: TPanel;
Panel3: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
cmbxClassName: TDBLookupComboBox;
cmbxStuSex: TDBComboBox;
cmbxStudentID: TDBLookupComboBox;
edtRemark: TDBMemo;
DataDorm: TDataSource;
DBGrid1: TDBGrid;
Label5: TLabel;
cmbxDormID: TDBLookupComboBox;
btnAdd: TBitBtn;
btnModify: TBitBtn;
btnDel: TBitBtn;
btnSave: TBitBtn;
btnCancel: TBitBtn;
DataClassName: TDataSource;
DataDormID: TDataSource;
Panel4: TPanel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
cmbxItems: TComboBox;
cmbxCondition: TComboBox;
cmbxValues: TComboBox;
btnFind: TBitBtn;
Panel5: TPanel;
DBGrid2: TDBGrid;
DataStudentID: TDataSource;
DataFindDrom: TDataSource;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure btnFindClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure btnAddClick(Sender: TObject);
procedure btnModifyClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmDormManager: TfrmDormManager;
implementation
uses Common_Unit, DM_Unit;
{$R *.dfm}
procedure TfrmDormManager.FormClose(Sender: TObject; var Action: TCloseAction);
begin
inherited;
frmDormManager := nil;
end;
procedure TfrmDormManager.FormCreate(Sender: TObject);
var
SQLDorm, SQLClaName, SQLDormID, SQLStudentID: string;
begin
inherited;
SQLDorm := 'Select * From Dorm';
DataDorm.DataSet := SQLDataSet(SQLDorm,DM.ADOConn); //连接数据库
SQLClaName := 'Select * From ClassInfo';
DataClassName.DataSet := SQLDataSet(SQLClaName,DM.ADOConn);
SQLDormID := 'Select * From DormInfo';
DataDormID.DataSet := SQLDataSet(SQLDormID,DM.ADOConn);
SQLStudentID := 'Select * From StudentInfo';
DataStudentID.DataSet := SQLDataSet(SQLStudentID,DM.ADOConn);
end;
procedure TfrmDormManager.btnFindClick(Sender: TObject);
var
SQL: string;
begin
inherited;
if cmbxItems.ItemIndex = 0 then
SQL := 'Select B.* From StudentInfo A, Dorm B ' +
'where A.StudentID=B.StudentID and A.StudentID ' +
cmbxCondition.Text + Quotedstr(cmbxValues.Text);
if cmbxItems.ItemIndex = 1 then
begin
SQL := 'Select B.* From StudentInfo A, Dorm B ' +
'where A.StudentID=B.StudentID and A.StuName '
+ cmbxCondition.Text + Quotedstr(cmbxValues.Text);
if cmbxCondition.Text = 'Like' then
SQL := 'Select B.* From StudentInfo A, Dorm B ' +
'where A.StudentID=B.StudentID and A.StuName '
+ cmbxCondition.Text + Quotedstr('%' + cmbxValues.Text + '%');
end;
if cmbxItems.ItemIndex = 2 then
SQL := 'Select B.* From DormInfo A, Dorm B ' +
'where A.DormID=B.DormID and A.DormID '
+ cmbxCondition.Text + Quotedstr(Copy(cmbxValues.Text,1,Pos('.',cmbxValues.Text)-1));
if SQL <> '' then
DataFindDrom.DataSet := SQLDataSet(SQL,DM.ADOConn);
end;
procedure TfrmDormManager.btnSaveClick(Sender: TObject);
begin
inherited;
if DataDorm.State in [dsInsert,dsEdit] then //判断状态,只有在添加或是修改的时候才能保存信息
DataDorm.DataSet.Post;
end;
procedure TfrmDormManager.btnDelClick(Sender: TObject);
begin
inherited;
if Application.MessageBox('确定要删除此条记录?','提示',68) = IDNo then
Exit;
DataDorm.DataSet.Delete;
end;
procedure TfrmDormManager.btnAddClick(Sender: TObject);
begin
inherited;
DataDorm.DataSet.Insert;
end;
procedure TfrmDormManager.btnModifyClick(Sender: TObject);
begin
inherited;
DataDorm.DataSet.Edit;
end;
procedure TfrmDormManager.btnCancelClick(Sender: TObject);
begin
inherited;
DataDorm.DataSet.Cancel;
end;
end.
上一篇:
DocWordEdit.pas
下一篇:
病理学实验课多样化教学方法探讨