pfm_gys.pas

超市的销售

unit pfm_gys;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls, StdCtrls, Mask, DBCtrls, Db, DBTables, Grids, DBGrids,
  Buttons, Menus, pvar_lib;

type
  Tfm_gys = class(TForm)
    DataSource1: TDataSource;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    DBEdit2: TDBEdit;
    DBEdit3: TDBEdit;
    DBEdit4: TDBEdit;
    DBEdit5: TDBEdit;
    DBEdit6: TDBEdit;
    DBEdit7: TDBEdit;
    DBEdit8: TDBEdit;
    DBEdit9: TDBEdit;
    DBEdit10: TDBEdit;
    DBEdit11: TDBEdit;
    TabSheet2: TTabSheet;
    DBGrid1: TDBGrid;
    BitBtn_add: TBitBtn;
    BitBtn_del: TBitBtn;
    BitBtn_save: TBitBtn;
    BitBtn_first: TBitBtn;
    BitBtn_prev: TBitBtn;
    BitBtn_next: TBitBtn;
    BitBtn_last: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    Query1: TQuery;
    Query2: TQuery;
    DataSource2: TDataSource;
    DBLookupComboBox1: TDBLookupComboBox;
    BitBtn_cancel: TBitBtn;
    BitBtn_quit: TBitBtn;
    Query1gysdm: TIntegerField;
    Query1gysmc: TStringField;
    Query1gysname: TStringField;
    Query1lxdz: TStringField;
    Query1yzbm: TStringField;
    Query1lxdh: TStringField;
    Query1lxr: TStringField;
    Query1fax: TStringField;
    Query1khyh: TStringField;
    Query1yhzh: TStringField;
    Query1zzsh: TStringField;
    Query1zysp: TStringField;
    Query1jsfs: TStringField;
    DBEdit1: TDBEdit;
    procedure BitBtn_addClick(Sender: TObject);
    procedure BitBtn_delClick(Sender: TObject);
    procedure BitBtn_saveClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure Query1AfterScroll(DataSet: TDataSet);
    procedure BitBtn_prevClick(Sender: TObject);
    procedure BitBtn_nextClick(Sender: TObject);
    procedure BitBtn_lastClick(Sender: TObject);
    procedure BitBtn_firstClick(Sender: TObject);
    procedure Query1AfterInsert(DataSet: TDataSet);
    procedure Query1AfterPost(DataSet: TDataSet);
    procedure BitBtn_cancelClick(Sender: TObject);
    procedure BitBtn_quitClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_gys: Tfm_gys;

implementation

uses pfm_query;

{$R *.DFM}




procedure Tfm_gys.BitBtn_addClick(Sender: TObject);
begin
        Query1.Insert;
 
end;

procedure Tfm_gys.BitBtn_delClick(Sender: TObject);
begin
        if application.MessageBox('确信要删除该列?','警告',MB_OKCANCEL)=IDOK then
        begin
                query1.Delete;
                query1.applyupdates;
        end

end;

procedure Tfm_gys.BitBtn_saveClick(Sender: TObject);
begin
        if query1.state=dsEdit then
        begin
              try
              query1.ApplyUpdates;
            //  query1.refresh;
              showmessage('更改数据成功');
              except
              showmessage('更改数据不成功!');
              end;
        end
        else if query1.state=dsInsert then
        begin
              try
              query1.ApplyUpdates;
            //  query1.refresh;
              showmessage('保存成功');
              except
              showmessage('保存数据不成功!');
              end;
        end
        else
        begin
                showmessage('不是处于修改状态');
        end;


end;

procedure Tfm_gys.FormCreate(Sender: TObject);
var i:integer;
var mystr:TStrings;
begin
      mystr:=TStringList.Create;
      mystr.add('gysdm=自动编号');
      mystr.add('gysmc=供应商代码');
      mystr.add('gysname=供应商名称');
      mystr.add('lxdz=联系地址');
      mystr.add('yzbm=邮政编码');
      mystr.add('lxdh=联系电话');
      mystr.add('lxr=联系人');
      mystr.add('fax=传真');
      mystr.add('khyh=开户银行');
      mystr.add('yhzh=银行帐号');
      mystr.add('zzsh=增值税号');
      mystr.add('zysp=主要产品');
      mystr.add('jsfs=结算方式');


       for i:=0 to dbgrid1.Columns.Count-1 do
                dbgrid1.Columns.Items[i].Title.caption:=mystr.Values[dbgrid1.Columns.Items[i].FieldName];
       mystr.Free;
       query1.Active:=true;
end;

procedure Tfm_gys.FormClose(Sender: TObject; var Action: TCloseAction);
begin
        Action:=caFree;
end;

procedure Tfm_gys.BitBtn6Click(Sender: TObject);
var
        i:integer;
begin
        for i:=0 to dbgrid1.Columns.Count-1 do
        begin
                mFieldCap[i]:=dbGrid1.Columns[i].Title.Caption;
                mFieldName[i]:=dbGrid1.Columns[i].fieldname;
                mFieldType[i]:=dbGrid1.Columns[i].Field.datatype;
                mFieldNum:=i;
        end;

        fm_query:=Tfm_query.Create(self);
        if fm_query.ShowModal=mrOK then
        begin
                query1.Close;
                query1.sql.Clear;
                Query1.SQL.add('select * from t_gysxx where ' + sQuerySql);
                query1.open;

        end;


end;

procedure Tfm_gys.BitBtn5Click(Sender: TObject);
begin
         query1.Close;
         query1.sql.Clear;
         Query1.SQL.add('select * from t_gysxx');
         query1.open;
end;

procedure Tfm_gys.Query1AfterScroll(DataSet: TDataSet);
begin
        if query1.Bof then
        begin
               bitbtn_first.Enabled:=false;
                bitbtn_prev.Enabled:=false;
        end
        else
        begin
               bitbtn_first.Enabled:=true;
                bitbtn_prev.Enabled:=true;
        end;
        if query1.Eof then
        begin
                bitbtn_last.Enabled:=false;
                bitbtn_next.Enabled:=false;
        end
        else
       begin
                bitbtn_last.Enabled:=true;
                bitbtn_next.Enabled:=true;
        end;

end;

procedure Tfm_gys.BitBtn_prevClick(Sender: TObject);
begin
        if not query1.Bof then
                query1.Prior;
        
end;

procedure Tfm_gys.BitBtn_nextClick(Sender: TObject);
begin
        if not query1.Eof then
                query1.Next;
end;

procedure Tfm_gys.BitBtn_lastClick(Sender: TObject);
begin
        if not query1.Eof then
                query1.Last;
                
end;

procedure Tfm_gys.BitBtn_firstClick(Sender: TObject);
begin
        if not query1.Bof then
                query1.First;
end;

procedure Tfm_gys.Query1AfterInsert(DataSet: TDataSet);
begin
        bitbtn_save.Enabled:=true;
        bitbtn_cancel.enabled:=true;
        bitbtn_del.enabled:=false;

end;

procedure Tfm_gys.Query1AfterPost(DataSet: TDataSet);
begin
        bitbtn_save.Enabled:=false;
        bitbtn_cancel.Enabled :=false;
        bitbtn_add.enabled:=true;
        bitbtn_del.Enabled :=true;
end;

procedure Tfm_gys.BitBtn_cancelClick(Sender: TObject);
begin
        if (query1.State=dsEdit) or (query1.State=dsInsert) then
        begin
        query1.CancelUpdates;
       // query1.Refresh;
        end;
end;

procedure Tfm_gys.BitBtn_quitClick(Sender: TObject);
begin
        if (query1.state=dsEdit) or (query1.state=dsInsert) then
        begin
                if application.MessageBox('需要先保存修改的数据吗？','警告',MB_YESNO)=IDYES then
                begin
                if query1.state=dsEdit then
                begin
                        try
                        query1.ApplyUpdates;
                        //  query1.refresh;
                        showmessage('更改数据成功');
                except
                        showmessage('更改数据不成功!');
                end;
                end
                else if query1.state=dsInsert then
                begin
                        try
                        query1.ApplyUpdates;
                        //  query1.refresh;
                        showmessage('保存成功');
                except
                showmessage('保存数据不成功!');
                end;
                end
                end
        end;
        close;
end;

end.