teachfrm.~pas

delphi6.0版本的主要用于学样、网吧的计费系统的源码

unit TeachFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList, ExtCtrls, StdCtrls, DB, ADODB;

type
  TTeachForm = class(TForm)
    ListView1: TListView;
    ImageList1: TImageList;
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton6: TToolButton;
    ToolButton5: TToolButton;
    Splitter1: TSplitter;
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    Edit1: TLabeledEdit;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Edit2: TLabeledEdit;
    Edit3: TLabeledEdit;
    Edit4: TLabeledEdit;
    Edit5: TLabeledEdit;
    Edit6: TLabeledEdit;
    procedure ToolButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ListView1Change(Sender: TObject; Item: TListItem;
      Change: TItemChange);
    procedure ToolButton2Click(Sender: TObject);
  private
    { Private declarations }
  public
     row:integer;
     procedure ClearForm();
     function InsertTeach():boolean;
     procedure updateTeach();
     procedure loadTeach();
     procedure delete();
end;

var
  TeachForm: TTeachForm;

implementation

uses datamodule;

{$R *.dfm}

procedure TTeachForm.delete();
var
 query:Tadoquery;
 sql:string;
 i:integer;
begin

 query:=Tadoquery.Create(self);
 query.Connection:=dmfm.ADOConnection;
 sql:='delete Tteach where fnum='+listview1.Selected.Caption;
 query.close;
 query.sql.text:=sql;
 query.ExecSQL;

 if listview1.Selected.Index=listview1.Items.Count-1 then
  row:=listview1.Selected.Index-1
 else
  row:=listview1.Selected.Index; 


 query.Destroy;
end; 

procedure TTeachForm.loadTeach();
var
 query:Tadoquery;
 sql:string;
 i:integer;
begin

 query:=Tadoquery.Create(self);
 query.Connection:=dmfm.ADOConnection;
 sql:='select Fnum,fname,fsex,fbm,ftel1,ftel2,ftel3,faddr from Tteach order by Fnum';

 query.close;
 query.sql.text:=sql;
 query.open;
 i:=0;
 listview1.Items.Clear;
 while not query.Eof do
 begin
  listview1.Items.Add();
  listview1.Items[i].Caption:=trim(query.Fields[0].AsString);
  listview1.Items[i].SubItems.Add(trim(query.Fields[1].asstring));
  listview1.Items[i].SubItems.Add(trim(query.Fields[2].asstring));
  listview1.Items[i].SubItems.Add(trim(query.Fields[3].asstring));
  listview1.Items[i].SubItems.Add(trim(query.Fields[4].asstring));
  listview1.Items[i].SubItems.Add(trim(query.Fields[5].asstring));
  listview1.Items[i].SubItems.Add(trim(query.Fields[6].asstring));
  listview1.Items[i].SubItems.Add(trim(query.Fields[7].asstring));
  query.next;
  i:=i+1;
 end;

 listview1.Items[row].Selected:=true;

 query.Destroy;
end;

procedure TTeachForm.updateTeach();
var
 query:Tadoquery;
 sql:string;
begin
 if listview1.Selected=nil then exit;
 if edit1.text='' then
  begin
   messagebox(handle,'姓名不能为空','提示',mb_iconwarning);
   exit;
  end;

 query:=Tadoquery.Create(self);
 query.Connection:=dmfm.ADOConnection;
 sql:=format('update Tteach set Fname=''%s'',Fsex=''%s'',Fbm=''%s'',Ftel1=''%s'',Ftel2=''%s'',Ftel3=''%s'',Faddr=''%s'''+
             ' where Fnum=%s ',
             [edit1.text,combobox1.text,edit2.text,edit3.text,edit4.text,edit5.text,edit6.text,listview1.Selected.Caption]);
 query.close;
 query.sql.text:=sql;
 query.ExecSQL;

 row:=listview1.Selected.Index;

 query.Destroy;
end;

function TTeachForm.InsertTeach():boolean;
var
 query:Tadoquery;
 sql:string;
begin
 if edit1.text='' then
  begin
   messagebox(handle,'姓名不能为空','提示',mb_iconwarning);
   result:=false;
   exit;
  end;
 query:=Tadoquery.Create(self);
 query.Connection:=dmfm.ADOConnection;
 sql:=format('insert Tteach(Fname,Fsex,Fbm,Ftel1,Ftel2,Ftel3,Faddr) values(''%s'',''%s'',''%s'',''%s'',''%s'' '+
             ' ,''%s'',''%s'' ) ',
             [edit1.text,combobox1.text,edit2.text,edit3.text,edit4.text,edit5.text,edit6.text]);
 query.close;
 query.sql.text:=sql;
 query.ExecSQL;

 row:=listview1.Items.Count;
 query.Destroy;
 result:=true;
end;

procedure TTeachForm.ClearForm();
begin
 edit1.Clear;
 edit2.Clear;
 edit3.Clear;
 edit4.Clear;
 edit5.Clear;
 edit6.Clear;
 combobox1.ItemIndex:=0;
end;


procedure TTeachForm.ToolButton1Click(Sender: TObject);
begin
 ClearForm;
 edit1.SetFocus;
 toolbutton2.Enabled:=false;
 toolbutton3.Enabled:=true;
end;

procedure TTeachForm.FormShow(Sender: TObject);
begin
toolbutton1.Enabled:=true;
toolbutton2.Enabled:=false;
toolbutton3.Enabled:=false;
loadTeach();
row:=-1;
end;

procedure TTeachForm.ToolButton3Click(Sender: TObject);
begin
 if not toolbutton2.Enabled then
  begin
   if not InsertTeach() then exit;
   clearform;
   edit1.SetFocus;
  end 
  else
  updateTeach();
  loadTeach;

end;

procedure TTeachForm.ToolButton5Click(Sender: TObject);
begin
close;
end;

procedure TTeachForm.ListView1Change(Sender: TObject; Item: TListItem;
  Change: TItemChange);
begin
 if listview1.Selected=nil then exit;
 toolbutton2.Enabled:=true;
 toolbutton3.Enabled:=true;

 edit1.text:=listview1.Selected.SubItems[0];
 combobox1.text:=listview1.Selected.SubItems[1];
 edit2.text:=listview1.Selected.SubItems[2];
 edit3.text:=listview1.Selected.SubItems[3];
 edit4.text:=listview1.Selected.SubItems[4];
 edit5.text:=listview1.Selected.SubItems[5];
 edit6.text:=listview1.Selected.SubItems[6];
end;

procedure TTeachForm.ToolButton2Click(Sender: TObject);
begin
if listview1.Selected=nil then exit;
if messagebox(handle,'是否删除教师？','警告',mb_iconwarning+mb_yesno)=idno then exit;
delete();
loadTeach();
end;

end.