【delphi开源代码栏目提醒】:本文主要为网学会员提供bedroom.pas,希望对需要bedroom.pas网友有所帮助,学习一下!
unit bedroom;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Grids, DBGrids, DB, ADODB, DBTables, ExtCtrls;
type
TForm3 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Query1: TQuery;
GroupBox1: TGroupBox;
Label7: TLabel;
Edit1: TEdit;
Label3: TLabel;
Edit2: TEdit;
GroupBox3: TGroupBox;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
BitBtn4: TBitBtn;
label5: TLabel;
Edit3: TEdit;
label11: TLabel;
Edit6: TEdit;
Label9: TLabel;
label23: TLabel;
Edit4: TEdit;
Edit7: TEdit;
Label2: TLabel;
label34: TLabel;
Edit5: TEdit;
Edit8: TEdit;
Shape1: TShape;
Label1: TLabel;
Query1qsm: TStringField;
Query1qsz: TStringField;
Query1cy1: TStringField;
Query1cy2: TStringField;
Query1cy3: TStringField;
Query1cy4: TStringField;
Query1cy5: TStringField;
Query1cy6: TStringField;
procedure FormCreate(Sender: TObject);
procedure DBGrid1CellClick(Column: TColumn);
procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure Edit1KeyPress(Sender: TObject; var Key: Char);
procedure Edit2KeyPress(Sender: TObject; var Key: Char);
procedure Edit3KeyPress(Sender: TObject; var Key: Char);
procedure Edit4KeyPress(Sender: TObject; var Key: Char);
procedure Edit5KeyPress(Sender: TObject; var Key: Char);
procedure Edit6KeyPress(Sender: TObject; var Key: Char);
procedure Edit7KeyPress(Sender: TObject; var Key: Char);
procedure Edit8KeyPress(Sender: TObject; var Key: Char);
private
{ Private declarations }
procedure dbshow;
procedure dbclear(var mark:boolean);
public
{ Public declarations }
end;
var
Form3: TForm3;
mark,ss:boolean;
implementation
{$R *.dfm}
procedure TForm3.dbshow;
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select * from qsry');
Query1.Open;
end;
procedure tForm3.dbclear(var mark:boolean);
var
i:integer;
begin
bitbtn1.Enabled:=true;
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
edit1.Text:='';
edit2.Text:='';
edit3.text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
for i:=0 to groupbox1.controlcount-1 do
begin
if (groupbox1.Controls[i].ClassType=Tedit) then
begin
if mark=false then
groupbox1.Controls[i].Enabled :=false
else
groupbox1.Controls[i].Enabled:=true;
end;
end;
end;
procedure TForm3.FormCreate(Sender: TObject);
var
ss:boolean;
begin
ss:=false;
dbshow;
bitbtn2.Enabled:=false;
dbclear(ss);
end;
procedure TForm3.DBGrid1CellClick(Column: TColumn);
begin
mark:=false;
dbclear(mark);
edit1.Text:=query1.FieldValues['qsm'];
edit2.Text:=query1.FieldValues['qsz'];
edit3.Text:=query1.FieldValues['cy1'];
edit4.Text:=query1.FieldValues['cy2'];
edit5.Text:=query1.FieldValues['cy3'];
edit6.Text:=query1.FieldValues['cy4'];
edit7.Text:=query1.FieldValues['cy5'];
edit8.Text:=query1.FieldValues['cy6'];
bitbtn2.Enabled:=true;
end;
procedure TForm3.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
if gdSelected in state then
SetBkColor(dbgrid1.canvas.handle,clgreen)
else
setbkcolor(dbgrid1.canvas.handle,clwhite);
dbgrid1.Canvas.TextRect(rect,0,0,field.AsString);
dbgrid1.Canvas.Textout(rect.Left,rect.Top,field.AsString);
end;
procedure TForm3.BitBtn1Click(Sender: TObject);
var
mark:boolean;
begin
mark:=true;
dbclear(mark);
edit1.SetFocus;
bitbtn1.Enabled:=false;
bitbtn2.Enabled :=false;
bitbtn3.Enabled:=true;
bitbtn4.Enabled :=true;
end;
procedure TForm3.BitBtn2Click(Sender: TObject);
begin
if trim(edit1.Text)<>'' then
begin
if application.MessageBox('你确定删除吗?', '提示', 4+32)=6 then
begin
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('delete from qsry where qsm='''
+trim(edit1.Text)+'''');
query1.ExecSQL;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from qsry');
query1.Open;
dbshow;
mark:=false;
dbclear(mark);
bitbtn2.Enabled:=false;
end
else
exit;
end
else
showmessage('请选择删除记录');
end;
procedure TForm3.FormShow(Sender: TObject);
var
ss:boolean;
begin
dbshow;
ss:=false;
dbclear(ss);
end;
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
if trim(edit1.Text)='' then
begin
showmessage('请输入寝室名!');
edit1.SetFocus;
exit;
end;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from qsry where qsm='''
+trim(edit1.Text)+'''');
query1.Open;
if query1.recordcount>0 then
begin
showmessage('寝室名重复,请重新输入');
edit1.Text:='';
edit1.SetFocus;
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('select * from qsry');
query1.Open;
exit;
end;
if trim(edit2.Text)='' then
begin
showmessage('请输入寝室长');
edit2.SetFocus;
exit;
end;
if trim(edit3.Text)='' then
begin
showmessage('请输入成员1!');
edit3.SetFocus;
exit;
end;
if trim(edit4.Text)= ''then
begin
showmessage('请输入成员2!');
edit4.SetFocus;
exit;
end;
if trim(edit5.Text)= ''then
begin
showmessage('请输入成员3!');
edit5.SetFocus;
exit;
end;
if trim(edit6.Text)= ''then
begin
showmessage('请输入成员4!');
edit6.SetFocus;
exit;
end;
if trim(edit7.Text)= ''then
begin
showmessage('请输入成员5!');
edit7.SetFocus;
exit;
end;
if trim(edit8.Text)= ''then
begin
showmessage('请输入成员6!');
edit8.SetFocus;
exit;
end;
if MessageDlg('记录是否保存吗 ?',mtConfirmation,
[mbYes, mbNo], 0)=mrYes then
begin
with query1 do
begin
close;
sql.Clear;
sql.Add('insert into qsry values(:qsm,:qsz,:cy1,'
+':cy2,:cy3,:cy4,:cy5,:cy6)');
ParamByName('qsm').AsString:=trim(edit1.Text);
ParamByName('qsz').AsString:=trim(edit2.Text);
ParamByName('cy1').AsString:=trim(edit3.Text);
ParamByName('cy2').AsString:=trim(edit4.Text);
ParamByName('cy3').AsString:=trim(edit5.Text);
ParamByName('cy4').AsString:=trim(edit6.Text);
ParamByName('cy5').AsString:=trim(edit7.Text);
ParamByName('cy6').AsString:=trim(edit8.Text);
ExecSQL;
Close;
SQL.Clear;
SQL.add('select * from qsry');
Open;
end;
ss:=false;
dbclear(ss);
end
else
exit;
end;
procedure TForm3.BitBtn4Click(Sender: TObject);
begin
ss:=false;
dbclear(ss);
end;
procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
edit2.SetFocus;
end;
procedure TForm3.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
edit3.SetFocus;
end;
procedure TForm3.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if key=chr(13) then
edit4.SetFocus;
end;
procedure TForm3.Edit4KeyPress(Sender: TObjec
上一篇:
didcfgview.cpp
下一篇:
科研管理杂志简介