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.