modilp.pas

这是毕业设计用delphi完成的管理系统,比较庞大,是非常有用的哦```里面代码简单易懂

unit modilp;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, DB, DBTables;

type
  Tmodilp_Form = class(TForm)
    mph_LEdit: TLabeledEdit;
    hz_LEdit: TLabeledEdit;
    tdh_LEdit: TLabeledEdit;
    mj_LEdit: TLabeledEdit;
    cqh_LEdit: TLabeledEdit;
    cz_C: TCheckBox;
    xs_C: TCheckBox;
    cmdok: TButton;
    cmdclose: TButton;
    hx_LEdit: TLabeledEdit;
    procedure FormCreate(Sender: TObject);
    procedure cmdokClick(Sender: TObject);
    procedure cmdcloseClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  modilp_Form: Tmodilp_Form;

implementation

uses main, lpgl;

{$R *.dfm}

procedure Tmodilp_Form.FormCreate(Sender: TObject);
begin
    Caption:=lpgl_form.xcaption;
    if lpgl_form.modi then
    begin
        mph_ledit.Text:=lpgl_form.Query1.fieldbyname('mph').AsString;
        hz_ledit.Text:=lpgl_form.Query1.fieldbyname('hz').AsString;
        cqh_ledit.Text:=lpgl_form.Query1.fieldbyname('cqh').AsString;
        tdh_ledit.Text:=lpgl_form.Query1.fieldbyname('tdh').AsString;
        hx_ledit.Text:=lpgl_form.Query1.fieldbyname('hx').AsString;
        mj_ledit.Text:=lpgl_form.Query1.fieldbyname('mj').AsString;
        cz_c.Checked:=lpgl_form.Query1.fieldbyname('cz').AsBoolean;
        xs_c.Checked:=lpgl_form.Query1.fieldbyname('cs').AsBoolean;
    end;
end;

procedure Tmodilp_Form.cmdokClick(Sender: TObject);
var
    id,sqlstr,sqlstr1,mph,hz,cqh,tdh,hx,mj,cz,xs:string;
begin
    mph:=trim(mph_ledit.Text);
    if length(mph)<1 then
    begin
        ShowMessage('门牌号不能为空，请输入门牌号');
        exit;
    end;
    hz:=trim(hz_ledit.Text);
    cqh:=trim(cqh_ledit.Text);
    tdh:=trim(tdh_ledit.Text);
    hx:=trim(hx_ledit.Text);
    if length(hx)<1 then
    begin
        ShowMessage('户型不能为空，请输入户型');
        exit;
    end;
    if cz_c.Checked then
        cz:='true'
    else
        cz:='flase';
    if xs_c.Checked then
        xs:='true'
    else
        xs:='flase';
    mj:=trim(mj_ledit.Text);
    if length(mj)<1 then
    begin
        ShowMessage('面积不能为空，请输入面积');
        exit;
    end;
    if lpgl_form.modi then
    begin
        id:=lpgl_form.Query1.fieldbyname('id').AsString;
        sqlstr:='update lpb set mph='''+mph+''',hz='''+hz+''',cqh='''+cqh;
        sqlstr:=sqlstr+''',tdh='''+tdh+''',hx='''+hx+''',mj='''+mj+''',cz='''+cz;
        sqlstr:=sqlstr+''',cs='''+xs+''' where (id='''+id+''')';
        sqlstr1:='select * from lpb where (mph='''+mph+''')and(id<>'''+id+''')';
    end
    else
    begin
        sqlstr:='insert into lpb(mph,hz,cqh,tdh,hx,mj,cz,cs) values('''+mph;
        sqlstr:=sqlstr+''','''+hz+''','''+cqh+''','''+tdh+''','''+hx;
        sqlstr:=sqlstr+''','''+mj+''','''+cz+''','''+xs+''')';
        sqlstr1:='select * from lpb where (mph='''+mph+''')';
    end;
    with tquery.Create(nil) do
    begin
        try
        Close;
        SessionName:=MainForm.Database1.SessionName;
        DatabaseName:=MainForm.Database1.DatabaseName;
        SQL.Clear;
        SQL.Add(sqlstr1);
        Open;
        if RecordCount > 0 then
        begin
            ShowMessage('输入的门牌号有重复，请重新输入');
            exit;
        end;
        Close;
        SQL.Clear;
        SQL.Add(sqlstr);
        ExecSQL;
        finally
        Free;
        end;
    end;
    Close;
    lpgl_form.cmdok.Click;
end;

procedure Tmodilp_Form.cmdcloseClick(Sender: TObject);
begin
    Close;
end;

end.