cychwh.~pas

这是用Delphi编写的中小企业管理系统

unit cychwh;

interface

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

type
  Tf_chwh = class(TForm)
    CoolBar1: TCoolBar;
    ToolBar1: TToolBar;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Panel2: TPanel;
    View1: TTreeView;
    DataSource1: TDataSource;
    Grid1: TDBGrid;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    Procedure SelectTable(TableName: String);
    procedure View1Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_chwh: Tf_chwh;

implementation
  uses DataModal;
{$R *.dfm}

procedure Tf_chwh.FormCreate(Sender: TObject);
begin
  Data.Query1.RequestLive := True;
  View1.Items[1].Selected := True;
  SelectTable('t_state');
  Grid1.Columns[0].FieldName := 'gj';
  Grid1.Columns[0].Title.Caption :='国家';
  DataSource1.DataSet := Data.Query1;
  Edit1.Text := '国家';
end;

procedure Tf_chwh.SelectTable(TableName: String);
begin
  With Data.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from '+ TableName);
    Open;
  end;      
end;

procedure Tf_chwh.ToolButton7Click(Sender: TObject);
begin
  if Trim(Edit2.Text)='' then
  begin
    Application.MessageBox('词汇不能为空.','提示',64);
    Edit2.SetFocus;
    Exit;
  end;
  Try
    Data.Query1.AppendRecord([Trim(Edit2.Text)]);
  Except
    Application.MessageBox('插入失败.','提示',64);
  end;
  Data.Query1.Close;
  Data.Query1.Open;
  Edit2.Clear;
end;

procedure Tf_chwh.View1Click(Sender: TObject);
begin
  if View1.Selected<>nil then
    if View1.Selected.Level=1 then
      Case View1.Selected.Index of
        0: begin
             Grid1.Columns[0].FieldName := 'gj';
             Grid1.Columns[0].Title.Caption :='国家';             
             SelectTable('t_State');
             Edit1.Text := '国家';
           end;
        1: begin
             Grid1.Columns[0].FieldName := 'sf';
             Grid1.Columns[0].Title.Caption :='省份';
             SelectTable('t_sf');
             Edit1.Text := '省份';
           end;
        2: begin
             Grid1.Columns[0].FieldName := 'cs';
             Grid1.Columns[0].Title.Caption :='城市';        
             SelectTable('t_city');
             Edit1.Text := '城市';
           end;
        3: begin
             Grid1.Columns[0].FieldName := 'dz';
             Grid1.Columns[0].Title.Caption :='地址';        
             SelectTable('t_add');
             Edit1.Text := '地址';
           end;
        4: begin
             Grid1.Columns[0].FieldName := 'gsxz';
             Grid1.Columns[0].Title.Caption :='公司性质';        
             SelectTable('t_gsxz');
             Edit1.Text := '公司性质';
           end;
      end;      
end;

procedure Tf_chwh.ToolButton6Click(Sender: TObject);
begin
  if Data.Query1.RecordCount>0 then
    Data.Query1.Delete;
end;

procedure Tf_chwh.ToolButton10Click(Sender: TObject);
begin
  Close;
end;

procedure Tf_chwh.ToolButton11Click(Sender: TObject);
begin
  OnCreate(Sender);
  Edit2.Clear;
end;

procedure Tf_chwh.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Case Key of
    VK_INSERT : ToolButton7.OnClick(Sender);
    VK_END: ToolButton11.OnClick(Sender);
    VK_DELETE: ToolButton6.OnClick(Sender);
    VK_ESCAPE: ToolButton10.OnClick(Sender);
  end;
end;

procedure Tf_chwh.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Data.Query1.RequestLive := False;
end;

end.