?? frmadd.pas
字號:
unit frmadd;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ComCtrls, ExtCtrls, Grids, DBGrids;
type
Tfrmaddjilu = class(TForm)
Panel1: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Chkasp: TCheckBox;
Chkjava: TCheckBox;
Chkdel: TCheckBox;
Chkvc: TCheckBox;
Chkzucheng: TCheckBox;
Chkjiekou: TCheckBox;
ChkSql: TCheckBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
DBGrid1: TDBGrid;
Chkxuehao: TCheckBox;
chkname: TCheckBox;
chkclass: TCheckBox;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
edtkemu1: TEdit;
edtright: TEdit;
edtname: TEdit;
edtmima: TEdit;
edtzhanghao: TEdit;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
edtkemu5: TEdit;
edtkemu4: TEdit;
edtkemu3: TEdit;
edtkemu2: TEdit;
addjiaoshi: TButton;
btnxiugai: TButton;
opmingzi: TLabel;
edtnew1: TEdit;
edtnew2: TEdit;
Edit6: TEdit;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
StatusBar1: TStatusBar;
StatusBar2: TStatusBar;
Timer1: TTimer;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure addjiaoshiClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnxiugaiClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmaddjilu: Tfrmaddjilu;
implementation
uses
dmunit;
{$R *.dfm}
procedure Tfrmaddjilu.BitBtn1Click(Sender: TObject);
var /////添加記錄
strsql:string;
i,j,k,l,m,n,s:Integer;
begin
if Edit1.Text='' then
ShowMessage('學號不能為空')
else
begin
dm.ADOQuery1.SQL.Clear;
strsql:='select StuNO,StuName from StuInfo where StuNo='+trim(edit1.text);
dm.ADOQuery1.SQL.Add(strsql);
dm.ADOQuery1.Open;
if dm.ADOQuery1.RecordCount>0 then
ShowMessage('該學號已存在，請使用其他學號')
else
begin
i:=0;
j:=0;
k:=0;
l:=0;
m:=0;
n:=0;
s:=0;
if not chkasp.Checked then
i:=-1 ;
if not Chkjava.Checked then
j:=-1;
if not Chkdel.Checked then
k:=-1;
if not chkvc.Checked then
l:=-1;
if not Chkdel.Checked then
m:=-1;
if not Chkzucheng.Checked then
n:=-1;
if not Chkjiekou.Checked then
s:=-1;
dm.ADOTable1.Close;
dm.ADOTable1.TableName:='StuInfo';
if not dm.AdoTable1.Active then dm.AdoTable1.Open ;
begin
dm.ADOTable1.insertRecord([Edit1.Text,edit2.Text,edit3.Text,edit4.Text,edit5.text,i,j,k,l,m,n,s]);
ShowMessage('添加成功！');
end;
end;
end;
end;
procedure Tfrmaddjilu.BitBtn3Click(Sender: TObject);
var
strsql:string;
begin
if not Chkxuehao.Checked and not chkname.Checked and not chkclass.Checked then
begin
dm.ADOQuery2.SQL.Clear;
strsql:='select * from StuInfo';
dm.ADOQuery2.SQL.Add(strsql);
dm.ADOQuery2.Open;
end
else
if Chkxuehao.Checked then
begin
if trim(Edit1.Text)='' then
ShowMessage('請輸入學號')
else
begin
dm.ADOQuery2.SQL.Clear;
strsql:='select * from StuInfo where StuNo='+(trim(Edit1.Text));
dm.ADOQuery2.SQL.Add(strsql);
dm.ADOQuery2.Open;
end;
end
else
if chkname.Checked then
begin
dm.ADOQuery2.SQL.Clear;
strsql:='select * from StuInfo where StuName='+QuotedStr(trim(Edit2.Text));
dm.ADOQuery2.SQL.Add(strsql);
dm.ADOQuery2.Open;
end
else
if chkclass.Checked then
begin
dm.ADOQuery2.SQL.Clear;
strsql:='select * from StuInfo where class='+QuotedStr(trim(Edit4.Text));
dm.ADOQuery2.SQL.Add(strsql);
dm.ADOQuery2.Open;
end;
end;
procedure Tfrmaddjilu.BitBtn2Click(Sender: TObject);
begin //////////////刪除-----------
begin
if Application.MessageBox('您確定要刪除此條記錄嗎','提示',MB_OKCANCEL+MB_ICONQUESTION)=mrOK then
dm.ADOQuery2.Delete
else
ShowMessage('您取消了此操作！');
end;
end;
procedure Tfrmaddjilu.addjiaoshiClick(Sender: TObject);
var
strsql:string;
begin //////---添加教師記錄-----
if (edtzhanghao.Text='') and (edtmima.Text='') and (edtname.Text='') and (edtright.Text='') then
ShowMessage('帳號.密碼.姓名.權限不能為空！')
else
begin
dm.ADOQuery2.SQL.Clear;
strsql:='select username from users where username='+QuotedStr(trim(edtzhanghao.Text));
dm.ADOQuery2.SQL.Add(strsql);
dm.ADOQuery2.Open;
if dm.ADOQuery2.RecordCount>0 then
ShowMessage('該帳號已存在，請使用其他帳號')
else
begin
dm.ADOTable1.Close;
dm.ADOTable1.TableName:='users';
if not dm.AdoTable1.Active then dm.AdoTable1.Open ;
dm.ADOTable1.insertRecord([edtzhanghao.Text,edtmima.Text,edtname.Text,edtright.Text,edtkemu1.Text,edtkemu2.Text,edtkemu3.Text,edtkemu4.Text,edtkemu5.Text]);
edtzhanghao.Text:='';edtmima.Text:='';edtname.Text:='';edtright.Text:='';edtkemu1.Text:='';edtkemu2.Text:='';edtkemu3.Text:='';edtkemu4.Text:='';edtkemu5.Text:='';
ShowMessage('添加成功，請牢記帳號密碼！');
end;
end;
end;
procedure Tfrmaddjilu.FormShow(Sender: TObject);
begin
opmingzi.Caption:='您的帳號為: '+dm.opzhanghao;
StatusBar1.Panels[1].Text:=dm.opname;
StatusBar1.Panels[3].Text:=TimeToStr(Now);
StatusBar1.Panels[5].Text:=DateToStr(now);
StatusBar2.Panels[1].Text:=dm.opname;
StatusBar2.Panels[3].Text:=TimeToStr(Now);
StatusBar2.Panels[5].Text:=DateToStr(now);
end;
procedure Tfrmaddjilu.btnxiugaiClick(Sender: TObject);
var
strsql:string;
begin
if edtnew1.Text=edtnew2.Text then
begin
dm.ADOQuery1.SQL.Clear;
strsql:='select username from users where pwd='+QuotedStr(trim(edit6.Text));
dm.ADOQuery1.SQL.Add(strsql);
dm.ADOQuery1.Open;
if dm.ADOQuery1.RecordCount=0 then
begin
ShowMessage('密碼錯，請重新輸入');
edit6.Text:='';
end
else
begin
dm.ADOQuery1.SQL.Clear;
strsql:='update users set pwd='+QuotedStr(trim(edtnew1.text))+' where username='+QuotedStr(trim(dm.opzhanghao));
dm.ADOQuery1.SQL.Add(strsql);
dm.adoquery1.ExecSQL;
ShowMessage(' 密碼修改成功');
end;
end
else
ShowMessage('兩次新密碼輸入不一致！')
end;
procedure Tfrmaddjilu.Timer1Timer(Sender: TObject);
begin
StatusBar1.Panels[3].Text:=TimeToStr(Now);
StatusBar1.Panels[5].Text:=DateToStr(now);
StatusBar2.Panels[3].Text:=TimeToStr(Now);
StatusBar2.Panels[5].Text:=DateToStr(now);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -