【DELPHI设计栏目提醒】:网学会员为广大网友收集整理了,DELPHI齿科诊所治疗管理系统的研发,希望对大家有所帮助!
//预订复诊信息管理模块
unit bookInfUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RzDBEdit, Grids, DBGrids, DB, ADODB, StdCtrls, RzCmboBx,
RzDBCmbo, RzButton, Mask, RzEdit;
type
TbookInfForm = class(TForm)
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
findText: TRzEdit;
patientInfFindBnt: TRzButton;
RzDBEdit1: TRzDBEdit;
RzButton1: TRzButton;
RzButton2: TRzButton;
RzButton3: TRzButton;
RzButton4: TRzButton;
RzButton5: TRzButton;
findAllInfBnt: TRzButton;
RzDBEdit5: TRzDBEdit;
RzDBComboBox1: TRzDBComboBox;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
tempQuery: TADOQuery;
RzDBEdit4: TRzDBEdit;
DBGrid1: TDBGrid;
RzDBEdit3: TRzDBDateTimeEdit;
Label1: TLabel;
RzDBEdit2: TRzDBComboBox;
procedure RzButton1Click(Sender: TObject);
procedure RzButton2Click(Sender: TObject);
procedure RzButton3Click(Sender: TObject);
procedure RzButton4Click(Sender: TObject);
procedure RzButton5Click(Sender: TObject);
procedure findAllInfBntClick(Sender: TObject);
procedure patientInfFindBntClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure controlCanEnabel(temp: boolean);
private
{ Private declarations }
public
{ Public declarations }
addOrMod : integer;
end;
var
bookInfForm: TbookInfForm;
implementation
{$R *.dfm}
procedure TbookInfForm.controlCanEnabel(temp: boolean);
begin
RzDBEdit1.Enabled:=temp;
RzDBEdit2.Enabled:=temp;
RzDBComboBox1.Enabled:=temp;
RzDBEdit3.Enabled:=temp;
RzDBEdit4.Enabled:=temp;
RzDBEdit5.Enabled:=temp;
RzButton1.Enabled:=not(temp);
RzButton2.Enabled:=not(temp);
RzButton3.Enabled:=not(temp);
RzButton4.Enabled:=temp;
RzButton5.Enabled:=temp;
DBGrid1.Enabled:=not(temp);
end;
procedure TbookInfForm.RzButton1Click(Sender: TObject);
begin
controlCanEnabel(true);
ADOQuery1.Append;
addOrMod:=1;
RzDBEdit1.SetFocus;
end;
procedure TbookInfForm.RzButton2Click(Sender: TObject);
begin
controlCanEnabel(true);
ADOQuery1.Edit;
addOrMod:=2;
RzDBEdit1.SetFocus;
end;
procedure TbookInfForm.RzButton3Click(Sender: TObject);
begin
if Application.Messagebox(PChar(''你确实要删除信息吗?''),''系统提示'',MB_OKCANCEL)=IDOK then
begin
tempQuery.Close;
tempQuery.SQL.Text:=''delete from bookInf where Id=''''''+trim(RzDBEdit1.Text)+'''''''';
tempQuery.ExecSQL;
ADOQuery1.Close;
ADOQuery1.SQL.Text:=''select * from bookInf'';
ADOQuery1.Open;
controlCanEnabel(false);
end;
end;
procedure TbookInfForm.RzButton4Click(Sender: TObject);
begin
if addOrMod=1 then
begin
ADOQuery1.Post;
ADOQuery1.Close;
ADOQuery1.SQL.Text:=''select * from bookInf'';
ADOQuery1.Open;
controlCanEnabel(false);
end
else if addOrMod=2 then
begin
ADOQuery1.Edit;
ADOQuery1.Post;
ADOQuery1.Close;
ADOQuery1.SQL.Text:=''select * from bookInf'';
ADOQuery1.Open;
controlCanEnabel(false);
end;
addOrMod:=0;
end;
procedure TbookInfForm.RzButton5Click(Sender: TObject);
begin
ADOQuery1.Cancel;
ADOQuery1.Close;
ADOQuery1.SQL.Text:=''select * from bookInf'';
ADOQuery1.Open;
controlCanEnabel(false);
end;
procedure TbookInfForm.findAllInfBntClick(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:=''select * from bookInf'';
ADOQuery1.Open;
end;
procedure TbookInfForm.patientInfFindBntClick(Sender: TObject);
begin
ADOQuery1.Close;
ADOQuery1.SQL.Text:=''select * from bookInf where Id=''''''+trim(findText.Text)+'''''''';
ADOQuery1.Open;
end;
procedure TbookInfForm.FormShow(Sender: TObject);
begin
controlCanEnabel(false);
ADOQuery1.Close;
ADOQuery1.Open;
tempQuery.Close;
tempQuery.SQL.Text:=''select * from patientInf '';
tempQuery.Open;
RzDBEdit2.Items.Clear;
while not tempQuery.Eof do
begin
RzDBEdit2.Items.Add(trim(tempQuery.fieldByName(''Id'').AsString));
tempQuery.Next;
end;
tempQuery.Close;
tempQuery.SQL.Text:=''select * from doctorInf '';
tempQuery.Open;
RzDBComboBox1.Items.Clear;
while not tempQuery.Eof do
begin
RzDBComboBox1.Items.Add(trim(tempQuery.fieldByName(''Id'').AsString));
tempQuery.Next;
end;
end;
end.
上一篇:利用flash开发儿童益智游戏