?? maintenance.~pas

?? 這也是師兄的畢業(yè)設(shè)計,具體的功能我也不清楚,因為我才大一,請見諒!!!!!!!不過是可以用來答辯的,完整的畢業(yè)設(shè)計,有源代碼,可愛執(zhí)行文件,文檔資料.
?? ~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.
?? 文件大小 1106 K
?? 上傳用戶 csytml
?? 所屬分類教育系統(tǒng)應(yīng)用
??? 相關(guān)標(biāo)簽

#畢業(yè)設(shè)計 #有源 #代碼 #文檔
?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? maintenance.~pas

?? 快捷鍵說明
