kc.~pas

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

unit KC;

interface

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

type
  TKCForm = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    ListBox1: TListBox;
    procedure Button4Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
   row:integer;
    { Public declarations }
  end;

var
  KCForm: TKCForm;

implementation

uses datamodule;

{$R *.dfm}

procedure TKCForm.Button4Click(Sender: TObject);
begin
close;
end;

procedure TKCForm.Button1Click(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
 Fname:string;
begin
 if inputquery('输入课程名称','',Fname) then
  begin
   if Fname='' then exit;
   query:=Tadoquery.Create(self);
   query.Connection:=dmfm.ADOConnection;

   sql:=format('select * from tkc where fname=''%s''',[Fname]);
   query.close;
   query.sql.text:=sql;
   query.open;
   if not query.IsEmpty then
    begin
     messagebox(handle,'课程名称已经存在','提示',mb_iconwarning);
     exit;
    end;

   sql:=format('insert tkc(Fname) values(''%s'')',[Fname]);
   query.close;
   query.sql.text:=sql;
   query.ExecSQL;
   
   query.Destroy;
   formshow(sender);
  end;
end;

procedure TKCForm.FormShow(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
begin
 query:=Tadoquery.Create(self);
 query.Connection:=dmfm.ADOConnection;
 sql:='select * from Tkc order by fname';
 query.close;
 query.sql.text:=sql;
 query.open;
 listbox1.Items.Clear;
 while not query.eof do
  begin
   listbox1.Items.Add(trim(query.fieldbyname('Fname').AsString));
   query.next;
  end;

 query.Destroy;
 row:=0;
 listbox1.SetFocus;

end;

procedure TKCForm.Button2Click(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
 Fname:string;
begin
 if listbox1.ItemIndex=-1 then exit;
 if messagebox(handle,'你真的要删除此课程吗？','提示',mb_iconwarning+mb_yesno)=idno then exit;

   query:=Tadoquery.Create(self);
   query.Connection:=dmfm.ADOConnection;
   sql:='select * from Tkcap where fkcname='''+listbox1.items[listbox1.itemindex]+'''';
   query.close;
   query.sql.text:=sql;
   query.Open;
   if not query.IsEmpty then
    begin
     messagebox(handle,'此课程已安排过上机，不能删除','警告',mb_iconwarning);
     exit;
    end;


   sql:=format('delete tkc where fname=''%s'' ',[listbox1.items[listbox1.itemindex]]);
   query.close;
   query.sql.text:=sql;
   query.ExecSQL;

   query.Destroy;
   formshow(sender);
end;
procedure TKCForm.Button3Click(Sender: TObject);
var
 query:Tadoquery;
 sql:string;
 Fname:string;
begin
 if listbox1.ItemIndex=-1 then exit;

   query:=Tadoquery.Create(self);
   query.Connection:=dmfm.ADOConnection;

   Fname:=listbox1.items[listbox1.itemindex];

   sql:='select * from Tkcap where fkcname='''+listbox1.items[listbox1.itemindex]+'''';
   query.close;
   query.sql.text:=sql;
   query.Open;
   if not query.IsEmpty then
    begin
     messagebox(handle,'此课程已安排过上机，不能删除','警告',mb_iconwarning);
     exit;
    end;

   if not inputquery('输入课程名称','',Fname) then exit;

   sql:=format('update tkc  set fname=''%s''  where fname=''%s''',[Fname,listbox1.items[listbox1.itemindex]]);
   query.close;
   query.sql.text:=sql;
   query.ExecSQL;

   query.Destroy;
   formshow(sender);
end;

end.