?? unit5.pas
字號:
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids, Buttons;
type
TForm5 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOQuery1: TADOQuery;
ADOConnection1: TADOConnection;
ADOQuery1jsm: TWideStringField;
ADOQuery1jsz: TWideStringField;
ADOQuery1ry1: TWideStringField;
ADOQuery1ry2: TWideStringField;
ADOQuery1ry3: TWideStringField;
ADOQuery1ry4: TWideStringField;
ADOQuery1ry5: TWideStringField;
ADOQuery1ry6: TWideStringField;
gb_1: TGroupBox;
gb_2: TGroupBox;
label23: TLabel;
Label2: TLabel;
Label3: TLabel;
label11: TLabel;
label5: TLabel;
Label6: TLabel;
Label7: TLabel;
label34: TLabel;
e_qsm: TEdit;
e_qsz: TEdit;
e_qsry1: TEdit;
e_qsry2: TEdit;
e_qsry6: TEdit;
e_qsry5: TEdit;
e_qsry4: TEdit;
e_qsry3: TEdit;
b_xz: TBitBtn;
b_sc: TBitBtn;
b_bc: TBitBtn;
b_qx: TBitBtn;
Label9: TLabel;
procedure s_save;
procedure s_show;
procedure s_clear(var bb:boolean);
procedure b_xzClick(Sender: TObject);
procedure b_qxClick(Sender: TObject);
procedure b_bcClick(Sender: TObject);
procedure e_qsmKeyPress(Sender: TObject; var Key: Char);
procedure e_qszKeyPress(Sender: TObject; var Key: Char);
procedure e_qsry1KeyPress(Sender: TObject; var Key: Char);
procedure e_qsry2KeyPress(Sender: TObject; var Key: Char);
procedure e_qsry3KeyPress(Sender: TObject; var Key: Char);
procedure e_qsry4KeyPress(Sender: TObject; var Key: Char);
procedure e_qsry5KeyPress(Sender: TObject; var Key: Char);
procedure e_qsry6KeyPress(Sender: TObject; var Key: Char);
procedure b_scClick(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
bsf:string;
implementation
{$R *.dfm}
procedure tForm5.s_save;
begin
with form5 do
begin
adoquery1.Edit;
adoquery1.FieldByName('jsm').AsString:=trim(e_qsm.Text);
adoquery1.FieldByName('jsz').AsString:=trim(e_qsz.Text);
adoquery1.FieldByName('ry1').AsString :=trim(e_qsry1.Text);
adoquery1.FieldByName('ry2').AsString :=trim(e_qsry2.Text);
adoquery1.FieldByName('ry3').AsString :=trim(e_qsry3.Text);
adoquery1.FieldByName('ry4').AsString :=trim(e_qsry4.Text);
adoquery1.FieldByName('ry5').AsString :=trim(e_qsry5.Text);
adoquery1.FieldByName('ry6').AsString :=trim(e_qsry6.Text);
adoquery1.Post;
end;
end;
procedure tForm5.s_show;
begin
form5.ADOQuery1.Close;
form5.ADOQuery1.SQL.Clear;
form5.ADOQuery1.SQL.Add('select * from jsb');
form5.ADOQuery1.Open;
end;
procedure tForm5.s_clear(var bb:boolean);
var
i:integer;
begin
with form5 do
begin
b_xz.Enabled:=true;
b_sc.Enabled:=true;
b_bc.Enabled:=false;
b_qx.Enabled:=false;
e_qsm.Text:='';
e_qsz.Text:='';
e_qsry1.text:='';
e_qsry2.Text:='';
e_qsry3.Text:='';
e_qsry4.Text:='';
e_qsry5.Text:='';
e_qsry6.Text:='';
for i:=0 to gb_1.controlcount-1 do
begin
if (gb_1.Controls[i].ClassType=tedit) then
begin
if bb =false then
gb_1.Controls[i].Enabled :=false
else
gb_1.Controls[i].Enabled:=true;
end;
end;
end;
end;
procedure TForm5.b_xzClick(Sender: TObject);
var
bb:boolean;
begin
bsf:='xz';
bb:=true;
s_clear(bb);
e_qsm.SetFocus;
b_xz.Enabled:=false;
b_sc.Enabled :=false;
b_bc.Enabled:=true;
b_qx.Enabled :=true;
end;
procedure TForm5.b_qxClick(Sender: TObject);
var
ss:boolean;
begin
ss:=false;
s_clear(ss);
end;
procedure TForm5.b_bcClick(Sender: TObject);
var
ss:boolean;
begin
if trim(e_qsm.Text)='' then
begin
showmessage('請輸入寢室名！');
e_qsm.SetFocus;
exit;
end;
if bsf <>'xg' then
begin
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from jsb where jsm = ' +char(39)+trim(e_qsm.Text)+char(39));
adoquery1.Open;
end;
if adoquery1.recordcount<0 then
begin
showmessage('請輸入值');
exit;
end;
if trim(e_qsz.Text)='' then
begin
showmessage('請輸入寢室長');
e_qsz.SetFocus;
exit;
end;
if trim(e_qsry1.Text)='' then
begin
showmessage('請輸入寢室人員1！');
e_qsry1.SetFocus;
exit;
end;
if trim(e_qsry2.Text)= ''then
begin
showmessage('請輸入寢室人員2!');
e_qsry2.SetFocus;
exit;
end;
if trim(e_qsry3.Text)= ''then
begin
showmessage('請輸入寢室人員3!');
e_qsry3.SetFocus;
exit;
end;
if trim(e_qsry4.Text)= ''then
begin
showmessage('請輸入寢室人員4!');
e_qsry4.SetFocus;
exit;
end;
if trim(e_qsry5.Text)= ''then
begin
showmessage('請輸入寢室人員5!');
e_qsry5.SetFocus;
exit;
end;
if trim(e_qsry6.Text)= ''then
begin
showmessage('請輸入寢室人員2!');
e_qsry6.SetFocus;
exit;
end;
if MessageDlg('記錄是否保存嗎 ?',mtConfirmation, [mbYes, mbNo], 0) = mrYes then
begin
s_save;
adoquery1.Close;
adoquery1.SQL.Clear;
adoquery1.SQL.add('select * from jsb');
adoquery1.Open;
ss:=false;
s_clear(ss);
end
else
exit;
end;
procedure TForm5.e_qsmKeyPress(Sender: TObject; var Key: Char);
begin
if not (key in['0','1','2','3','4','5','6','7','8','9',chr(8),chr(13)]) then
key:=chr(0);
if key=chr(13) then
if trim(e_qsm.Text)='' then
begin
showmessage('請輸入寢室名！') ;
e_qsm.SetFocus;
end
else
begin
e_qsz.SetFocus;
end;
end;
procedure TForm5.e_qszKeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
if trim(e_qsz.Text)='' then
begin
showmessage('請輸入寢室長！') ;
e_qsz.SetFocus;
end
else
begin
e_qsry1.SetFocus;
end;
end;
procedure TForm5.e_qsry1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
if trim(e_qsry1.Text)='' then
begin
showmessage('請輸入寢室人員1！') ;
e_qsry1.SetFocus;
end
else
begin
e_qsry2.SetFocus;
end;
end;
procedure TForm5.e_qsry2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
if trim(e_qsry2.Text)='' then
begin
showmessage('請輸入寢室人員2！') ;
e_qsry2.SetFocus;
end
else
begin
e_qsry3.SetFocus;
end;
end;
procedure TForm5.e_qsry3KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
if trim(e_qsry3.Text)='' then
begin
showmessage('請輸入寢室人員3！') ;
e_qsry3.SetFocus;
end
else
begin
e_qsry4.SetFocus;
end;
end;
procedure TForm5.e_qsry4KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
if trim(e_qsry4.Text)='' then
begin
showmessage('請輸入寢室人員4！') ;
e_qsry4.SetFocus;
end
else
begin
e_qsry5.SetFocus;
end;
end;
procedure TForm5.e_qsry5KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
if trim(e_qsry5.Text)='' then
begin
showmessage('請輸入寢室人員5！') ;
e_qsry5.SetFocus;
end
else
begin
e_qsry6.SetFocus;
end;
end;
procedure TForm5.e_qsry6KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
if trim(e_qsry6.Text)='' then
begin
showmessage('請輸入寢室人員6！') ;
e_qsry6.SetFocus;
end
else
begin
b_bc.SetFocus;
end;
end;
procedure TForm5.b_scClick(Sender: TObject);
var
bb:boolean;
begin
if trim(e_qsm.Text)<>'' then
begin
if application.MessageBox('你確定刪除嗎？', '提示', 4+32)=6 then
begin
adoquery1.Delete ;
s_show;
bb:=false;
s_clear(bb);
end
else
exit;
end
else
showmessage('請選擇刪除記錄');
end;
procedure TForm5.DBGrid1CellClick(Column: TColumn);
var
vv:boolean;
begin
if adoquery1.RecordCount>0 then
begin
vv:=false;
s_clear(vv);
e_qsm.Text:=trim(adoquery1.fieldbyname('jsm').AsString );
e_qsz.Text:=trim(adoquery1.fieldbyname('jsz').AsString);
e_qsry1.Text:=trim(adoquery1.fieldbyname('ry1').AsString);
e_qsry2.Text:=trim(adoquery1.fieldbyname('ry2').AsString );
e_qsry3.Text:=trim(adoquery1.fieldbyname('ry3').AsString );
e_qsry4.Text:=trim(adoquery1.fieldbyname('ry4').AsString );
e_qsry5.Text:=trim(adoquery1.fieldbyname('ry5').AsString );
e_qsry6.Text:=trim(adoquery1.fieldbyname('ry6').AsString );
end;
end;
procedure TForm5.FormShow(Sender: TObject);
var
ss:boolean;
begin
s_show;
ss:=false;
s_clear(ss);
end;
procedure TForm5.FormCreate(Sender: TObject);
var
ss:boolean;
begin
s_show;
ss:=false;
s_clear(ss);
end;
procedure TForm5.formClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -