🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: cn.bbs.comp.program
Article #1336

��Delphi�����ݿ�Ӧ�õļ������

#1336
From: ���ܵ�Сʨ
Date: Sat, 18 Apr 1998 00:00
76 lines
6307 bytes
   Delphi��һ�������ǰ�˿�������,�ܹ���ݵز���������õ�Ӧ
�ó�������ݿ�Ӧ����Ʒ���,DelphiҲ����ǿ��Ĺ��ܡ�����һ
���ϴ����ݿ�Ӧ������ֻҪ�̵ܶ�ʱ�伴����ɡ��ڴ˱�����̸̸
�ڱ�̹���л��۵�һ����ᡣ
    Delphi�ṩ��������ݷ��ʺͿ��ƵĿ��ӿؼ�,����Щ�ؼ�����
������ݿ�Ӧ�á�Data Access�ؼ���Ҫ���ڷ�����ݼ�¼,���ѯ��
���롢ɾ��Ȳ���,Data Controls�ؼ�����Ҫ���ڱ�����ʾ,��Ȼ 
Ҳ�ɽ���һЩ�༭��
    Delphi����ݿ�Ӧ��ͨ��Data Access�ؼ���BDE����,�Ӷ����
���Դ��Data Control s�ؼ���Щ��νData_Aware�ؼ�,�ṩ�û���
�ڡ�����BDE(Borland Database Engineer)֧��ODBC��׼,���Կ���
���ʶ������Դ���
    ʹ��SQLʱ��һЩ����
    Delphi����ݿؼ���֧�ֱ�׼SQL����,����Щ���ơ��ھ����
��ʱ���ܻ�����һЩ�鷳��
ͼ1

    1.Query�ؼ���Open��ExecSQL��ʽ�����Open��ʽ���Դ���
��ϵ����ݱ��,��Ex ecSQL��ʽ��ֻ������SQL���,���������к�
�ı������������Data-Controls�ؼ������, ���Ҫ��DBGrid����
��ʾҪ�����ݼ�¼ʱ,����SELECT���ɸѡ�����Ҫ���Ԫ��,����
O pen��Query�ؼ����в������ɡ����������µ�Ӧ��:
    ���Ҫ��DBGridl����ʾ���(�����ΪWORKERS.DB),��ɽ�Quer
y1��SQL������Ϊ:SEL ECT*FROM WORKERS,���ڳ����м������:Quer
y1.Open;���ɡ���Ҫ����һ����¼,��Query1 ��SQL����ӦΪ:
    INSERT INTO WORKERS(No#,Name,Sex,Age,Depart) VALUES
    (:No#,:Name,:Sex,Age,:Depart)
    �ڳ�������Ӧ�ü����������:
    Query1.Close;
    Query1.ParamByName(��No#').asintegar:=2717;
    Query1.ParamByName(��Name').asstring:=������';
    Query1.ParamByName(��Sex').asstring=����';
    Query1.ParamByName(��Age').asinteger:=40;
    Query1.ParamByName(��Depart').asstring:=��Ʒ�ʹ��?;
    Query1.ExecSQL;
    ע��,�˴������ExecSQL����Open�����?
    2.��Ҫ��SQL�����ʹ�ó����еı���,ֻ����SQL������ð�ż�
�ֶ���������,Ȼ���ڳ����аѱ�����ֵ�����ֶΡ���������ӱ���
������ɵġ�����,���û�����һ�����Ŵ���Nu mber������,Ҫ��ѯ
��Ӧ�ļ�¼ʱSQL���Ӧ����:
    SELECT*FROM WORKERS WHERE No#=:No#
    ���ڳ����м����������:
    Query1.Close;
    Query1.ParamByName(��No#').asinteger:=Number;
    Query1.Open;

    ʹ������ʱ��ע������

    1.Ҫ��Delphi���Ƶ���ݿ�Ӧ�ó�����ʹ������,�����BDE Con
figuration������ȷ����,��Ҫ�Ƕ������Ե�ѡ�񡣶�Delphi 1.0
����,����BDE Configuration Utility��Syst emҳ�н�LANGDRIVER
����ΪdBASE CHS CP936,��Delphi 2.0,��ɽ�Systemҳ�е�LANG-DR
I VER����ΪSybase SQL Dic850�����úú�,Delphi�е���ݷ��ʿ�
������ݿ��ƿؼ��Ϳ���ʹ�������ˡ�ֵ��ע�����,���������
��֧�����ĵ�BDE�����в����,��ʹ��ʹ��ʱBD E�Ѿ�����Ϊ֧����
��Ҳ����������,��ʱ����DATABASE DESKTOP���޸ı������ԡ���T
ab le Property�е�Table Langue��Ϊ֧�����ĵ������Լ��ɡ�
    2.���Ŀ��������ֶ���,������ȷ��ʾ,������PASCAL����Ҫ���
����Ϊ��Ӣ����ĸΪ�׵���ĸ���ִ�,���Ժ����ַ�����������
��������������������ֶ���,ʹ��SQLʱҪʮ��С��,��������
����������ֶν��и�ֵ��Ƚ�ʱ���������漸��SQL�����ʹ��ʱ
�������:
    SELECT*FROM TEST WHERE����=:����
    INSERT INTO TEST(����,Age,Salary)values(:����,:Age,:Sala
ry) 
    ע��汾֮��IJ���
    Delphi 1.0��Delphi2.0�ڶ���ݿ�Ĵ�������Щ���,ʹ�ù��
��Ҫ����ע�⡣����D elphi 1.0�ı���ֶ���Ŀ����̫��,����10��
�ֶ�ʱ���޷���INSERT�������¼,��Delp hi 2.0�򲻴���������
�ơ�����,�����йؼ��ֵ�PARADOX�����в����¼ʱ,Delphi 1.0 
������ԭ�еĹؼ�����ͬ�ļ�¼,��Delphi 2.0���������ؼ���
�Ѵ��ڵļ�¼,���ִ�������ֲ���,��ݿ��ʹ�ý����ò���

--
�� ��Դ:���ϴ�С�ٺ���Ϣ����վ bbs.nju.edu.cn��[FROM: hsia.nju.edu.cn]
Technical Details
Message-ID: <3O9QdF$tL1@bbs.nju.edu.cn>
Path: arc1-ca.pugleaf.net!unknown!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: Chinese,GB
X-Google-Thread: fc86e,5c70e1e74c2a0a7d,start
X-Google-Attributes: gidfc86e,public
From: pipishi.bbs@bbs.nju.edu.cn (���ܵ�Сʨ)
Subject: ��Delphi�����ݿ�Ӧ�õļ������
Date: 1998/04/18
Message-ID: <3O9QdF$tL1@bbs.nju.edu.cn>
X-Deja-AN: 345308556
X-Filename: Programming/M.892871007.A
Organization: nju_bbs
Newsgroups: cn.bbs.comp.program