maintenance.~pas

这也是师兄的毕业设计,具体的功能我也不清楚,因为我才大一,请见谅!!!!!!!不过是可以用来答辩的,完整的毕业设计,有源代码,可爱执行文件,文档资料.

unit Maintenance;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, ExtCtrls, LabelButton,
  TradeImage, Buttons, DB, ADODB;

type
  Tf_maintenance = class(TForm)
    palRight: TPanel;
    imgRight: TImage;
    palLeft: TPanel;
    imgLeft: TImage;
    palDown: TPanel;
    imgLeftDown: TImage;
    imgRightDown: TImage;
    imgDownMin: TImage;
    GroupBox1: TGroupBox;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    LabelBtn12: TLabelBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label1: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    SB_Add: TSpeedButton;
    SB_Edit: TSpeedButton;
    SB_Del: TSpeedButton;
    SB_Save: TSpeedButton;
    SB_Cancel: TSpeedButton;
    DBComboBox1: TDBComboBox;
    Panel1: TPanel;
    DBGrid1: TDBGrid;


    procedure BitBtncancelClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);

    procedure SB_AddClick(Sender: TObject);
    procedure SB_SaveClick(Sender: TObject);
    procedure SB_EditClick(Sender: TObject);
    procedure SB_DelClick(Sender: TObject);
    procedure SB_CancelClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_maintenance: Tf_maintenance;

implementation

uses datamodule;

{$R *.dfm}

{procedure Tf_maintenance.tiNewClick(Sender: TObject);
begin
ticonfirm.Enabled:=true;
ticancel.Enabled:=true;
dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
dbedit3.ReadOnly:=false;
//combobox1.ReadOnly:=false;
dbedit1.Color:=clbtnhighlight;
dbedit2.Color:=clbtnhighlight;
dbedit3.Color:=clbtnhighlight;
combobox1.color:=clbtnhighlight;
//dm.q_maintenance.Edit;

dm.q_maintenance.Append;
tiNew.Enabled:=false;
tidelete.Enabled:=false;
end; }

{procedure Tf_maintenance.tiEditClick(Sender: TObject);
begin
ticonfirm.Enabled:=true;
ticancel.Enabled:=true;
tinew.Enabled:=false;
tidelete.Enabled:=false;
//dbedit1.ReadOnly:=false;
//dbedit2.ReadOnly:=false;
//dbedit3.ReadOnly:=false;
//dbedit4.ReadOnly:=false;
//dbedit1.Color:=clbtnhighlight;
//dbedit2.Color:=clbtnhighlight;
//dbedit3.Color:=clbtnhighlight;
combobox1.color:=clbtnhighlight;
dm.q_maintenance.Edit;

end;  }

{procedure Tf_maintenance.tiDeleteClick(Sender: TObject);
var button:integer;
begin
tinew.Enabled:=true;
if(dbgrid1.Columns.Count=0) then
showmessage('没有需要删除的用户！')
else begin
 Button := Application.MessageBox('真的要删除该用户吗？','提示对话框',MB_OKCANCEL);  //弹出确认对话框
    if Button = IDOK then  //单击OK按钮
dm.q_maintenance.Delete;
end

end; }

{procedure Tf_maintenance.BitBtnokClick(Sender: TObject);
begin
 if ( dbEdit1.Text='')or ( dbEdit2.Text='')
        or (combobox1.Text='') then
        begin
        ShowMessage('请把必要信息填完');
        dbEdit2.SetFocus;
        exit;
        end
        else begin
       SB_Del.Enabled:=true;
        dbedit1.ReadOnly:=true;
dbedit2.ReadOnly:=true;

//dbedit4.ReadOnly:=true;
dbedit1.Color:=clbackground;
dbedit2.Color:=clbackground;

combobox1.color:=clbackground;
        dm.q_maintenance.edit;
        DM.q_maintenance['User_Popedom']:=ComboBox1.Text;
        dm.q_maintenance.Post;
        with dm.q_maintenance do
        begin
        close;
        sql.Clear;
        sql.Add('select * from user_info');
        //prepare;
        open;
        end
             end

end;  }

procedure Tf_maintenance.BitBtncancelClick(Sender: TObject);
begin
SB_Add.Enabled:=true;
SB_Del.Enabled:=true;
 dbedit1.ReadOnly:=true;
dbedit2.ReadOnly:=true;

//dbedit4.ReadOnly:=true;
dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;

dbcombobox1.color:=clSilver;
dm.adoquery1.Cancel;
end;

procedure Tf_maintenance.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
dm.ADOQuery1.Cancel;
end;

{procedure Tf_maintenance.ticancelClick(Sender: TObject);
begin
 tinew.Enabled:=true;
 tidelete.Enabled:=true;
 dbedit1.ReadOnly:=true;
dbedit2.ReadOnly:=true;

//dbedit4.ReadOnly:=true;
dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;

combobox1.color:=clSilver;
dm.q_maintenance.Cancel;
end; }

{procedure Tf_maintenance.ticonfirmClick(Sender: TObject);
begin
 if ( dbEdit1.Text='')or ( dbEdit2.Text='')
        or(combobox1.Text='') then
        begin
        ShowMessage('请把必要信息填完');
        dbEdit2.SetFocus;
        exit;
        end
        else begin
        tidelete.Enabled:=true;
        dbedit1.ReadOnly:=true;
dbedit2.ReadOnly:=true;

//dbedit4.ReadOnly:=true;
dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;

combobox1.color:=clSilver;
        dm.q_maintenance.edit;
        DM.q_maintenance['User_Popedom']:=ComboBox1.Text;
        dm.q_maintenance.Post;
        with dm.q_maintenance do
        begin
        close;
        sql.Clear;
        sql.Add('select * from user_info');
        //prepare;
        open;
        end
             end

end;  }


procedure Tf_maintenance.SB_AddClick(Sender: TObject);
begin
 SB_Add.Enabled:=true;
SB_Save.Enabled:=true;
SB_Cancel.Enabled:=true;
dbedit1.ReadOnly:=false;
dbedit2.ReadOnly:=false;
SB_Edit.Enabled:=true;


dbedit1.Color:=clbtnhighlight;
dbedit2.Color:=clbtnhighlight;

dbcombobox1.color:=clbtnhighlight;


dm.ADOQuery1.Append;
SB_Edit.Enabled:=false;
SB_Del.Enabled:=false;
{dbedit1.Text:='';
dbedit2.Text:=''; }
dbEdit1.SetFocus; 

end;

procedure Tf_maintenance.SB_SaveClick(Sender: TObject);
begin
if ( dbEdit1.Text='')or ( dbEdit2.Text='')
        or(dbcombobox1.Text='') then
        begin
        ShowMessage('请把必要信息填完');
        dbEdit2.SetFocus;
        exit;
        end
        else begin
        SB_Edit.Enabled:=true;
        SB_Add.Enabled:=true;
        SB_Del.Enabled:=true;
        dbedit1.ReadOnly:=true;
dbedit2.ReadOnly:=true;


dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;

dbcombobox1.color:=clSilver;
        dm.ADOQuery1.edit;
        //dm.ADOQuery1['User_Popedom']:=ComboBox1.Text;
       dm.ADOQuery1.Post;
        with dm.ADOQuery1 do
        begin
        close;
        sql.Clear;
        sql.Add('select * from user_info');

        open;
        end
             end

end;

procedure Tf_maintenance.SB_EditClick(Sender: TObject);
begin

SB_Save.Enabled:=true;
SB_Cancel.Enabled:=true;
SB_Add.Enabled:=false;
SB_Del.Enabled:=false;

dbcombobox1.color:=clbtnhighlight;
dm.ADOQuery1.Edit;
end;

procedure Tf_maintenance.SB_DelClick(Sender: TObject);
 var button:integer;
begin
 SB_Save.Enabled:=true;
if(dbgrid1.Columns.Count=0) then
showmessage('没有需要删除的用户！')
else begin
 Button := Application.MessageBox('真的要删除该用户吗？','提示对话框',MB_OKCANCEL);  //弹出确认对话框
    if Button = IDOK then  //单击OK按钮
dm.ADOQuery1.Delete;
end
end;

procedure Tf_maintenance.SB_CancelClick(Sender: TObject);
begin
SB_Add.Enabled:=true;
 SB_Del.Enabled:=true;
 sb_edit.Enabled:=true;

 dbedit1.ReadOnly:=true;
dbedit2.ReadOnly:=true;


dbedit1.Color:=clSilver;
dbedit2.Color:=clSilver;

dbcombobox1.color:=clSilver;
//dm.q_maintenance.close;
end;

procedure Tf_maintenance.FormActivate(Sender: TObject);
begin
dbEdit1.SetFocus;
end;

procedure Tf_maintenance.DBGrid1CellClick(Column: TColumn);
begin
//label7.Caption:=dbgrid1.Fields[0].AsString;
dm.ADOQuery1.Close;
dm.ADOQuery1.SQL.Clear;
dm.ADOQuery1.SQL.Add('select User_Popedom from User_Info where User_Name='''+dbgrid1.Fields[0].AsString+'''');
dm.ADOQuery1.Open;
dbcombobox1.Text:=dm.ADOQuery1.fieldbyname('User_Popedom').AsString;

//combobox1.Text:= label8.Caption;

end;

end.