unit2.pas

这是用delphi编写的网络电视程序

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, StdCtrls, DB, Grids, DBGrids, DBCtrls;

type
  TFrmUrl = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    DBLookupComboBox1: TDBLookupComboBox;
    Panel2: TPanel;
    Label2: TLabel;
    Edit2: TEdit;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Panel3: TPanel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    DBLookupComboBox2: TDBLookupComboBox;
    DBGrid3: TDBGrid;
    DataSource3: TDataSource;
    Edit4: TEdit;
    Label6: TLabel;
    DBLookupComboBox3: TDBLookupComboBox;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure DBGrid2CellClick(Column: TColumn);
    procedure DBLookupComboBox2Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure DBGrid3CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmUrl: TFrmUrl;

implementation

{$R *.dfm}
uses unit1;
procedure TFrmUrl.Button1Click(Sender: TObject);
 var caidan,dishi:string;
begin
  caidan:=dblookupcombobox1.Text;
  dishi:=edit1.Text;
  if FrmMain.ADOdiqu.Locate('diqu',dishi,[]) then
    application.MessageBox('已有相同内容!!  ','提示',mb_ok+mb_iconinformation)
  else
   with FrmMain.ADOdiqu do
    begin
    if not  Active then  Open;
      Insert;
      FieldByName('sheng').AsString:=caidan;
      fieldbyname('diqu').AsString:=dishi;
      Post;
      Close;
      Open;
   end;
end;

procedure TFrmUrl.Button2Click(Sender: TObject);
 var caidan,dishi:string;
begin
  caidan:=dblookupcombobox1.Text;
  dishi:=edit1.Text;
  if FrmMain.ADOdiqu.locate('diqu',dishi,[]) then
    application.MessageBox('已有相同内容!!  ','提示',mb_ok+mb_iconinformation)
  else
   with FrmMain.ADOdiqu do
   begin
    if not Active then Open;
      Edit;
      FieldByName('sheng').AsString:=caidan;
      fieldbyname('diqu').AsString:=dishi;
      Post;
      Close;
      Open;
    button2.Enabled:=false;
   end;
end;

procedure TFrmUrl.DBGrid1CellClick(Column: TColumn);
begin
  if FrmMain.ADOdiqu.RecordCount>0 then
   begin
  //  dblookupcombobox1.KeyValue:=form1.ADOsheng.Fieldbyname('sheng').AsString;
    edit1.Text:=FrmMain.ADOdiqu.Fieldbyname('diqu').AsString;
    button2.Enabled:=true;
    button3.Enabled:=true;
   end;
end;

procedure TFrmUrl.Button3Click(Sender: TObject);
begin
  if application.MessageBox('要删除吗??','警告',mb_yesno+mb_defbutton2+mb_iconhand)=idyes then
    FrmMain.ADOdiqu.Delete;
  button3.Enabled:=false;
end;

procedure TFrmUrl.Button4Click(Sender: TObject);
 var caidan:string;
begin
  caidan:=edit2.Text;
  if FrmMain.ADOsheng.Locate('sheng',caidan,[]) then
    application.MessageBox('已有相同菜单!!  ','提示',mb_ok+mb_iconinformation)
  else
   with  FrmMain.ADOsheng  do
   begin
    if not Active then Open;
      Insert;
      FieldByName('sheng').AsString:=caidan;
      Post;
      Close;
      Open;
   end;
end;

procedure TFrmUrl.Button5Click(Sender: TObject);
 var caidan:string;
begin
  caidan:=edit2.Text;
  if FrmMain.ADOsheng.Locate('sheng',caidan,[]) then
    application.MessageBox('已有相同菜单!!  ','提示',mb_ok+mb_iconinformation)
  else
   with  FrmMain.ADOsheng  do
   begin
    if not Active then Open;
      edit;
      FieldByName('sheng').AsString:=caidan;
      Post;
      Close;
      Open;
    button5.Enabled:=false;
   end;
end;

procedure TFrmUrl.Button6Click(Sender: TObject);
begin
  if application.MessageBox('要删除吗??','警告',mb_yesno+mb_defbutton2+mb_iconhand)=idyes then
    FrmMain.ADOsheng.Delete;
  button6.Enabled:=false;
end;

procedure TFrmUrl.DBGrid2CellClick(Column: TColumn);
begin
  if FrmMain.ADOsheng.RecordCount>0 then
   begin
    edit1.Text:=FrmMain.ADOsheng.Fieldbyname('sheng').AsString;
    button5.Enabled:=true;
    button6.Enabled:=true;
   end;
end;

procedure TFrmUrl.DBLookupComboBox2Click(Sender: TObject);
begin
  FrmMain.ADOdiqu.Filter:='sheng='+''''+dblookupcombobox2.Text+'''';
  FrmMain.ADOdiqu.Filtered:=true;
end;

procedure TFrmUrl.Button7Click(Sender: TObject);
 var dizhi,wangzhi,dishi:string;
begin
  dishi:=dblookupcombobox3.Text;
  dizhi:=edit3.Text;
  wangzhi:=edit4.Text;
  if FrmMain.ADOpindao.Locate('dt_ming',dizhi,[]) then
    application.MessageBox('已有相同内容!!  ','提示',mb_ok+mb_iconinformation)
  else
   with FrmMain.ADOpindao do
   begin
    if not Active then Open;
      insert;
      FieldByName('dt_ming').AsString:=dizhi;
      FieldByName('dt_wangzhi').AsString:=wangzhi;
      fieldbyname('diqu').AsString:=dishi;
      Post;
      Close;
      Open;
    button2.Enabled:=false;
   end;
end;

procedure TFrmUrl.Button8Click(Sender: TObject);
 var dizhi,wangzhi,dishi:string;
begin
  dishi:=dblookupcombobox3.Text;
  dizhi:=edit3.Text;
  wangzhi:=edit4.Text;
  if FrmMain.ADOpindao.Locate('dt_ming',dizhi,[]) then
    application.MessageBox('已有相同内容!!  ','提示',mb_ok+mb_iconinformation)
  else
   with FrmMain.ADOpindao do
   begin
    if not Active then Open;
      Edit;
      FieldByName('dt_ming').AsString:=dizhi;
      FieldByName('dt_wangzhi').AsString:=wangzhi;
      fieldbyname('diqu').AsString:=dishi;
      Post;
      Close;
      Open;
    button8.Enabled:=false;
   end;
end;

procedure TFrmUrl.Button9Click(Sender: TObject);
begin
  if application.MessageBox('要删除吗??','警告',mb_yesno+mb_defbutton2+mb_iconhand)=idyes then
    FrmMain.ADOpindao.Delete;
  button9.Enabled:=false;
end;

procedure TFrmUrl.DBGrid3CellClick(Column: TColumn);
begin
  if FrmMain.ADOpindao.RecordCount>0 then
   begin
 //   dblookupcombobox3.KeyValue:=form1.ADOpindao.Fieldbyname('diqu').AsString;
    edit3.Text:=FrmMain.ADOpindao.Fieldbyname('dt_ming').AsString;
    edit4.Text:=FrmMain.ADOpindao.Fieldbyname('dt_wangzhi').AsString;
    button8.Enabled:=true;
    button9.Enabled:=true;
   end;
end;

procedure TFrmUrl.FormCreate(Sender: TObject);
begin
  FrmMain.ADOsheng.Open;
  FrmMain.ADOpindao.Filtered:=false;
  FrmMain.ADOpindao.Open;
  FrmMain.ADOdiqu.Filtered:=false;
  FrmMain.ADOdiqu.Open;
end;

procedure TFrmUrl.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FrmMain.ADOsheng.close;
  FrmMain.ADOpindao.close;
  FrmMain.ADOdiqu.close;
end;

end.